• 5星
49KB weixin_58444518 2021-05-21 11:46:39
• 5星
1.45MB zhangjin7422 2021-04-07 09:24:30
• VBA常用运算符 常规数学运算符： + - * / ^ 特殊数学运算符： \ 整除 mod 取余数 其他运算符： & () 比较运算符： =赋值 < > <= >= 特殊比较符： is like 逻辑运算符 ： ...

# VBA常用运算符

• 常规数学运算符：     +   -   *    /   ^
• 特殊数学运算符：    \ 整除      mod 取余数
• 其他运算符：            &  ()

• 比较运算符：             =赋值   <  >  <= >=
• 特殊比较符：           is   like

• 逻辑运算符 ：         and     or           xor     not
• Xor同假异真  Eqv同真异假  Imp 先真后假才为真

• XOR  逻辑排除。它是NOTOR运算符的组合。如果表达式中只有一个表达式的值为True，则结果为True。表示两者不同时为真，相同时为假
• EQV，表示两者相同是为真，不同是为假
• imp逻辑蕴含

Sub 计算测试()

Dim arr1(30)

arr1(0) = 99
arr1(1) = 1 + 2
arr1(2) = 2 - 1
arr1(3) = 3 * 5
arr1(4) = 10 / 3       '除法
arr1(5) = 10 \ 3       '整除
arr1(6) = 10 Mod 3     '去余数
arr1(7) = (1 + 3) / 2

arr1(11) = "a" & "b"
arr1(12) = "a" + "b"     '字符串可以相加
arr1(13) = 1 >= 2
arr1(14) = 1 <= 2
arr1(15) = (1 = 2)
arr1(16) = (1 = 1)

Dim a As Object
Dim b As Object
Dim c As Object
Set a = b

arr1(17) = a Is b        'is只能用于比较对象是否完全一样
arr1(18) = Not a Is b
arr1(19) = a Is c        '因为a,b,c 都是空对象，可以相等

arr1(21) = "test1.xlsm" Like "*.xlsm"    'like 比较需要 ""之内的内容
arr1(22) = (1 > 2) And (1 < 2)
arr1(23) = (1 > 2) Or (1 < 2)

arr1(30) = (1 > 2) Eqv (1 < 2)
'arr1(31) = True Eqv True
'arr1(32) = 1 Eqv 2
'arr1(33) = 1 Eqv 1

'arr1(34) = (1 > 2) Xor (1 < 2)
'arr1(35) = (1 > 2) Xor (1 > 2)
'arr1(36) = 1 Xor 2
'arr1(37) = 1 Xor 1

'arr1(38) = (3 > 2) Imp (5 > 2)    '逻辑包含关系
'arr1(39) = (1 < 2) Imp (1 < 3)
'arr1(40) = (1 < 2) Imp (1 < 2)

For i = LBound(arr1) To UBound(arr1)
Debug.Print "arr1(" & i & ")= " & arr1(i)
Next

End Sub

运算结果

arr1(0)= 99
arr1(1)= 3
arr1(2)= 1
arr1(3)= 15
arr1(4)= 3.33333333333333
arr1(5)= 3
arr1(6)= 1
arr1(7)= 2
arr1(8)=
arr1(9)=
arr1(10)=
arr1(11)= ab
arr1(12)= ab
arr1(13)= False
arr1(14)= True
arr1(15)= False
arr1(16)= True
arr1(17)= True
arr1(18)= False
arr1(19)= True
arr1(20)=
arr1(21)= True
arr1(22)= False
arr1(23)= True
arr1(24)=
arr1(25)=
arr1(26)=
arr1(27)=
arr1(28)=
arr1(29)=
arr1(30)= False

有几个  还有问题

他们的真值表如下 (图片转载)

展开全文
xuemanqianshan 2020-01-25 12:02:01
• 为什么80%的码农都做了架构师？>>> ...
• Integer %
• Long &
• Single !
• Double #
• String \$
• Currency @

转载于:https://my.oschina.net/xfan/blog/1926137

展开全文
weixin_34061555 2018-08-11 10:46:00
• ## 想通过VBA删除欧元符号，如何表示欧元符号 sql

