Excel VBA高效办公应用-第二章-Excel VBA编辑基础-Part3（Is, Like运算符的用法详解）

1. Is运算符： 比较两个对象的引用变量是否相同，如：

Sub IsOperator()
    Dim A As Object
    Dim B As Object
    Dim C As Object
    Dim D As Object
    Dim E As Object
    Dim Check As Boolean
   
    Set A = C '指定对象引用
    Set B = C '指定对象引用
    Set E = Worksheets(1) '指定对象引用
    Set D = E
    Check = A Is B '返回True
    Debug.Print "A和B是否引用同一对象："
    Debug.Print "A Is B：" & Check
    Check = E Is B '返回False
    Debug.Print "A和D是否引用同一对象："
    Debug.Print "A Is D：" & Check
End Sub

------------------------------------------------------------------------------------

------------------------------------------------------------------------------------

A和B是否引用同一对象：
A Is B：True
A和D是否引用同一对象：
A Is D：False

2. Like运算符：比较两个字符串是否匹配（有点像正则表达式）（以下内容转自：http://blog.sina.com.cn/s/blog_4636489701014jtt.html）

Like运算符是字符串比较时经常使用的运算符，也是VBA较难掌握的运算符。语法：
结果 = 字符串 Like 模式
如果字符串与模式匹配，结果为True，否则为False。但是如果Like两端的字符串和模式有一个为Null，则结果为Null。
VBA内建的模式匹配功能提供了丰富的字符串比较方式，在模式表达式中可以使用通配符、字符列表（或字符区间）的任何组合来匹配字符串。
模式中的字符     与模式匹配的字符串中的字符
    ?                      任何单一字符
    *                       零个或多个字符
    #                      任何一个数字（0-9）
 [字符列表]           字符列表中的任何一个字符
[!字符列表]           不在字符列表中的任何一个字符
其它字符(串)         与自身匹配
1.Like在字符串比较时受Option Compare语句的影响，在默认情况下（Option Compare Binary），字符比较根据内部二进制表示法（ASCII码）进行，是区分大小写的，此时 "A" Like "a" 的结果为False。如果声明了Option Compare Text，则不区分大小写比较，"A" Like "a" 的结果为True。
后面的讨论假设默认情况下。
2.如果模式中没有使用通配符（?、*、#）和字符列表，此时Like运算符等价于=（等号）运算符。下面表达式的结果相同。
s Like "AB"
s = "AB"

示例代码如下（自己增加了密码校验和手机号校验示例，挺好玩！）：

Sub LikeOperator()
    Dim check As Boolean
    check = "aBBBa" Like "a*a"
    Debug.Print "“aBBBa”和“a*a”是否匹配：" & check
    check = "F" Like "[A-Z]"
    Debug.Print "“F”和“[A-Z]”是否匹配：" & check
    check = "F" Like "[!A-Z]"
    Debug.Print "“F”和“![A-Z]”是否匹配：" & check
    check = "a2a" Like "a#a"
    Debug.Print "“a2a”和“a#a”是否匹配：" & check
    check = "aM5b" Like "a[L-P]#[!c-e]"
    Debug.Print "“aM5b”和“a[L-P]#[!c-e]”是否匹配：" & check
    check = "BAT123khg" Like "B?T*"
    Debug.Print "“BAT123khg”和“B?T*”是否匹配：" & check
    check = "CAT123khg" Like "B?T*"
    Debug.Print "“CAT123khg”和“B?T*”是否匹配：" & check
    check = "Hcbahid" Like "H*p*d"
    Debug.Print "“Hcbaphid”和“H*p*d”是否匹配：" & check
    check = "1391786713" Like "13#########"
    Debug.Print "“1391786713”和“13#########”是否匹配：" & check
End Sub

------------------------------------------------------------------------------------

------------------------------------------------------------------------------------

“aBBBa”和“a*a”是否匹配：True
“F”和“[A-Z]”是否匹配：True
“F”和“![A-Z]”是否匹配：False
“a2a”和“a#a”是否匹配：True
“aM5b”和“a[L-P]#[!c-e]”是否匹配：True
“BAT123khg”和“B?T*”是否匹配：True
“CAT123khg”和“B?T*”是否匹配：False
“Hcbaphid”和“H*p*d”是否匹配：False
“1391786713”和“13#########”是否匹配：False

好，有点累了，休息！