VBA 决策

简介

VBA（Visual Basic for Applications）是一种用于自动化Microsoft Office应用程序的编程语言。在Excel、Access等Office应用程序中，可以使用VBA编写程序来扩展其功能，实现自动化操作等。其中，决策结构是VBA编程中的重要概念之一，它可以使程序根据条件执行不同的代码块。

决策结构

决策结构包括If...Then...Else语句和Select Case语句。下面分别介绍这两种语句。

If...Then...Else语句

If...Then...Else语句用于根据条件执行不同的代码块，语法如下：

If condition Then
    '执行代码块1
Else
    '执行代码块2
End If

其中，condition为一个要测试的条件，如果它为真，则执行代码块1，否则执行代码块2。例如，以下代码根据用户输入的成绩进行评级：

Sub Grade()
    Dim score As Double
    score = InputBox("请输入成绩：")
    If score >= 90 Then
        MsgBox "优秀"
    ElseIf score >= 80 Then
        MsgBox "良好"
    ElseIf score >= 70 Then
        MsgBox "一般"
    ElseIf score >= 60 Then
        MsgBox "及格"
    Else
        MsgBox "不及格"
    End If
End Sub

Select Case语句

Select Case语句也用于根据条件执行不同的代码块，语法如下：

Select Case expression
    Case value1
        '执行代码块1
    Case value2
        '执行代码块2
    Case Else
        '执行代码块3
End Select

其中，expression为一个要测试的值，如果它等于value1，则执行代码块1；如果它等于value2，则执行代码块2；否则执行代码块3。例如，以下代码根据用户输入的月份输出季节：

Sub Season()
    Dim month As Integer
    month = InputBox("请输入月份：")
    Select Case month
        Case 1 To 3
            MsgBox "冬季"
        Case 4 To 6
            MsgBox "春季"
        Case 7 To 9
            MsgBox "夏季"
        Case 10 To 12
            MsgBox "秋季"
        Case Else
            MsgBox "输入错误"
    End Select
End Sub

总结

决策结构是VBA编程中的重要概念之一，它可以使程序根据条件执行不同的代码块。掌握If...Then...Else语句和Select Case语句可以帮助我们编写更加灵活的程序。