【原】Excel VBA 語(yǔ)法基礎(chǔ)

mediaTEA 2023-06-19 發(fā)布于湖南

展開全文

VBA（Visual Basic for Applications）是一種用于宏編程和自動(dòng)化任務(wù)的編程語(yǔ)言，廣泛應(yīng)用于 Microsoft Office 套件中的各種應(yīng)用程序，如 Excel、Word 和 PowerPoint。掌握 VBA 基礎(chǔ)語(yǔ)法可以幫助您通過編寫自定義的宏來增強(qiáng)和自動(dòng)化這些應(yīng)用程序的功能。

本文將介紹 Excel VBA 的基礎(chǔ)語(yǔ)法，幫助您入門這一強(qiáng)大的編程語(yǔ)言。

1、VBA 的基本結(jié)構(gòu)。

VBA 的代碼以 Sub 和 End Sub 之間的塊（稱為“過程”）的形式組織。一個(gè)過程可以是一個(gè)宏或一個(gè)子例程。

下面是一個(gè)簡(jiǎn)單的示例：

Sub HelloWorld() '過程的名稱不能以數(shù)字開頭，不能有空格，可以是中文    MsgBox "Hello, World!"End Sub

在這個(gè)示例中，Sub 關(guān)鍵字定義了一個(gè)過程名為 HelloWorld 的宏，宏中的代碼通過 MsgBox 函數(shù)顯示一條消息框。

2、注釋。

注釋用于向代碼添加說明和解釋，對(duì)于代碼的可讀性和維護(hù)性非常重要。

在 VBA 中，可以使用單引號(hào)（'）來表示注釋，注釋后的內(nèi)容將被視為注釋而不會(huì)被執(zhí)行。

' 這是一個(gè)注釋

3、變量和數(shù)據(jù)類型。

在 VBA 中，可以使用變量來存儲(chǔ)和操作數(shù)據(jù)。變量在使用前需要進(jìn)行聲明，并指定其數(shù)據(jù)類型。

常見的數(shù)據(jù)類型包括：整數(shù)（Integer）、長(zhǎng)整數(shù)（Long）、單精度浮點(diǎn)數(shù)（Single）、雙精度浮點(diǎn)數(shù)（Double）、字符串（String）、布爾型（Boolean）、日期（Date）、可變（Variant）等。

定義變量：

Dim [變量名] As [數(shù)據(jù)類型]

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

定義常量：

Const [常量名] As [數(shù)據(jù)類型] = [常量值]

Const PI As Single = 3.1415926

定義數(shù)組：

Dim [數(shù)組名]( )

數(shù)組聲明的方式與聲明變量相同，只是數(shù)組變量的聲明使用括號(hào)。

Dim arr(5) '若數(shù)組下標(biāo)從 0 開始時(shí)，它可以保持 6 個(gè)值
Dim arr1(0 To 3, 0 To 4) As Variant '定義一個(gè)三行四列的二維數(shù)組
arr2 = Array(1, 2, 3, 4, 5) '使用 Array 方法定義數(shù)組
arrStr = Split("apple,banana,orange", ",") '使用Split函數(shù)將字符串轉(zhuǎn)換為數(shù)組
arr(0) = "MediaTea"arr(1) = 100arr(2) = 3.14arr(3) = True  '布爾型arr1(0, 1) = #6/18/2023#   '日期arr1(2, 3) = #12:45:00 PM# '時(shí)間
If arr(3) Then  MsgBox arrStr(0) '顯示 appleEnd If
If arr2(3) < 5 Then  MsgBox arr(0) '顯示 MediaTeaEnd If

4、運(yùn)算符。

4.1 算術(shù)操作符

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

4. 2 關(guān)系運(yùn)算符

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

4.3 邏輯運(yùn)算符

AND （與）、 OR （或）、 NOT （非）、 XOR （異或）

4.4 連接操作符

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

Dim a, b As Integera = 15b = 5MsgBox (a + b) * 2 '結(jié)果為 40MsgBox ("15" + "5") * 2 '結(jié)果為 310MsgBox a & b '結(jié)果為 155

