简单的 VBA 基础学习代码示例，帮助理解 VBA 的基本概念和用法

蘭雅

1. 打印消息框

Sub 打印消息()
    MsgBox "你好，欢迎学习 VBA!"
End Sub

2. 变量和简单计算

Sub 变量计算()
    Dim a, b, 总和 As Integer
    
    a = 5
    b = 10
    总和 = a + b
    
    MsgBox "5 和 10 的总和是: " & 总和
End Sub

3. 使用 If 语句

Sub 判断数字()
    Dim num As Integer
    num = InputBox("请输入一个数字:")
    
    If num > 0 Then
        MsgBox "你输入的是正数!"
    ElseIf num < 0 Then
        MsgBox "你输入的是负数!"
    Else
        MsgBox "你输入的是零!"
    End If
End Sub

4. 使用 For 循环

Sub 打印数字()
    Dim i As Integer
    
    For i = 1 To 5
        MsgBox "当前数字是: " & i
    Next i
End Sub

5. 使用 While 循环

Sub 计数到十()
    Dim i As Integer
    i = 1
    
    While i <= 10
        MsgBox "当前计数是: " & i
        i = i + 1
    Wend
End Sub

6. 数组的使用

Sub 使用数组()
    Dim 数字数组(1 To 5) As Integer
    Dim i As Integer
    
    ' 初始化数组
    For i = 1 To 5
        数字数组(i) = i * 10
    Next i
    
    ' 打印数组内容
    For i = 1 To 5
        MsgBox "数组第 " & i & " 个元素是: " & 数字数组(i)
    Next i
End Sub

7. 函数的定义和调用

Function 计算平方(数字 As Integer) As Integer
    计算平方 = 数字 * 数字
End Function

Sub 使用函数()
    Dim num As Integer
    num = 4
    MsgBox num & " 的平方是: " & 计算平方(num)
End Sub

这些示例展示了 VBA 中的一些基本语法和结构，帮助你入门！可以在 Excel 的 VBA 编辑器中运行这些代码，逐步理解它们的功能。