VBA智慧办公4——符号运算及语法结构

目录

运算符

一、算术运算符

二、连接运算符

三、比较运算符

四、逻辑运算符

语法结构

一、if语句

二、select case语句

三、for语句

四、while语句：

五、with语句

---

运算符

        VBA中运算符的作用也是相当重要，本章我们要着重了解VBA中运算符下设的：算术运算符，连接运算符，比较运算符，逻辑运算符。

一、算术运算符

算术运算符是一种用于进行数学计算的符号。在VBA中，算术运算符包括加号（+）、减号（-）、乘号（*）、除号（/）和求模（%）。

以下是一些VBA中算术运算符的使用案例：

• 加法运算符（+）：

可以用于将两个数相加，例如：

Dim a As Integer
Dim b As Integer
a = 5
b = 10
Dim c As Integer
c = a + b
MsgBox c '输出15

• 减法运算符（-）：

可以用于将一个数减去另一个数，例如：

Dim a As Integer
Dim b As Integer
a = 10
b = 5
Dim c As Integer
c = a - b
MsgBox c '输出5

• 乘法运算符（*）：

可以用于将两个数相乘，例如：

Dim a As Integer
Dim b As Integer
a = 5
b = 10
Dim c As Integer
c = a * b
MsgBox c '输出50

• 除法运算符（/）：

可以用于将一个数除以另一个数，例如：

Dim a As Integer
Dim b As Integer
a = 10
b = 5
Dim c As Integer
c = a / b
MsgBox c '输出2

• 求模运算符（%）：

可以用于计算两个数相除的余数，例如：

Dim a As Integer
Dim b As Integer
a = 10
b = 3
Dim c As Integer
c = a % b
MsgBox c '输出1

以上是VBA中算术运算符的定义和使用案例。

二、连接运算符

连接运算符用于将两个字符串连接起来形成一个新的字符串。在VBA中，连接运算符是&符号。

以下是一些VBA中连接运算符的使用案例：

• 将两个字符串连接起来：

Dim str1 As String
Dim str2 As String
str1 = "Hello"
str2 = "World"
Dim str3 As String
str3 = str1 & str2
MsgBox str3 '输出HelloWorld

• 将字符串和数字连接起来：

Dim str1 As String
Dim num As Integer
str1 = "The answer is "
num = 42
Dim str2 As String
str2 = str1 & num
MsgBox str2 '输出The answer is 42

• 将多个字符串连接起来：

Dim str1 As String
Dim str2 As String
Dim str3 As String
str1 = "The"
str2 = "quick"
str3 = "brown"
Dim str4 As String
str4 = str1 & " " & str2 & " " & str3 & " " & "fox"
MsgBox str4 '输出The quick brown fox

以上是VBA中连接运算符的定义和使用案例。

三、比较运算符

比较运算符是一种用于比较两个值之间关系的运算符。在VBA中，比较运算符包括等于（=）、不等于（<>）、大于（>）、小于（<）、大于等于（>=）和小于等于（<=）。

以下是一些VBA中比较运算符的使用方法：

• 等于运算符（=）：

可以用于判断两个值是否相等，例如：

Dim a As Integer
Dim b As Integer
a = 5
b = 5
If a = b Then
    MsgBox "a equals b"
End If

• 不等于运算符（<>）：

可以用于判断两个值是否不相等，例如：

Dim a As Integer
Dim b As Integer
a = 5
b = 10
If a <> b Then
    MsgBox "a does not equal b"
End If

• 大于运算符（>）：

可以用于判断一个值是否大于另一个值，例如：

Dim a As Integer
Dim b As Integer
a = 10
b = 5
If a > b Then
    MsgBox "a is greater than b"
End If

• 小于运算符（<）：

可以用于判断一个值是否小于另一个值，例如：

Dim a As Integer
Dim b As Integer
a = 5
b = 10
If a < b Then
    MsgBox "a is less than b"
End If

