常用數(shù)據(jù)類型
1.Boolean
2.Integer(-32768 到 32767)
3.Long(-2,147,483,648 到 2,147,483,647)
4.String
定義變量
- Dim 變量名 As 數(shù)據(jù)類型
- Const 常量名 As 數(shù)據(jù)類型 ＝ 常量的值
- Dim/Public 數(shù)組名 (a to b) as 數(shù)據(jù)類型
if語(yǔ)句
if 邏輯表達(dá)式 then
語(yǔ)句塊
end if
if 邏輯表達(dá)式 then
語(yǔ)句塊1
else
語(yǔ)句塊2
end if
if 邏輯表達(dá)式1 Then
語(yǔ)句塊1
ElseIf 邏輯表達(dá)式2 Then
語(yǔ)句塊2
ElseIf 邏輯表達(dá)式3Then
語(yǔ)句塊3
…
Else
語(yǔ)句塊n
Eed If
For循環(huán)語(yǔ)句
For 循環(huán)變量＝初值 to 終值 step 步長(zhǎng)
循環(huán)體1
[exit for] // (退出循環(huán))
循環(huán)體2
Next 循環(huán)變量
For Each 元素變量 In 對(duì)象集合或數(shù)組名稱
語(yǔ)句塊1
[Exit For]
語(yǔ)句塊2
next 元素變量
Example:
Sub shtname()
Dim i As Integer, sht As Worksheet
i = 1
For Each sht In Worksheets
Cells(i, 1) = sht.Name
i = i + 1 //讓寫入名稱的單元格下移一行
Next
End Sub
程序流程控制——Do While語(yǔ)句
1罕伯、開頭判斷循環(huán)條件
Do Wihle 循環(huán)條件
語(yǔ)句塊1
[Exit Do]
語(yǔ)句塊2
Loop
2、結(jié)尾判斷循環(huán)條件
Do
語(yǔ)句塊1
[Exit Do]
語(yǔ)句塊2
Loop Wihle 循環(huán)條件