例如 判断单元格中是否含有 “吉林” 这个词 ，含有则执行我的程序后面的语句
1、首察睁先新建一个控制台应用程序。
2、编写键盘录入事件，用于用敬没岩户输入两个字符串，程序接收到亮御字符串之后再做比较。
3、可以通过Contains函数验证。
4、然后可以通过IndexOf函数验证。
5、也可以通过正则表达式验证。
6、最后验证效果如下。
1、尘激打开Excel，按下Alt+F11，打开VBA编辑界面，双击左侧要双击执行代码的工作表，弹出派咐袜右侧代码编辑区。
2、选择“Worksheet”中的“BeforeDoubleClick”事件。
3、首先，利用if函数通过判断对象的行列来执行相应代码的单元格。
4、通过设置Cancel=True取消原来的双击编辑单元格的效果，通过Call命令执行指定的宏简隐。
5、编写好要执行的宏。
6、回到Excel中，双击代码中执行的单元格，就会执行Call后面的宏程序。
用instr函数判断巧橡乎是否包含指定字符，孝悉>0表示"含如答有"
SearchString = "XXpXXpXXPXXP" 被搜索的字符串
SearchChar = "P" 要查找字符串 "P"
MyPos = InStr(SearchString, SearchChar) 返回9
MyPos = InStr(1, SearchString, "W") 返回 0
写卖圆塌慧了中衫塌个例子 Sub a() Set c = Range("a1").Find("吉林", LookIn:=xlValues) If Not c Is Nothing then MsgBox "1" End If End Sub
Dim iFind As Integer
Dim MyString As Integer
MyString = Range("A1").Value '假设你的单元格为A1
iFind = InStr(1, MyString, "吉林信肆"毕凳, vbTextCompare)
If iFind >滑数轿 0 Then
......
End If