和其他语言相同,都有顺序、条件(选择)、循环这些基本语句。不同的语言在表达方式上或多或少都有一些差异。顺序语句都没什么好说的,主要就是条件语句和循环语句。
语序结构
a. if 条件语句
'if 条件语句
If 判断条件 Then
所要执行的操作
Elseif Then
所要执行的操作
'……
'……
Else
所要执行的操作
End if
'当只有一句判断的时候可以直接写在一行,并且不用加 End if ,加了会报错。例如:
If Range("a1") >= 60 Then Msgbox "成绩合格!"
b. Select 条件语句
'Select case 语句
Select case num
Case 判别条件 '一般数值范围都用 to 防止使用大于等于出错,例如 59 to 100 。
所要执行的操作
Case 判别条件
所要执行的操作
'……
'……
Case else
所要执行的操作
End Select
c. for 循环语句
'for 循环语句
For 变量 = 初值 to 终值 [step 步长] '默认步长为一
所要执行的操作
……
Next
'需要跳出循环的情况下,使用 Exit for 语句。
d. Do 循环语句
'do 循环语句
Dim i as Interger
i = 1
Do
i = i + 1
If i>8 Then Exit Do
Range("a" & i) = i
Loop
Do 循环语句之前没有接触过,所以只是找了个例子写了一下,等用到再整理吧!
e. For each 循环语句
'For Each ... Next 循环语句
'在 A1-A100 单元格内填入 1-100 。
Dim i as Interger, c as Range
'c 为元素变量,可以是 Range 也可以是 Worksheet 等
i = 1
For Each c in Rang("A1:A100")
c.Value = i
i = i + 1
Next
f. With语句
'With 语句(简化重复)
'【举例】调整 Sheet1 中 A1 单元格字体。
'不使用 With
Worksheets("sheet1").Range("A1").Font.Name = "微软雅黑"
Worksheets("sheet1").Range("A1").Font.Size = 12
Worksheets("sheet1").Range("A1").Font.Bold = True
Worksheets("sheet1").Range("A1").Font.ColorIndex = 3
'使用 With 语句
With Worksheets("sheet1").Range("A1").Font
.Name = "微软雅黑"
.Size = 12
.Bold = True
.ColorIndex = 3
End With
PS:大多数语句只是都是从网站或者书籍上整理的,主要是为了统一一起方便自己查阅!