• 大于等于运算符（>=）：

可以用于判断一个值是否大于等于另一个值，例如：

Dim a As Integer
Dim b As Integer
a = 10
b = 5
If a >= b Then
    MsgBox "a is greater than or equal to b"
End If

• 小于等于运算符（<=）：

可以用于判断一个值是否小于等于另一个值，例如：

Dim a As Integer
Dim b As Integer
a = 5
b = 10
If a <= b Then
    MsgBox "a is less than or equal to b"
End If

以上是VBA中比较运算符的定义和使用方法。

四、逻辑运算符

逻辑运算符是一种用于判断多个条件关系的运算符。在VBA中，逻辑运算符包括与（And）、或（Or）和非（Not）。

以下是一些VBA中逻辑运算符的使用方法：

• 与运算符（And）：

可以用于判断多个条件是否同时成立，例如：

Dim a As Integer
Dim b As Integer
a = 5
b = 10
If a > 0 And b > 0 Then
    MsgBox "Both a and b are greater than 0"
End If

• 或运算符（Or）：

可以用于判断多个条件中是否有至少一个成立，例如：

Dim a As Integer
Dim b As Integer
a = 5
b = 10
If a > 0 Or b > 0 Then
    MsgBox "Either a or b is greater than 0"
End If

• 非运算符（Not）：

可以用于取反一个条件的结果，例如：

Dim a As Integer
a = 5
If Not a > 10 Then
    MsgBox "a is not greater than 10"
End If

以上是VBA中逻辑运算符的定义和使用方法。在实际应用中，可以通过组合使用不同的逻辑运算符来构建复杂的条件判断。

语法结构

        VBA中常用的控制语句包括if语句，select case语句，for语句，while语句和with语句。以下是这些语句的用法及案例：

一、if语句

if语句用于根据条件判断来执行不同的代码块。其基本语法如下：

If condition Then
    '执行语句块1
ElseIf condition2 Then
    '执行语句块2
Else
    '执行语句块3
End If

例如，下面的代码根据变量a的值来输出不同的信息：

Dim a As Integer
a = 5
If a > 10 Then
    MsgBox "a is greater than 10"
ElseIf a > 5 Then
    MsgBox "a is greater than 5"
Else
    MsgBox "a is less than or equal to 5"
End If

二、select case语句

select case语句用于根据不同的条件执行不同的代码块。其基本语法如下：

Select Case expression
    Case value1
        '执行语句块1
    Case value2
        '执行语句块2
    Case Else
        '执行语句块3
End Select

例如，下面的代码根据变量a的值来输出不同的信息：

Dim a As Integer
a = 2
Select Case a
    Case 1
        MsgBox "a is 1"
    Case 2
        MsgBox "a is 2"
    Case Else
        MsgBox "a is not 1 or 2"
End Select

三、for语句

for语句用于循环执行一段代码。其基本语法如下：

For counter = start To end Step step
    '执行语句块
Next counter

例如，下面的代码使用for语句来输出1到10的数字：

For i = 1 To 10
    MsgBox i
Next i

四、while语句：

while语句用于在满足条件的情况下循环执行一段代码。其基本语法如下：

While condition
    '执行语句块
Wend

例如，下面的代码使用while语句来输出1到10的数字：

Dim i As Integer
i = 1
While i <= 10
    MsgBox i
    i = i + 1
Wend

五、with语句

with语句用于简化代码，将多个操作集中在一个对象上执行。其基本语法如下：

With object
    .property1 = value1
    .property2 = value2
    '执行语句块
End With

例如，下面的代码使用with语句来设置Excel中单元格的属性：

With Range("A1")
    .Font.Bold = True
    .Font.Size = 12
    .Interior.ColorIndex = 6
End With

以上是VBA中常用的控制语句if语句，select case语句，for语句，while语句和with语句的用法及案例。在实际应用中，可以根据具体需要选择合适的语句来实现相应的功能。