数据处理VBA篇：程序控制结构

结构化程序设计中基本的3中控制结构：顺序结构，选择结构，循环结构。其中，最基本的是顺序结构，它是后两种的基础。
注：代码中带有[ ]（中括号）的如果没有特殊说明，则表示可以不填写

1.顺序结构的输入\输出语句

debug.print #在立即窗口中输出结果，用于调试

Sub 乘法口诀()
   For i = 1 To 9
       For j = 1 To i
           Debug.Print i; "x"; j; "="; i * j; "  ";
       Next
       Debug.Print
   Next
End Sub

inputbox函数

注意：在跳出的input窗口中输入的数据vba默认是文本格式的，所以dim的时候得是string类型

Sub inputinfo()
    Title = "输入个人信息"
    'nani = "嘻嘻，我就是来测试一下"
    name1 = "请输入姓名"
    age1 = "请输入年龄"
    address1 = "请输入地址"
    strname = InputBox(name1, Title)
    age = InputBox(age1, Title)
    Address = InputBox(address1, Title)
    Debug.Print "姓名: "; strname
    Debug.Print "年龄: "; age
    Debug.Print "地址: "; Address
End Sub

msgbox函数

2.分支结构（选择结构）

if 逻辑表达式 then 语句

IF  逻辑表达式 then
    语句1
    语句2
    ……
end if

if 逻辑表达式 then
   语句序列1
else
  语句序列2
end if

if 逻辑表达式 then
   语句序列1
else
  语句序列2
end if

if 逻辑表达式1 then
   语句序列1
elseif 逻辑表达式2 then
   语句序列2
elseif 逻辑表达式3 then
   语句序列3
 …………
else
  语句序列n
end if

select case 测试表达式
case 表达式列表1
     语句序列1
case 表达式列表2
     语句序列2
……
case else
     语句序列n
end select
     在以上结构中，首先计算出测试表达式的值，然后，vba将表达式的值与结构中的每个case的值进行比较，如果相等，就执行与该case语句下面的语句块，执行完后再跳转到end select语句后执行。
注：“测试表达式”通常是一个数值型或者字符型的变量。
“表达式列表”可以是一个或几个值的列表，如果在一个列表中有多个值，需要用逗号分隔开。
表达式列表可以按照以下几种情况来书写：
一些具体取值：如case 10,15,25
A TO B:如 case 10 to 20表示10到20之间的值
IS 比较运算符：如 case is>60  表示所有大于60的值
以上三种情况的混合。例如 case 4 to 10,15,is > 20

[图片上传中。。。（1）]

Sub 显示不及格学生()
    Dim i As Integer
    For i = 3 To 11
        If Sheet1.Cells(i, 2) < 60 Then
            Sheet1.Cells(i, 2).Select
            Selection.Font.FontStyle = "加粗"
            Selection.Font.ColorIndex = 3
        End If
    Next
End Sub

Sub 根据身份证号判断性别()
    Dim sid As String, length As Integer, s, sex As String
    sid = InputBox("请输入身份证号: ")
    length = Len(sid)
    If length <> 15 And length <> 18 Then
        MsgBox "身份证号必须是15位数或者18位数"
        Exit Sub
    End If
    If length = 15 Then
        s = Right(sid, 1)
    Else
        s = Mid(sid, 17, 1)
    End If
    If Int(s / 2) = s / 2 Then
        sex = "女"
    Else
        sex = "男"
    End If
    MsgBox "性别: " + sex
End Sub

[图片上传中。。。（2）]

Sub 评定成绩等级()
    Dim i As Integer

        If Sheet1.Cells(i, 2) < 60 Then
            Cells(i, 3) = "E"
        ElseIf 60 <= Sheet1.Cells(i, 2) And Sheet1.Cells(i, 2) < 70 Then
            Cells(i, 3) = "D"
        ElseIf 70 <= Sheet1.Cells(i, 2) And Sheet1.Cells(i, 2) < 80 Then
            Cells(i, 3) = "C"
        ElseIf 80 <= Sheet1.Cells(i, 2) And Sheet1.Cells(i, 2) < 90 Then
            Cells(i, 3) = "B"
        Else
            Cells(i, 3) = "A"
        End If
    Next
End Sub

3.循环结构

do while  逻辑表达式
     语句序列1
     [exit do]
     [语句序列2]
loop
注：在循环体中，如果有exit do，当执行到exit do语句，马上跳出循环，执行loop的下一条语句。使用这个循环结构时可以不知道具体的循环次数

do while …… loop:先测试条件，如果条件成立，则执行循环体
do …… loop while:先执行一遍循环体，再测试条件，如果条件成立则执行循环体
do …… loop until:先执行一遍循环体，再测试条件，如果条件不成立则执行循环体
do until …… loop:先测试条件，如果条件不成立，则执行循环体

#密码验证
Sub 输入密码()
    Dim password As String                                      '输入的密码
    Dim i As Integer                                            '输入密码的次数，规定最多3次
    Do While i < 3
        password = InputBox("请输入密码", "信息管理系统")
        If password = "123456" Then                             '正确密码：123456
            Exit Do
        Else
            MsgBox "请输入正确密码"
        End If
        i = i + 1
    Loop
    If i >= 3 Then
        MsgBox "非法用户，系统将退出"
        Application.Quit                                       '退出excel
    Else
        MsgBox "欢迎使用本系统"
    End If
End Sub

如果知道具体的循环次数，最好使用以下结构：

for 循环变量 = 初始值 to 终值 [step 步长值]
     语句序列1
     [exit for]
     [语句序列2]
next [循环变量]
注：步长值可正可负，如果步长值为正，则初始值必须小于终值；如果步长值为负，则初始值必须大于终值。如果没有设置step，则步长默认为1
循环次数 = [（终值-初始值）/步长值] + 1   #这里的中括号表示取整

#生成ASCII码表

Sub 生成ascii()
    Dim i As Integer, a As Integer
    i = 3
    For a = 32 To 126
        Sheet2.Cells(i, 1) = a
        Sheet2.Cells(i, 2) = Chr(a)
        i = i + 1
    Next
End Sub

for each 元素 in 对象集合
     [语句序列1]
     [exit for]
     [语句序列2]
next
说明：对对象集合中的每一个元素执行一次循环体。exit for 经常在条件判断之后使用，例如 if …… then

# 随意选取的区域的值之和

Sub 求和()
    Dim i
    Dim a As Long
    For Each i In Selection
        If IsNumeric(i.Value) Then
            a = a + i.Value
        End If
    Next
    MsgBox "所选区域的值之和为: " & a
End Sub