Jokerd77 2020-04-11 17:09:40
• _ 2行链接 ; 分行 : 2行语句连接? stop 停止，查看内存中的断点，否则看

# 1 使用在语句中的特殊符号

•  连接号  - 用于连接不完整的2部分，为完整的1句
•  冒号     :用于连接2个句子

Sub test1001a()
arr1 = array(1, 2, 3, 4, 5)
For Each i In arr1
Debug.Print i;
Next
Debug.Print
End Sub

Sub test1001b()                 '- 用于连接不完整的2部分，为完整的1句
arr1 = array(1, 2, _
3, 4, 5)
For Each i In arr1
Debug.Print i;
Next
Debug.Print
End Sub

Sub test1001c()
arr1 = array(1, 2, 3, 4, 5)   ':用于连接2个句子
For Each i In arr1: Debug.Print i;: Next
Debug.Print
End Sub

# 2 其他字符串内用的符号

• 其中 分号 ; 表示空格
• 其中 逗号 , 表示 制表符 tab
• 其中 连接号 & 表示连接，无空格连接
Sub test1001d()

Debug.Print 1; 2
Debug.Print 1, 2
Debug.Print 1 & 2

End Sub

展开全文
xuemanqianshan 2021-01-14 01:33:41
• ## excel vba 特殊符号 vba excel

常数　值　描述 vbCr　Chr(13)　回车符。 vbCrLf　Chr(13)&Chr(10)　回车符与换行符。 vbLf　Chr(10)　换行符。 vbTab Chr(9)　制表符
常数　　　　值　　　　　　　　　描述

vbCr　　　　Chr(13)　　　　　　回车符。
vbCrLf　　　Chr(13)&Chr(10)　　回车符与换行符。
vbLf　　　　Chr(10)　　　　　　换行符。
vbTab 　　　Chr(9)　　　　　　制表符
展开全文
lijil168 2013-09-30 19:20:42
• ## Word-VBA：删除选择区域的项目符号 删除 项目符号

jyh_jack 2020-09-06 14:41:48
• weixin_43681860 2019-07-07 10:20:12
• 1.55MB weixin_42136365 2021-04-06 19:56:16
• xuemanqianshan 2019-04-24 15:00:28
• 3星
21KB weixin_41793888 2020-02-05 17:11:44
• taller_2000 2020-09-05 13:28:21
• 4星
17KB yxf7499 2018-05-08 09:34:04
• 5星
968KB asd123asd 2013-06-30 21:14:18
• ## 使用VBA在Office中输入特殊字符（续） 插入符号 Byte

taller_2000 2021-04-30 03:50:15
• 4星
27KB yyjijie 2010-03-25 10:37:49
• ## 使用VBA在Office中输入特殊字符（3/3） Byte数组 位运算 16进制 输入字符

taller_2000 2020-09-08 15:10:30
• ## 利用VBA批量删除Excel中的中文/英文/数字或者替换中英文符号 正则表达式

qq_42692386 2021-04-19 16:06:35
• ## 算法4 vba二分法符号表 算法

perfect_red 2020-12-15 23:59:56
• s_h_m114_2 2020-04-27 16:13:15
• perfect_red 2020-12-31 00:21:22
• ## VBA的运算符和表达式 vba 运算符 表达式

taogez 2017-01-02 12:16:43
• qq_24818403 2020-01-02 19:37:06
• perfect_red 2020-12-16 23:54:48
• 455B hzg303 2019-10-26 17:17:01
• ## excel vba 批量将excel转换为csv，并且将可能出现特殊符号的列去除。 vba excel

u012129607 2018-08-26 16:32:29
• ## VBA里不能用百分数%,以及%代表得整型integer数据类型 vba

xuemanqianshan 2021-10-11 18:00:56
• weixin_42412150 2018-06-07 23:33:52
• csdndscs 2020-01-02 12:02:12
• ## VBA实现关键词匹配 vba excel

HIMOJITO 2021-06-10 16:09:02
• ## VBA 常用代码 - 01 vba

weixin_46623003 2021-02-08 20:18:23

...