Question

vba 判断一个单元格中是否包含某个字符串 有则执行后面的语句

例如 判断单元格中是否含有 “吉林” 这个词 ，含有则执行我的程序后面的语句

Answer 1

1、首先新建一个控制台应用程序。

2、编写键盘录入事件，用于用户输入两个字符串，程序接收到字符串之后再做比较。

3、可以通过Contains函数验证。

4、然后可以通过IndexOf函数验证。

5、也可以通过正则表达式验证。

6、最后验证效果如下。

Answer 2

1、打开Excel，按下Alt+F11，打开VBA编辑界面，双击左侧要双击执行代码的工作表，弹出右侧代码编辑区。

2、选择“Worksheet”中的“BeforeDoubleClick”事件。

3、首先，利用if函数通过判断对象的行列来执行相应代码的单元格。

4、通过设置Cancel=True取消原来的双击编辑单元格的效果，通过Call命令执行指定的宏。

5、编写好要执行的宏。

6、回到Excel中，双击代码中执行的单元格，就会执行Call后面的宏程序。

Answer 3

用instr函数判断是否包含指定字符，>0表示"含有"
SearchString = "XXpXXpXXPXXP" 被搜索的字符串
SearchChar = "P" 要查找字符串 "P"
MyPos = InStr(SearchString, SearchChar) 返回9
MyPos = InStr(1, SearchString, "W") 返回 0

Answer 4

写了个例子 Sub a() Set c = Range("a1").Find("吉林", LookIn:=xlValues) If Not c Is Nothing then MsgBox "1" End If End Sub

Answer 5

Dim iFind As Integer
Dim MyString As Integer
MyString = Range("A1").Value '假设你的单元格为A1
iFind = InStr(1, MyString, "吉林", vbTextCompare)
If iFind > 0 Then
......
End If