目录
运算符
一、算术运算符
二、连接运算符
三、比较运算符
四、逻辑运算符
语法结构
一、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中逻辑运算符的使用方法:
可以用于判断多个条件是否同时成立,例如:
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
可以用于判断多个条件中是否有至少一个成立,例如:
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
可以用于取反一个条件的结果,例如:
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 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 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 counter = start To end Step step
'执行语句块
Next counter
例如,下面的代码使用for语句来输出1到10的数字:
For i = 1 To 10
MsgBox i
Next i
while语句用于在满足条件的情况下循环执行一段代码。其基本语法如下:
While condition
'执行语句块
Wend
例如,下面的代码使用while语句来输出1到10的数字:
Dim i As Integer
i = 1
While i <= 10
MsgBox i
i = i + 1
Wend
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语句的用法及案例。在实际应用中,可以根据具体需要选择合适的语句来实现相应的功能。