[精英VBA专题]字符串用法大全(整理中,请参与进来)

hhzjxss

觉得不错，最好能整理成工作簿就好了！现在有点乱！

stljsh

QUOTE: 以下是引用qee用在2006-10-10 22:41:36的发言： 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" 3.字符列表 理解字符列表的用法是学会Like的难点，所以，下面我会多花些笔墨帮你理解它。 (1)一个字符列表匹配的是字符串中的一个字符，不管字符列表中实际有多少个字符。 "A" Like [ABCDEGHIJ2345] 结果为True "AB" Like [ABCDEGHIJ2345] 结果为False 唯一的例外是[]被看作长度为零的字符串。 (2)字符列表中的单个字符，没有顺序要求，上面[ABCDEGHIJ2345]和[ACDEGHIJ2345B]、[3ABCDEGHIJ245]...等等是一样的表达。 (3)字符列表中一段连续的字符（称为区间，一个字符列表可以有多个区间，广义上，单个字符也可被看作一个区间），可以使用连字符（-，减号）简化表达式，如上面的表达式[ABCDEGHIJ2345]可以简化为[A-EG-J2-5]，连字符要遵循从小到大的顺序（升序），即连字符(-)右端的字符应大于左端的字符，如其中的A-E不能写成E-A，后者系统会报错。但多个区间之间没有顺序要求，这意味着[G-J2-5A-E]、[2-5G-JA-E]...等是同一表达。但下面的表达是错误的，同时也是常见的： [A-E G-J 2-5]、[A-E,G-J,2-5]、[A-E;G-J;2-5] 也许只是一种习惯或想当然，第一个除了要求表达的ABCDEGHIJ2345外，还多加了一个空格；后面两个分别多了逗号(,)和分号(;)。 "," Like [A-EG-J2-5] 结果为False "," Like [A-E,G-J,2-5] 结果为True (4)被中括号（[]）括起的字符列表中的字符，?、*、#不被理解为通配符，而是表示符号自身。如果要表示-（减号，连字符），可以放在列表的开头或结尾。如[ABC-]、[-ABC]。 "3" Like "?" 结果为True "3" Like "[?]" 结果为False "?" Like "[?]" 结果为True 这一特性通常被用作特殊字符的表示，例如，除了通配符外， 左括号 ([)等特殊字符都可以将它们用方括号括起来。要注意的是，也不能在一个组内使用右括号 (]) 与自身匹配，但在组外可以作为个别字符使用。 (5)在字符列表加上!(感叹号）开头，表示要匹配的是不在字符列表中的任一字符（不包括开头的!自身）。[!!]表示除了感叹号之外的任一字符。 5.例子 下面是EXCEL/VBA帮助中举的几个Like运算符的例子，对照结果看看，如果和你想的结果都一样，说明你已经基本掌握了Like用法。 Dim MyCheck MyCheck = "aBBBa" Like "a*a" ' 返回 True。 MyCheck = "F" Like "[A-Z]" ' 返回 True。 MyCheck = "F" Like "[!A-Z]" ' 返回 False。 MyCheck = "a2a" Like "a#a" ' 返回 True。 MyCheck = "aM5b" Like "a[L-P]#[!c-e]" ' 返回 True。 MyCheck = "BAT123khg" Like "B?T*" ' 返回 True。 MyCheck = "CAT123khg" Like "B?T*" ' 返回 False。 6.思考题 假设有一字符串s，写出表达式，判断s是否是仅由字母组成并且以字母e（E）结尾的字符串。 答案在本专题后公布。 自定义函数解读like运算符,呵呵

wangdelong11

[[[[

sanbe

Like 作用于汉字查找的表示方法

For j = 1 To Len(Cells(i, 4))
        If Mid(Cells(i, 4), j, 1) Like "[含肉松水果奶油芝麻]" Then k = k & Mid(Cells(i, 4), j, 1)
Next

Like 用于窗体的模糊查询表示方法

If Cells(i, 1) Like UserForm5.TextBox1 & "*" And Cells(i, 2) Like "*" & UserForm5.TextBox2 & "*" And Cells(i, 3) Like UserForm5.ComboBox1 & "*" Then

[此贴子已经被作者于2007-7-29 21:00:00编辑过]

Luckyguy2008

好多例子，谢谢各位大侠，慢慢学习

hhzjxss

呵呵，不错，收藏，有时间再慢慢看！

zsd5237

谢谢！能对代码作些解释更好了。

jhtjj

好提议，学习。

兰色幻想

顶出来,大家再看看

月亮光光

很好!