【原】Excel VBA 语法基础

MediaTea 2023-06-19 发布于湖南

展开全文

VBA（Visual Basic for Applications）是一种用于宏编程和自动化任务的编程语言，广泛应用于 Microsoft Office 套件中的各种应用程序，如 Excel、Word 和 PowerPoint。掌握 VBA 基础语法可以帮助您通过编写自定义的宏来增强和自动化这些应用程序的功能。

本文将介绍 Excel VBA 的基础语法，帮助您入门这一强大的编程语言。

1、VBA 的基本结构。

VBA 的代码以 Sub 和 End Sub 之间的块（称为“过程”）的形式组织。一个过程可以是一个宏或一个子例程。

下面是一个简单的示例：

Sub HelloWorld() '过程的名称不能以数字开头，不能有空格，可以是中文    MsgBox "Hello, World!"End Sub

在这个示例中，Sub 关键字定义了一个过程名为 HelloWorld 的宏，宏中的代码通过 MsgBox 函数显示一条消息框。

2、注释。

注释用于向代码添加说明和解释，对于代码的可读性和维护性非常重要。

在 VBA 中，可以使用单引号（'）来表示注释，注释后的内容将被视为注释而不会被执行。

' 这是一个注释

3、变量和数据类型。

在 VBA 中，可以使用变量来存储和操作数据。变量在使用前需要进行声明，并指定其数据类型。

常见的数据类型包括：整数（Integer）、长整数（Long）、单精度浮点数（Single）、双精度浮点数（Double）、字符串（String）、布尔型（Boolean）、日期（Date）、可变（Variant）等。

定义变量：

Dim [变量名] As [数据类型]

Dim age As Integerage = 25
Dim name As Stringname = "MediaTea"

定义常量：

Const [常量名] As [数据类型] = [常量值]

Const PI As Single = 3.1415926

定义数组：

Dim [数组名]( )

数组声明的方式与声明变量相同，只是数组变量的声明使用括号。

Dim arr(5) '若数组下标从 0 开始时，它可以保持 6 个值
Dim arr1(0 To 3, 0 To 4) As Variant '定义一个三行四列的二维数组
arr2 = Array(1, 2, 3, 4, 5) '使用 Array 方法定义数组
arrStr = Split("apple,banana,orange", ",") '使用Split函数将字符串转换为数组
arr(0) = "MediaTea"arr(1) = 100arr(2) = 3.14arr(3) = True  '布尔型arr1(0, 1) = #6/18/2023#   '日期arr1(2, 3) = #12:45:00 PM# '时间
If arr(3) Then  MsgBox arrStr(0) '显示 appleEnd If
If arr2(3) < 5 Then  MsgBox arr(0) '显示 MediaTeaEnd If

4、运算符。

4.1 算术操作符

+ （加）、 - （减）、 * （乘）、 / （除）、 % （求余）、 ^ （乘方）

4. 2 关系运算符

= （等于）、 <> （不等于）、 > （大于）、 < （小于）、 >= （大于等于）、 <= （小于等于）

4.3 逻辑运算符

AND （与）、 OR （或）、 NOT （非）、 XOR （异或）

4.4 连接操作符

& （连接）、 + （字符串连接）

Dim a, b As Integera = 15b = 5MsgBox (a + b) * 2 '结果为 40MsgBox ("15" + "5") * 2 '结果为 310MsgBox a & b '结果为 155

5、条件语句。

条件语句用于根据条件的真假来执行不同的代码块。在 VBA 中，常见的条件语句有 If 语句和 Select Case 语句。示例如下：

If 语句：

Dim score As Integerscore = 85
If score >= 90 Then    MsgBox "优秀"ElseIf score >= 80 Then    MsgBox "良好"ElseIf score >= 70 Then    MsgBox "中等"Else    MsgBox "不及格"End If

Select Case 语句：

Dim dayOfWeek As StringdayOfWeek = "Monday"
Select Case dayOfWeek    Case "Monday", "Tuesday", "Wednesday", "Thursday", "Friday"        MsgBox "工作日"    Case "Saturday", "Sunday"        MsgBox "周末"    Case Else        MsgBox "无效的输入"End Select

6、循环结构。

循环结构用于重复执行一段代码。在 VBA 中，常见的循环结构有 For 循环和 Do While 循环。示例如下：

For Next 循环：

Dim i As Integer
For i = 1 To 5 Step 1     Debug.Print i  '在立即窗口显示 i 值Next i

For Each 循环：

'常用于列举数组或集合中的每个元素fruits = Array("苹果", "香蕉", "雪梨")For Each Item In fruits    MsgBox ItemNext

Do While 循环：

Dim x As Integerx = 2Do While x <= 10 Cells(x, 5).Value = 100 '将 E2:E10 单元格填充为 100 x = x + 1Loop

7、函数和过程。

函数和过程用于封装可重用的代码块。函数可以返回一个值，而过程不返回值。

在 VBA 中，可以使用 Function 关键字定义函数，使用 Sub 关键字定义过程。示例如下：

函数：

Function AddNumbers(ByVal num1 As Integer, ByVal num2 As Integer) As Integer    AddNumbers = num1 + num2End Function

过程：

Sub Greet(ByVal name As String)    MsgBox "Hello, " & name & "!"End Sub

8、Excel VBA 常用对象及方法。

8.1 单元格对象相关

Range、[ ]、Cells(行号，列号)

a = Range("A1") '表示 A1 单元格Range("C1") = Application.Sum(Range("A1:A9"))   '对 A1 到 A9 单元格求和，并将结果放在 C1 单元格
[A1] = "MediaTea"    '对 A1 单元格填充字符串d = [A1:A9]    '表示 A1 到 A9 单元格
e = Cells(2, 3) '表达第 2 行第 3 列的单元格，即 C2 单元格

End( )、Offset(行数，列数 )

Dim x As Integer, y As Integerx = Range("B2").End(xlDown).Row '返回 B2 下方有内容的单元格的行数。
Range("B2").End(xlDown).Offset(1, 0).Value = 100 '将 B2 下方最后一个有内容的单元格下面的单元格赋值。
'对 B2 下方所有有内容的单元格右侧的 E 列单元格赋值For x = 2 To Range("B2").End(xlDown).Row   Cells(x, 5).Value = 100 Next x

8.2 单元格操作相关

比如，获取单元格的值、对单元格进行赋值、设置单元格的格式、对单元格进行复制或剪切，等等。

'对当前工作簿中的 Sheet1 工作表中的 A1 单元格赋值ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = "MediaTea"
'显示当前工作表中的 A1 单元格的值MsgBox Range("A1")
'设置单元格的填充色Range("A1").Interior.ColorIndex = 24
'设置单元格的字体大小Range("A1").Font.Size = 12
'为当前选中的单元格（区域）设置字体颜色Selection.Font.Color = RGB(255, 0, 0)
'清除单元格内容Range("A1").ClearContents             '将 B3 的值复制到 C3 单元格Range("A1").Copy Range("C3")
'将 C3 的值剪切到 D3 单元格Range("C3").Cut Range("D3")