source.Cells(c.Row, 7) = "yes"
Set
c = source.UsedRange.FindNext(c)
Do
While
Not
c Is Nothing And s <> c.
Address
source
.Cells(c.Row, 7) = "yes"
Set
c = source.UsedRange.FindNext(c)
End
If
1. 常用 算术 比较 逻辑运算符如下:
算术
比较
逻辑
指数运算 (
^
)
相等 (
=
)
负数 (
–
)
不等 (
<>
)
乘法和除法 (
*
、
/
)
小于 (
<
)
整数除法 (
\
)
大于 (
>
)
求模运算 (
Mod
)
小于或相等 (
<=
)
加法和减法 (
+
、
–
)
大于或相等 (
>=
)
字符串连接 (
&
)
Like Is
2. if not c is nothing 先运算 is 比较运算符,再进行not 逻辑非运算。
比较运算符,即Is运算符,可用于判断两个对象变量是否指向同一个对象,其语法为:
结果=对象1 Is 对象2
如果对象1和对象2都指向同一个对象,其结果为True;否则,结果为False。
还可以用Is运算符来判断一个对象变量是否符合要求,例如,条件判断语句If c Is Nothing Then 表明,如果对象变量objVar没有对象引用,则为True,执行Then后面的语句。
Not 对一个表达式进行逻辑非运算,即如果表达式为True,则Not运算符使该表达式变成False;如果表达式为False,则Not运算符使该表达式变成True;如果表达式为Null,则Not运算符的结果仍然是Null。其语法为:
结果=Not 表达式
出处---------------《vba编程系列之运算符和表达式》
海纳百川 有容乃大 壁立千仞 无欲则刚