Excel2010VBA入门022Like运算符模糊查询.pdfVIP

Excel2010VBA⼊门022Like运算符模糊查询 ⽬录 Like运算符 Like运算符是VBA中常⽤的运算符，通常⽤作模糊匹配，其作⽤是⽤来⽐较某个⽂本字符串是否符合给 定的模式，若是则返回True ，否则返回False。其语法如下： String Like pattern 其中，string为所要⽐较的⽂本，pattern为给定的模式。在pattern表⽰中，可以由表给定的字符对⽂本的 内容、长度进⾏限制。需要注意的是，pattern表达式为⽂本，必须在两边加上双引号(”)。 符合string中的⽰ 例说 明 pattern 中 的字符 任何单—字符?长度为1的⽂本 任何单—字符?g长度为2的⽂本，且以“g”结尾 *零个或多个字符*长度任意，内容任意 王*长度任意，以“王”开头 *王*长度任意，含有“王” #任何⼀个数字（0~9）##长度为2 ，且两个均为数字 [charlist]charlist中的任何单⼀字符[5-9]长度为1，且为5~9的数字 [5-9]#*长度任意，第1个字符为5~9的数字，第2个字符为任意数字，之后的字符任 意 [!charlist]不在charlist中的任何单⼀字 [!a-c]长度为If且不为⼩写a~c中的字符 符 ⽰例 某公司员⼯编号均以1个⼤写英⽂字母开头，之后为3位数字。为防⽌录⼊错误，希望能够在录⼊时对录 ⼊的员⼯编号进⾏判断，⽤VBA 实现。 Option Explicit Sub Like运算符() 变量声明 Dim strNo1 As String Dim strNo2 As String Dim strNo3 As String 编号初始化 strNo1 = 123 strNo2 = E234 strNo3 = EE23 判断员⼯编号1并输出结果 If strNo1 Like [A-Z]### Then Debug.Print 员⼯编号1合法 Else Debug.Print 员式编号1不合法 End If 判断员⼯编号2并输出结果 If strNo2 Like [A-Z]### Then Debug.Print 员⼯编号2合法 Else Debug.Print 员式编号2不合法 End If 判断员⼯编号3并输出结果 If strNo1 Like [A-Z]### Then Debug.Print 员⼯编号3合法 Else Debug.Print 员式编号3不合法 End If End Sub VBA ⽐较模式 在Excel VBA中，⼀共有两种⽂本⽐较的模式。可以通过在模块的最上⽅写⼊Option语句进⾏设置。 Option Compare Binary ：⼆进制⽐较模式。此模式为Excel VBA默认的⽐较⽅式，该模式中的英⽂字符是 区分⼤⼩写的，⼩写字母a⽐⼤写字母A⼤。 Option Compare Text ：⽂本⽐较模式。此模式中的英⽂字符是不区分⼤⼩写的，字母A与字母a是⼀样 ⼤。 改变⽂本的⽐较模式将改变关于⽂本⽐较的所有的计算结果。