Excel VBA 相關語法－電腦學習園地

EXCEL常用的物件
1. Workbook 活頁簿
2. Workbooks 活頁簿集合
3. Workbooks("filename") 檔名為filename的活頁簿
4. ActiveWorkbook 正在作用中的活頁簿
5. Sheets 活頁簿中所有工作表
6. Sheets(n) 活頁簿中第n張工作表
7. Worksheet 工作表
8. Worksheets 所有工作表(包括圖表)
9. Worksheets("sheet") 指表名為sheet工作表
10. ActiveSheet 正在作用中的工作表
11. Columns("c1:c2") c1至c2欄(其中c1,c2為A~Z或AA~XFD等欄名)
12. Rows("r1:r2") r1至r2列(其中r1,r2為1~1048576等列名
13. Range("x1:x2") x1至x2間的儲存格(其中x1,x2為儲存格位址名稱)
14. cells(i,j) 儲存格(第i列、第j行)
15. ActiveCell 目前的儲存格
16. Selection 目前所選取的物件
範例：
- Workbooks("Book1").Sheets("Sheet1").Range("A1:D5").Font.Bold = True
- Worksheets("Sheet1").Cells.ClearContents
- Worksheets("Sheet1").Rows(1).Font.Bold = True
- Range("1:1,3:3,8:8")
- Worksheets("Sheet1").Cells(6, 1).Value = 10
- Worksheets("Sheet1").[A1:B5].ClearContents
- ActiveCell.Offset(1, 3).Font.Underline = xlDouble
活頁簿常用屬性：
- ActiveWorkBook.Name 目前活頁簿的名稱
- ActiveWorkBook.Save 儲存目前的活頁簿
- ActiveWorkBook.SaveAs Filename := "filename" 另儲新檔
- WorkBooks.Add 新增活頁簿
- WorkBooks(i).Close [SaveChange, Filename, RouteWorkbook] 關閉指定的第i個活頁簿
  - SaveChange := True 改變儲存
  - SaveChange := False 不會改變儲存
  - SaveChange省略時，會出現對話方塊
  - filename := "檔名"
- WorkBooks.Open "filename" 開啟一個活頁簿
- Application.Windows 所有活頁簿視窗
- WorkBooks.Count 活頁簿的數量
- WorkBooks.Item(Index) 傳回單一活頁簿，由索引值指定
工作表常用屬性：
- Worksheets.Add [Before, After, Count, Type] 新增工作表
  - Before := Worksheets(n) 出現於某工作表之前
  - After := Worksheets(n) 出現於某工作表之後
  - Count := n 新增工作表數量
  - Type := xlWorksheet (工作表) 或 xlChart (圖表)
- WorkSheets.Name 工作表名稱
- WorkSheets("Sheet1").Activate 設定工作表為目前作用的功作表
儲存格常用屬性：
- Rows.RowHeight 指定範圍內的所有列高
- Columns.ColumnsWidth：指定範圍內的所欄寬
- expression.NumberFormatLocal 以本地的數字格式
- Range.CurrentRegion 目前區域是指以任意空白列及空白欄的組合為邊界的範圍
```
範例：
Worksheets("Sheet1").Activate
ActiveCell.CurrentRegion.Select
```
- expression.Address(RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo) 以參照的方式
  - RowAbsolute 為True，則用列的絕對位址
  - ColumnAbsolute 為True，則用欄的絕對位址
  - ReferenceStyle 預設值為xlA1，如為xlR1C1則為R1C1的表達方式
- expression.count 傳回範圍的數量(可以是欄數、列數或儲存格數量)
- expression.Item(RowIndex, ColumnIndex) 代表相對於指定之範圍某個位移距離的範圍。
- expression.value 傳回或設定物件的值
- expression.Formula 傳回或設定物件的公式，代表 A1 樣式註解以及巨集語言中的物件公式。
  範例：Worksheets("Sheet1").Range("A1").Formula = "=$A$4+$A$10"
- expression.FormulaR1C1 傳回或設定物件的公式，並以巨集語言中的 R1C1 樣式標記法表示
  範例：Worksheets("Sheet1").Range("B1").FormulaR1C1 = "=SQRT(R1C1)"
- expression.Text 傳回或設定物件的文字
```
範例：
   Set c = Worksheets("Sheet1").Range("B14")
   c.Value = 1198.3
   c.NumberFormat = "$#,##0_);($#,##0)"
   MsgBox c.Value
   MsgBox c.Text
```

常用方法：

Range.Select方法/Selection屬性設定目前選取的範圍/使用目前所選取的範圍

範例：
Sub Macro1()
    Sheets("Sheet1").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Name"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Address"
    Range("A1:B1").Select
    Selection.Font.Bold = True
End Sub

expression.Copy 將目前所選取的物件復製至剪貼簿
expression.Cut 將目前所選取的物件剪下
expression.Delete 將目前所選取的物件刪除

expression.Paste 將剪貼簿的內容貼上

範例：
Sub CopyRow()
    Worksheets("Sheet1").Rows(1).Copy
    Worksheets("Sheet2").Select
    Worksheets("Sheet2").Rows(1).Select
    Worksheets("Sheet2").Paste
End Sub

expression.RasteSpecial(Paste,Operation, SkipBlanks, Transpose)

範例：
With Worksheets("Sheet1")
    .Range("C1:C5").Copy
    .Range("D1:D5").PasteSpecial _
        Operation:=xlPasteSpecialOperationAdd
End With

Range.Activate 目前的儲存格
Range.Clear 清除資料
Range.ClearContents 清除資料內容
Range.ClearFormats 清除資料格式
Range.ClearComments 清除註解
expression.AutoFit：自動調整列高和欄寬
Range.FillDown、Range.FillUp、Range.FillLeft、Range.FillRight 填滿

Range.Offset (RowOffset, ColumnOffset) 指定區域的位移列與行

範例：
Sub MoveActive()
    Worksheets("Sheet1").Activate
    Range("A1:D10").Select
    ActiveCell.Value = "Monthly Totals"
    ActiveCell.Offset(0, 1).Activate
End Sub

程式語法：

Dim 陳述式(變數)

Dim varname [ As [New] type]

type 包括 Byte、Boolean、Integer、Long、Single、Double、Date、String、Object等

Set 陳述式(物件)

Set objectvar = {[New] objectexpression | Nothing}

例：Set RangeA = Range("A1:B2")

範例：
Sub Random()
    Dim myRange As Range
    Set myRange = Worksheets("Sheet1").Range("A1:D5")
    myRange.Formula = "=RAND()"
    myRange.Font.Bold = True
End Sub

With 多種屬性設定

With 物件
.屬性1 = 設定值
.屬性2 = 設定值
.... End With

範例：
Sub AddNew()
Set NewBook = Workbooks.Add
    With NewBook
        .Title = "All Sales"
        .Subject = "Sales"
        .SaveAs Filename:="Allsales.xls"
    End With
End Sub

Array 陣列

Array(Range1, Range2, ....)

範例：
Sub Several()
    Worksheets(Array("Sheet1", "Sheet2", "Sheet4")).Select
End Sub

InputBox 函數

InputBox("文字說明",[,title][,default][,xpos][,ypos][,helpfile, context])
MsgBox 函數

MsgBox "文字說明"

Union 將多個範圍合併成單一Range物件

Union(Range1, Range2, ...)

範例：
Sub MultipleRange()
    Dim r1, r2, myMultipleRange As Range
    Set r1 = Sheets("Sheet1").Range("A1:B2")
    Set r2 = Sheets("Sheet1").Range("C3:D4")
    Set myMultipleRange = Union(r1, r2)
    myMultipleRange.Font.Bold = True
End Sub

For... Next 陳述式

For counter = start to end [ step stepvalue]
[statements]
[Exit For]
[statements]
Next [counter]

範例：
Sub CycleThrough()
    Dim Counter As Integer
    For Counter = 1 To 20
        Worksheets("Sheet1").Cells(Counter, 3).Value = Counter
    Next Counter
End Sub

For Each... Next 陳述式

For Each element In group
[statements]
[Exit For]
[statements]
Next [element]

範例：
Sub ApplyColor()
    Const Limit As Integer = 25
    For Each c In Range("MyRange")
        If c.Value > Limit Then
            c.Interior.ColorIndex = 27
        End If
    Next c
End Sub

Do ... Loop 陳述式

Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]
Loop
或
Do
[statements]
[Exit Do]
[statements]
Loop [{While | Until} condition]
If ... Then ... Else ... 陳述式

If condition Then [statements][Else elsestatements]
或
If condition Then
[statements]
[ElseIf condition-n Then
[elseifstatements]...
[Else
[elsestatements]]
End If