上一篇文章给大家分享了什么是对象的属性和方法,以及怎么区分?

今天就给大家分享一章比较重要的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

举例子:

要使用到的数据表格:

vba运算符怎么填(VBA基本语法之算术运算符)(1)

vba运算符怎么填(VBA基本语法之算术运算符)(2)

代码:

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

vba运算符怎么填(VBA基本语法之算术运算符)(3)

其次再了解一下什么是比较运算符号?

❶“=” 等于符号 判断表达式是使用 表达式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

vba运算符怎么填(VBA基本语法之算术运算符)(4)

接下来要使用的数据表:

vba运算符怎么填(VBA基本语法之算术运算符)(5)

vba运算符怎么填(VBA基本语法之算术运算符)(6)

代码如下:

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就行。

vba运算符怎么填(VBA基本语法之算术运算符)(7)

今天就分享到这里,明天继续,喜欢的请关注我,谢谢!

下一章我们接着分享,比较重要的逻辑运算符和通配符

,