vba介绍及基础用法

一、VBA（Visual Basic for Applications）简介

VBA是一种编程语言，它内置于许多Microsoft Office应用程序（如Excel、Word、PowerPoint）中，用于自动化任务、扩展应用程序功能以及进行复杂的数据处理和操作。在Excel中，VBA可以让用户通过编写代码来控制工作表、单元格、图表等对象，实现一些通过常规菜单和工具难以完成的功能。

例如，如果你需要每天对大量的销售数据进行重复的格式设置、计算和报表生成，使用VBA可以编写一个宏来自动完成这些任务，大大提高工作效率。

二、VBA基础用法

（一）进入VBA编辑器

1. 在Excel中打开VBA编辑器
   • 在Excel中，可以通过“开发工具”选项卡进入VBA编辑器。如果你的Excel界面没有显示“开发工具”选项卡，可以在Excel选项中进行设置，使其显示。在“开发工具”选项卡中，点击“Visual Basic”按钮，就可以打开VBA编辑器。
2. VBA编辑器界面介绍
   • 工程资源管理器：它显示了当前打开的工作簿（Workbook）以及其中包含的工作表（Worksheet）、模块（Module）等对象。可以在这里方便地导航和管理不同的VBA代码模块。
   • 属性窗口：用于查看和设置所选对象的属性。例如，对于一个工作表对象，可以在这里设置它的名称、可见性等属性。
   • 代码窗口：这是编写VBA代码的主要区域。在这里可以定义变量、编写过程（Sub）和函数（Function）等代码。

（二）编写第一个VBA程序（Hello World示例）

1. 在模块中编写代码
   • 在VBA编辑器中，通过“插入”菜单选择“模块”，然后在新插入的模块的代码窗口中输入以下代码：

   Sub HelloWorld()
       MsgBox "Hello, World!"
   End Sub
   

2. 运行代码
   • 可以通过以下几种方式运行这个代码：
   • 在VBA编辑器中，将光标定位在“HelloWorld”过程内部，然后按下F5键。
   • 或者在Excel界面中，通过“开发工具”选项卡中的“宏”按钮，找到“HelloWorld”宏并点击“运行”。
   • 当代码运行时，会弹出一个消息框，显示“Hello, World!”。

（三）变量和数据类型

1. 变量声明
   • 在VBA中，变量用于存储数据。可以使用“Dim”关键字来声明变量。例如，声明一个整数变量“i”和一个字符串变量“str”：

   Dim i As Integer
   Dim str As String
   

2. 数据类型
   • VBA中有多种数据类型，如整数（Integer）、长整数（Long）、单精度浮点数（Single）、双精度浮点数（Double）、字符串（String）、布尔值（Boolean）等。不同的数据类型用于存储不同类型的数据，并且占用不同的内存空间。
   • 例如，整数类型（Integer）用于存储整数，范围是 - 32768到32767；长整数类型（Long）的范围更大，适合存储较大的整数。
3. 变量赋值
   • 声明变量后，可以使用赋值语句为变量赋值。例如：

   i = 10
   str = "Hello"
   

（四）过程（Sub）和函数（Function）

1. 过程（Sub）
   • 过程是一组执行特定任务的VBA语句，它不返回值。例如，前面的“HelloWorld”就是一个过程。过程可以接收参数，也可以没有参数。
   • 下面是一个带有参数的过程示例，用于将指定单元格的值设置为一个给定的数字：

   Sub SetCellValue(cell As Range, value As Integer)
       cell.Value = value
   End Sub
   

   • 可以在Excel中调用这个过程，如“SetCellValue Range(“A1”), 20”，这样就会将A1单元格的值设置为20。
2. 函数（Function）
   • 函数与过程类似，但函数会返回一个值。例如，下面是一个简单的函数，用于计算两个整数的和：

   Function AddNumbers(num1 As Integer, num2 As Integer) As Integer
       AddNumbers = num1 + num2
   End Function
   

   • 在Excel工作表中，可以像使用内置函数一样使用这个自定义函数，如“=AddNumbers(3, 5)”，就会返回8。

（五）控制结构

1. 条件语句（If - Then - Else）
   • 条件语句用于根据条件执行不同的代码块。例如，下面的代码根据一个单元格的值是否大于10来显示不同的消息：

   Sub CheckValue()
       Dim cellValue As Integer
       cellValue = Range("A1").Value
       If cellValue > 10 Then
           MsgBox "大于10"
       Else
           MsgBox "小于等于10"
       End If
   End Sub
   

2. 循环语句（For - Next和Do - Loop）
   • For - Next循环：用于指定次数的循环。例如，下面的代码计算1到10的整数和：

   Sub SumNumbers()
       Dim sum As Integer
       Dim i As Integer
       sum = 0
       For i = 1 To 10
           sum = sum + i
       Next i
       MsgBox sum
   End Sub
   

   • Do - Loop循环：有两种形式，一种是“Do While - Loop”，另一种是“Do Until - Loop”。例如，下面是一个“Do While - Loop”循环，用于在单元格的值小于100时，每次将其值加倍：

   Sub DoubleValue()
       Dim cellValue As Integer
       cellValue = Range("A1").Value
       Do While cellValue < 100
           cellValue = cellValue * 2
       Loop
       Range("A1").Value = cellValue
   End Sub