VBA基本语法之算术运算符比较运算符，它们具体都有什么含义？
上一篇文章给大家分享了什么是对象的属性和方法，以及怎么区分？
今天就给大家分享一章比较重要的VBA的基本语法中的算术运算符、比较运算符。
这些运算符等在VBA程序的运行当中是必不可少的，我们对不同的数据处理就需要不同的运算符号。
我们首先了解一下什么是算术运算符？
算术运算符号就是对数据进行算术运算的，一般得到的计算结果肯定也是数据类型的。
那么VBA中都有哪些算术运算符，它们都有什么功能呢？
❶ ＂+＂ 求两个数的和 例子：1+2=3
❷＂-＂ 求两个数的差 例子：2-1=1
❸＂*＂ 求两个数的积 例子：2*2=4
❹＂/＂ 求两个数的商 例子：4/2=2
❺＂%＂（Mod） 取余数运算 例子：5%2=1 7 Mod 5=2
❻＂^＂ 指数运算 例子：3^2=3*3=9
举例子：
要使用到的数据表格：
代码：
Sub suanshuyunsuanfu()
Worksheets(＂sheet30＂).Range(＂D2＂)= Worksheets(＂sheet30＂).Range(＂B2＂) + Work sheets(＂sheet30＂).Range(＂C2＂)
Worksheets(＂sheet30＂).Range(＂D2＂).Font.Color = RGB(255, 0, 0)
Worksheets(＂sheet30＂).Range(＂D5＂) = Worksheets(＂sheet30＂).Range(＂B5＂) - Worksheets(＂sheet30＂).Range(＂C5＂)
Worksheets(＂sheet30＂).Range(＂D5＂).Font.Color = RGB(255, 0, 0)
Worksheets(＂sheet30＂).Range(＂D8＂) = Worksheets(＂sheet30＂).Range(＂B8＂) * Worksheets(＂sheet30＂).Range(＂C8＂)
Worksheets(＂sheet30＂).Range(＂D8＂).Font.Color = RGB(255, 0, 0)
Worksheets(＂sheet30＂).Range(＂D11＂)= Worksheets(＂sheet30＂).Range(＂B11＂) / Worksheets(＂sheet30＂).Range(＂C11＂)
Worksheets(＂sheet30＂).Range(＂D11＂).Font.Color = RGB(255, 0, 0)
Worksheets(＂sheet30＂).Range(＂D14＂)= Worksheets(＂sheet30＂).Range(＂B14＂) ^ Worksheets(＂sheet30＂).Range(＂C14＂)
Worksheets(＂sheet30＂).Range(＂D14＂).Font.Color = RGB(255, 0, 0)
Worksheets(＂sheet30＂).Range(＂D17＂)= Worksheets(＂sheet30＂).Range(＂B17＂) Mod Worksheets(＂sheet30＂).Range(＂C17＂)
Worksheets(＂sheet30＂).Range(＂D17＂).Font.Color = RGB(255, 0, 0)
End Sub
其次再了解一下什么是比较运算符号？
❶＂=＂ 等于符号 判断表达式是使用 表达式A=表达式B 当表达式相等时就返回True ，不相等的时候返回False。
❷＂<＂ 小于符号 判断表达式是使用 表达式A<表达式B 当表达式A小于表达式B时就返回True ，否则返回False。
❸＂>＂ 大于符号 判断表达式是使用 表达式A>表达式B 当表达式A大于表达式B时就返回True ，否则返回False。
❹＂<=＂ 小于等于符号 判断表达式是使用 表达式A<=表达式B 当表达式A小于等于表达式B时就返回True ，否则返回False。
❺＂>=＂ 大于等于符号 判断表达式是使用 表达式A>=表达式B 当表达式A大于等于表达式B时就返回True ，否则返回False。
❻＂<>＂ 不等于符号 判断表达式是使用 表达式A<>表达式B 当表达式A不等于表达式B时就返回True ，否则返回False。
❻＂Is＂ 比较两个对象的引用变量，对象A Is 对象B ，当对象A和对象B引用相同的对象时就返回True ，否则返回False。
❼＂Like＂ 比较两个字符串是否匹配，字符串A Like 字符串B ，当字符串A和字符串B匹配时就返回True ，否则返回False。
举个例子：
Sub ljys()
Dim a As Integer, b As Integer
a = 10
b = 20
If a = b Then
MsgBox ＂ a和b相等＂
ElseIf a < b Then
MsgBox ＂ a小于b＂
Else
MsgBox ＂ a大于b＂
End If
End Sub
接下来要使用的数据表：
代码如下：
Sub lj()
Dim i As Integer
For i = 2 To 8
If Worksheets(＂sheet31＂).Cells(i, 2).Value Like ＂李*＂ Then
Worksheets(＂sheet31＂).Cells(i,8)=Worksheets(＂sheet31＂).Cells(i, 2).Value
End If
Next
End Sub
这里面为了举Like的实例，使用了一个通配符＂*＂，下一章我们会具体分享，这里大家只需要重点关注Like就行。
今天就分享到这里，明天继续，喜欢的请关注我，谢谢！
下一章我们接着分享，比较重要的逻辑运算符和通配符