标签：name 总结 select 编译错误 elseif test cas case each
一 条件判断语句
(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
标签：name 总结 select 编译错误 elseif test cas case each
原文地址：https://www.cnblogs.com/fangyz/p/13234081.html
