VBA 语法及示例

VBA（Visual Basic for Applications）简介

VBA 是一种用于 Microsoft Office 应用程序的编程语言，主要用于自动化 Excel、Word 等 Office 软件的操作。通过编写 VBA 宏，用户可以大大提高工作效率。

VBA 基本语法

1. 声明变量

   • 使用 Dim 关键字声明变量。

   vba

   Dim x As Integer
   Dim y As String

2. 赋值语句

   • 使用等号 = 进行赋值。

   vba

   x = 10
   y = "Hello, World!"

3. 条件语句

   • 使用 If...Then...Else 结构。

   vba

   If x > 5 Then
       MsgBox "x 大于 5"
   Else
       MsgBox "x 不大于 5"
   End If

4. 循环语句

   • For...Next 循环。

   vba

   For i = 1 To 5
       MsgBox "i 的值是: " & i
   Next i

   • Do...Loop 循环。

   vba

   Do While x < 10
       x = x + 1
   Loop

5. 函数和子过程

   • 函数使用 Function 关键字定义，子过程使用 Sub 关键字定义。

   vba

   Function AddNumbers(a As Integer, b As Integer) As Integer
       AddNumbers = a + b
   End Function
   
   Sub ShowSum()
       Dim result As Integer
       result = AddNumbers(5, 7)
       MsgBox "5 + 7 = " & result
   End Sub

VBA 示例：Excel 中的操作

1. 在 Excel 中插入数据

   vba

   Sub InsertData()
       Dim ws As Worksheet
       Set ws = ThisWorkbook.Sheets("Sheet1")
       
       ws.Cells(1, 1).Value = "姓名"
       ws.Cells(1, 2).Value = "年龄"
       ws.Cells(2, 1).Value = "张三"
       ws.Cells(2, 2).Value = 28
   End Sub

2. 遍历 Excel 表格并求和

   vba

   Sub SumColumn()
       Dim ws As Worksheet
       Set ws = ThisWorkbook.Sheets("Sheet1")
       
       Dim sum As Double
       sum = 0
       
       Dim lastRow As Long
       lastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row
       
       Dim i As Long
       For i = 2 To lastRow
           sum = sum + ws.Cells(i, 2).Value
       Next i
       
       MsgBox "年龄总和为: " & sum
   End Sub

3. 创建图表

   vba

   Sub CreateChart()
       Dim ws As Worksheet
       Set ws = ThisWorkbook.Sheets("Sheet1")
       
       Dim chartObj As ChartObject
       Set chartObj = ws.ChartObjects.Add(Left:=100, Top:=100, Width:=300, Height:=200)
       
       With chartObj.Chart
           .SetSourceData Source:=ws.Range("A1:B10")
           .ChartType = xlColumnClustered
       End With
   End Sub

总结

以上是一些 VBA 的基本语法和示例代码。通过这些基础，您可以开始编写简单的宏来自动化日常任务。