vba运算符怎么填（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就行。

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

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

,