上一篇文章给大家分享了什么是对象的属性和方法，以及怎么区分？
今天就给大家分享一章比较重要的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就行。
今天就分享到这里，明天继续，喜欢的请关注我，谢谢！
下一章我们接着分享，比较重要的逻辑运算符和通配符
