vba基础二 条件判断语句和循环语句总结

Posted 2020-12-14 fangyz

一 条件判断语句

(1)在vba中最常用的条件判断语句是if else。它分为两种：单行判断语句和多行判断语句，如下面代码所示。其中多行判断语句中，切记第一个if的then后面要换行。

Sub test8()

‘声明变量：学生成绩
Dim student_grade%
student_grade = 50

‘单行条件判断语句，不需要加end if
If student_grade > 90 Then MsgBox "优秀"


‘多行判断语句，需要加end if。
If student_grade > 90 Then          ‘要换行，否则会编译错误
    MsgBox "优秀"
ElseIf student_grade > 90 Then
    MsgBox "良好"
ElseIf student_grade > 60 Then
    MsgBox "及格"
Else
    MsgBox "不及格"
End If

End Sub

 (2)select case条件判断语句，它比较适合判断确定值，比如判断登入密码是否正确。

Sub test9()
‘声明变量：学生成绩
Dim student_grade%
student_grade = 90

Select Case student_grade
Case 90
    MsgBox "优秀"
Case 80
    MsgBox "良好"
Case 60
    MsgBox "及格"
Case Else
    MsgBox "不知道好不好"
End Select

End Sub

 

二 循环语句

 (1)for  to  next，它比较适合数字类型的判断，比如从1到5，或者从5到1。具体代码如下图所示。

Sub test10()

Dim icount%
‘正向循环，由小到大
For icount = 1 To 5
    If icount = 5 Then MsgBox "循环即将结束"
Next
‘反向循环，由大到小
For icount = 5 To 1 Step -1
    If icount = 1 Then MsgBox "循环即将结束"
Next

End Sub

(2) for each in next，这种主要用来对集合或数组进行循环，在实际工作中用到的更多。

Sub test11()

Dim gradesheet As Worksheet

For Each gradesheet In Worksheets
    MsgBox gradesheet.Name
Next

End Sub

(3)do loop until 和 do loop while。do loop是一种无限循环，而until和while则有循环判断的功能，两者合在一起形成循环。

Sub test11()

Dim icount%
‘until表示满足条件时，停止循环
Do Until icount > 5
icount = icount + 1
Loop

‘while表示满足条件时，开始循环
icount = 10
Do While icount > 5
icount = icount - 1
Loop

End Sub