2009年9月19日星期六

indesign - 矩形框

1 選取矩形架框工具 / 繪製一個矩形
2 右鍵 / 內文編輯器 / 輸入文字內容

INDESIGN - 複合文字

好用的功能
建立複合字體
1.文字 / 複合字體。
2.新增 / 給名稱 / 確定。
3.選取類別 / 設定字體屬性
4.完成 / 儲存 / 確定

漢字 (或韓文)漢字字元用於日文和中文; 韓文字元則用於韓文。 無法修改
假名指用於日文平假名和日文片假名的字體。
標點符號指定用於標點符號的字體。
全形符號指定用於符號的字體。
羅馬字指定用於半形羅馬字元的字體。

2009年9月18日星期五

INDESIGN - 文繞圖

1.視窗 / 繞圖排文。
2.選取 工具 / 選取要繞圖排文的物件。
3.在「繞圖排文」面板中,按一下所需的繞排形狀 / 設定尺寸

INDESIGN - 文字框的設定

1 選取 水平格點工具 / 拖曳一個文字範圍
2 右鍵選取文字框 / 框架類型 / 文字框
3 右鍵選取文字框選項 / 設定行距
4 右鍵選取框架格點選項 / 設定行距 / 確定

2009年9月15日星期二

儲存格輸入判斷 - excel vba

Private Sub Worksheet_Change(ByVal Target As Range)
Dim X
X = ActiveCell.Offset(-1, 0).Value

Select Case X

Case 2

ActiveCell.Offset(-1, 1).Value = "台北"

Case 3

ActiveCell.Offset(-1, 1).Value = "台中"
Case 4

ActiveCell.Offset(-1, 1).Value = "台南"
Case 5

ActiveCell.Offset(-1, 1).Value = "台西"
Case Else

ActiveCell.Offset(-1, 1).Value = "無"
End Select


End Sub

2009年9月14日星期一

excel -vba 合併

Sub 合併()

Dim SN
SN = Sheets.Count

For i = 2 To SN

Sheets(i).Select
If i = 2 Then

Cells(1, 1).Select

Else

Cells(2, 1).Select

End If


'Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

Next
End Sub

EXCEL VBA - 流水號

Sub 流水號()

Dim i, j
j = InputBox("請輸入終止值")

For i = 1 To j

ActiveCell.Offset(i - 1, 0).Value = i
ActiveCell.Offset(i - 1, 0).NumberFormatLocal = "[紅色][>50]0;[藍色]0"
Next


End Sub

EXCEL VBA - 格式

Sub 格式()

Do While ActiveCell.Value <> Empty


Select Case ActiveCell.Value

Case Is > 900000000

Selection.NumberFormatLocal = "0000-000-000"

Case Is < 90000000

Selection.NumberFormatLocal = "(00)000-0000"

Case Else

Selection.NumberFormatLocal = "(00)0000-0000"
End Select

ActiveCell.Offset(1, 0).Select

Loop



End Sub

EXCEL VBA

Sub 還原()

x = InputBox("請輸入還的欄號")

s = x & ":" & x

Columns(s).Select
Selection.NumberFormatLocal = "G/通用格式"
Range("A1").Select

END SUB

2009年9月13日星期日

朋友來的信 - 請大家注意

各位大家好:
現在街上出現了一些自稱為"抗炎組"的人,他們手持"消毒劑",假稱替人們的手消毒,要求人們把手伸出來。當他們在你的手噴完"消毒劑"後,接著他們會說先生∕小姐你的公事包∕手袋上的拉鍊也會有細菌,希望你能把拉鍊拉開,來替你的拉鍊消毒,然後他們會在拉鍊上噴上"消毒劑",趁著這些時間來看看你手袋內的東西,在你沒有提防的情況下,以最快的時間從手袋內拿走名貴的東西(當然是錢包或電話),再以最快的速度逃走。
他們的特徵如下:
1. 大多是女孩子,藉以減低你對他們的戒心。
2. 掛著大口罩,令你難以辨認出他們的容貌。
3. 手持"消毒劑"。
如果一旦遇上了,不用理會或者盡快報警處理,請大家在新流感疫期間,要特別注意這種假好心真行搶的行為。

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