InStr 函数示例
本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。
Dim SearchString, SearchChar,
MyPosSearchString ="XXpXXpXXPXXP" ' 被搜索的字符串。
SearchChar = "P" ' 要查找字符串 "P"。' 从第四个字符开始,以文本比较的方式找起。返回值为 6(小写 p)。' 小写 p 和大写 P 在文本比较下是一样的。
MyPos = Instr(4, SearchString, SearchChar, 1) ' 从第一个字符开使,以二进制比较的方式找起。返回值为 9(大写 P)。' 小写 p 和大写 P 在二进制比较下是不一样的。
MyPos = Instr(1, SearchString, SearchChar, 0)' 缺省的比对方式为二进制比较(最后一个参数可省略)。
MyPos = Instr(SearchString, SearchChar) ' 返回 9。MyPos = Instr(1, SearchString, "W") ' 返回 0。
IF MyPos>0 THEN 就是包含!
追问可以按我说的写下代码吗
追答代码没有问题。
追问我的是在模版里面,就上面那样,运行就出错,我直接加到sheet1代码里,就正常了,怎么回事呢?我想加到模块里,该怎么修改呢
追答我放在模板里也没有问题。
本回答被提问者采纳