combobox 下拉式選單

Adding Items

新增下拉式選單的選項

box.AddItem item[, index]
box    該下拉式選單的物件
item   字串
index   放置該新增字串的位置. 0 在最前面，


範例1

    ComboBox1.AddItem "A"
    ComboBox1.AddItem "B"
    ComboBox1.AddItem "C"

範例2

Private Sub CommandButton1_Click()

    ComboBox1.AddItem TextBox1.Value, 2
   
End Sub



Removing Items

刪除下拉式選單的選項

box.RemoveItem index

box    該下拉式選單的物件

index   欲刪除選項的位置. 0 在最前面，

範例

Private Sub CommandButton1_Click()

    ComboBox1.RemoveItem 0
   
End Sub

Clear Items

清空所有選項

box.Clear

範例

Private Sub CommandButton1_Click()

    ComboBox1.Clear


End Sub



Getting the value of the currently selected item

取得正選取選項的值

box.value

box.text

box    該下拉式選單的物件

value  該選單選項的值

text   該選單選項的文字

以上兩種方法都可以

範例

方法1

Private Sub CommandButton1_Click()

    MsgBox ComboBox1.Text
   
End Sub


方法2

Private Sub CommandButton1_Click()

    MsgBox ComboBox1.Value
   
End Sub



Getting List Items with the List Property

box.List(index)

box    該下拉式選單的物件

index  欲取得選項的位置. 0 在最前面，

範例

Private Sub CommandButton1_Click()

    MsgBox ComboBox1.List(0)
   
End Sub

Returning the Number of Items with the ListCount Property

box.ListCount

box    該下拉式選單的物件

範例

Private Sub CommandButton1_Click()

    MsgBox ComboBox1.ListCount
   
End Sub

VB字串 常用處理函數

Len：計算字串的長度。
範例：strLen=Len("Taiwan")
結果：6


Mid：依開始位置擷取固定長度字串。
範例：strLen=Mid("Taiwan",1,2)
結果：ai


Left：將字串由左側擷取固定長度。
範例：strLen=Left("Taiwan",2)
結果：Ta
 

Right：將字串由右側擷取固定長度。
範例：str=Right(" Taiwan ",2)
結果：an


Lcase：將字串中的大寫字母轉成小寫。
範例：str=Lcase("Taiwan")
結果：taiwan


Ucase：將字串中的小寫字母轉成大寫。
範例：str=Ucase("Taiwan")
結果：TAIWAN


Trim：刪頭尾空白
範例：str=Trim("   Taiwan    ")
結果：Taiwan


Ltrim：刪字串左側的空白
範例：str=Ltrim("  Taiwan    ")
結果：Taiwan   


Rtrim：刪字串右側的空白
範例：str=Rtrim("  Taiwan    ")
結果：  Taiwan


Replace：將字串中的某字串，以另一字串代替。
範例：str=Replace("Taiwan","Tai"," Nan ")
結果：Nanwan


Instr：傳回子字串在字串中的第一次出現位置。
範例：strLen=Instr("ABCabc","a")
結果：1


Space：產生指定個數空白。
範例：Space(10)
結果：10個空白


String：產生指定個數的字元。
範例：str=String(5,"$")
結果：$$$$$


範例：str=String(4,66)
結果：BBBB
 
StrReverse：將字串前後反轉。
範例：str=StrReverse(" Taiwan ")
結果：nawiaT


Split：字串分割
範例：str=Split("Taiwan","T")
結果：
str(0)="T"
str(1)="aiwan"


StrComp：字串比較
範例：
str1=StrComp("Taiwan","Tai")
str2=StrComp("Taiwan","wan")
str3=StrComp("Taiwan","Taiwan")
結果：
str1=1
str2=-1
str3=0

VBA 基本語法

EXCEL常用的物件：

Workbook 活頁簿
Workbooks 活頁簿集合
Workbooks("filename") 檔名為filename的活頁簿
ActiveWorkbook 正在作用中的活頁簿
Sheets 活頁簿中所有工作表
Sheets(n) 活頁簿中第n張工作表
Worksheet 工作表
Worksheets 所有工作表(包括圖表)
Worksheets("sheet") 指表名為sheet工作表
ActiveSheet 正在作用中的工作表
Columns("c1:c2") c1至c2欄
   (其中c1,c2為A~Z或AA~XFD等欄名)
Rows("r1:r2") r1至r2列
   (其中r1,r2為1~1048576等列名
Range("x1:x2") x1至x2間的儲存格
   (其中x1,x2為儲存格位址名稱)
cells(i,j) 儲存格(第i列、第j行)
ActiveCell 目前的儲存格
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