5、條件語(yǔ)句。

條件語(yǔ)句用于根據(jù)條件的真假來執(zhí)行不同的代碼塊。在 VBA 中，常見的條件語(yǔ)句有 If 語(yǔ)句和 Select Case 語(yǔ)句。示例如下：

If 語(yǔ)句：

Dim score As Integerscore = 85
If score >= 90 Then    MsgBox "優(yōu)秀"ElseIf score >= 80 Then    MsgBox "良好"ElseIf score >= 70 Then    MsgBox "中等"Else    MsgBox "不及格"End If

Select Case 語(yǔ)句：

Dim dayOfWeek As StringdayOfWeek = "Monday"
Select Case dayOfWeek    Case "Monday", "Tuesday", "Wednesday", "Thursday", "Friday"        MsgBox "工作日"    Case "Saturday", "Sunday"        MsgBox "周末"    Case Else        MsgBox "無(wú)效的輸入"End Select

6、循環(huán)結(jié)構(gòu)。

循環(huán)結(jié)構(gòu)用于重復(fù)執(zhí)行一段代碼。在 VBA 中，常見的循環(huán)結(jié)構(gòu)有 For 循環(huán)和 Do While 循環(huán)。示例如下：

For Next 循環(huán)：

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

For Each 循環(huán)：

'常用于列舉數(shù)組或集合中的每個(gè)元素fruits = Array("蘋果", "香蕉", "雪梨")For Each Item In fruits    MsgBox ItemNext

Do While 循環(huán)：

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

7、函數(shù)和過程。

函數(shù)和過程用于封裝可重用的代碼塊。函數(shù)可以返回一個(gè)值，而過程不返回值。

在 VBA 中，可以使用 Function 關(guān)鍵字定義函數(shù)，使用 Sub 關(guān)鍵字定義過程。示例如下：

函數(shù)：

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 常用對(duì)象及方法。

8.1 單元格對(duì)象相關(guān)

Range、[ ]、Cells(行號(hào)，列號(hào))

a = Range("A1") '表示 A1 單元格Range("C1") = Application.Sum(Range("A1:A9"))   '對(duì) A1 到 A9 單元格求和，并將結(jié)果放在 C1 單元格
[A1] = "MediaTea"    '對(duì) A1 單元格填充字符串d = [A1:A9]    '表示 A1 到 A9 單元格
e = Cells(2, 3) '表達(dá)第 2 行第 3 列的單元格，即 C2 單元格

End( )、Offset(行數(shù)，列數(shù) )

Dim x As Integer, y As Integerx = Range("B2").End(xlDown).Row '返回 B2 下方有內(nèi)容的單元格的行數(shù)。
Range("B2").End(xlDown).Offset(1, 0).Value = 100 '將 B2 下方最后一個(gè)有內(nèi)容的單元格下面的單元格賦值。
'對(duì) B2 下方所有有內(nèi)容的單元格右側(cè)的 E 列單元格賦值For x = 2 To Range("B2").End(xlDown).Row   Cells(x, 5).Value = 100 Next x

8.2 單元格操作相關(guān)

比如，獲取單元格的值、對(duì)單元格進(jìn)行賦值、設(shè)置單元格的格式、對(duì)單元格進(jìn)行復(fù)制或剪切，等等。

'對(duì)當(dāng)前工作簿中的 Sheet1 工作表中的 A1 單元格賦值ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = "MediaTea"
'顯示當(dāng)前工作表中的 A1 單元格的值MsgBox Range("A1")
'設(shè)置單元格的填充色Range("A1").Interior.ColorIndex = 24
'設(shè)置單元格的字體大小Range("A1").Font.Size = 12
'為當(dāng)前選中的單元格（區(qū)域）設(shè)置字體顏色Selection.Font.Color = RGB(255, 0, 0)
'清除單元格內(nèi)容Range("A1").ClearContents             '將 B3 的值復(fù)制到 C3 單元格Range("A1").Copy Range("C3")
'將 C3 的值剪切到 D3 單元格Range("C3").Cut Range("D3")