作者：乔山办公网日期：
返回目录：excel表格制作
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被指定按钮时会报错，大家可以选择权其他的过程名，就可以指定按钮了。
VBA 中可以使用 这两复个函数 函数啊……制
也可以直接使用 另外一种 Like 函数……百
如：
If A Like "*aa*" Then
MsgBox "A中有度aa 这个字符串知"
Else
MsgBox "A中没有aa 这个字符串"
End If
或者 使用 InStr 这个函数计道算 也可以……
VBA判断单元格是否包百含某字符使用InStr函数，与工作表的FIND函数类似。
InStr函数的帮助信度息如内下：
程序中判断是否包含容，可以这样写VBA代码：
If InStr("111a222", "a")=0 Then MsgBox "不包含" Else MsgBox "包含"
执行示例：
'实现指定单元知区域，条件查询
Set a = Application.InputBox("输入查询区域道", "区域", Type:=8) '输入查询区域
intext = InputBox("输入查询关回键字答", "关键字查询") '输入查询关键字
With a.Select
For Each b In a
Set F = b.Find(intext, LookIn:=xlValues)
If Not F Is Nothing Then
MsgBox "存在查询关键字" '这里输入你想执行的方法
End If
Next
End With