vba 判断进行下次循环_Excel中VBA判断和循环语句表示方法和操作

SunYoung

1、 If判断语句

语法：If 条件 Then 语句1

End If

例如：If Cells(1,1)>90 Then ‘判断A1单元格的值是否大于90，如果大于90

MsgBox”优秀”,vbinformation,”提示” ‘弹出信息提示框，显示优秀

End If

优秀

语法：If 条件1 Then 语句1

Elseif 条件2 Then 语句2

End If

例如：If Cells(1,1)<60 Then ‘判断A1单元格的值是否小于60，如果小于60

MsgBox”不及格”,vbinformation,”提示” ‘弹出信息提示框，显示不及格

Elseif Cells(1,1)<90 Then ‘大于60而小于90

MsgBox”中等”,vbinformation,”提示” ‘弹出信息框，显示中等

Elseif Cells(1,1)<=100 Then ‘大于90

MsgBox”优秀”,vbinformation,”提示” ‘弹出信息框，显示优秀

End If

小于60显示不及格

中等

优秀

2、 For…Next…循环语句

例如： For i=1 To 10 ‘功能是第一列显示1，2，3……10

Cells(i,1)=i ‘单元格的值随着i的值而改变

Next i

填入数

例如：从E1~E23区域数据中找出与A1~A13区域中关键字相同的数据挑选出来，把与之对应F1~F23中的值复制到B1~B13

For i=1 To 13

For j=1 To 23

If Cells(i,1)=Cells(j,5) Then

Cells(i,2)=Cells(j,6) ‘也可以写成Cells(j,6).Copy Cells(i,2)

End If

Next j

Next i

查找需要的数据

未完待续......