vba Elseif

在VBA（Visual Basic for Applications）中，`ElseIf`语句用于条件控制结构，当满足某个条件但上一个`If`条件未成立时，执行相应的代码块。`ElseIf`与`If...Then`和`Else`一起构成多分支的选择结构。这里有两个示例展示了`ElseIf`的用法：

**示例1 - 使用基本的`If...Then`和`ElseIf`**

Sub test004()
    Dim v_row_count As Integer, v_col_count As Integer
    v_row_count = 9
    v_col_count = 9
    
    For i = 1 To v_row_count
        For j = 1 To v_col_count
            If j <= i Then
                ' 当j小于等于i时，打印乘法表达式
                Cells(i, j) = i &amp; "*" &amp; j &amp; "=" &amp; (i * j)
            ElseIf j > i Then ' 如果j大于i，则退出当前内层循环
                Exit For
            Else ' 这个情况不会发生，因为之前有更具体的条件判断
                ' 没有定义Else部分，所以这部分永远不会被执行
                MsgBox "This case should not happen"
            End If
        Next j
    Next i
End Sub

**示例2 - 示例中包含`ElseIf`的改进版**

Sub test004()
    ' ... (其他代码同上)

    For i = 1 To v_row_count
        For j = 1 To v_col_count
            Cells(i, j) = i & "*" & j & "=" & (i * j)
            
            ' 使用ElseIf来简化条件判断
            ElseIf j % i = 0 Then ' 如果j能被i整除，也退出内层循环
                Exit For
            End If
            
            ' 如果没有满足上述条件，继续执行下一个内层循环迭代
        Next j
    Next i
End Sub