Question

Excel 怎么用Vba检查一个字符串中是否包含特定的字母

Answer 1

1、在新工作表的Sheet1上点击右键

2、选择查看代码

3、点击倒三角，选择Worksheet

4、点击右边倒三角，选择触发方式，如BeforeDoubleClick表示在双击鼠标左键时触发

5、点击候出现如下代码框架

6、输入以下语句：Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)意为将A1、B1单元格求和并放在C1单元格

7、点击保存，然后关闭VBA窗口

8、由于A1,B1没有数据，所以C1为0

9、输入数据后，会发现即使按了回车，C1也不变，因为设置的是双击鼠标左键触发。

10、双击鼠标左键后就变了

Answer 2

1、首先我们打开一个工作样表作为例子。

2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新模块，在模块编辑框中输入以下代码：Option Explicit，Sub asc()，Dim Num1%, Num2%，Num1 = asc("Excel")  '返回69Num2 = asc("e")  '返回，101[a1] = "Num1= ": [b1] = Num1，[a2] = "Num2= ": [b2] = Num2，End Sub。

3、这里我们声明变量类型的方式和原来的不一样，使用的是%符号，其实代表的就是as  integer，效果是一样的。

4、这里我们给两个变量赋值，赋值的内容为字符串Excel和字符串e，但是并不是那么简单，我们给的值是asc（）函数转换的代码。其中Excel使用asc（）函数只是取字符串首位字母的代码。这里区分大小写。

5、插入一个按钮并指定宏，我们运行后得到了正确的结果。另外，我的这个过程是可以正常运行，但是asc被指定按钮时会报错，大家可以选择其他的过程名，就可以指定按钮了。

Answer 3

用instr函数或Like运算，代码格式如下：
If InStr("字符串", "特定字母") > 0 Then
或
If "字符串" Like "*特定字母*" Then
如果包括特定字母，则条件成立。注意后一种特定字母前后都要写上“*”号