作者：乔山办公网日期：
返回目录：office365
添加百
X = WorksheetFunction.CountIf(Sheets("数据存度储页知面中道").Range("B:B"), [E6])
If X = 0 Then
MsgBox "不存回在答"
Else
MsgBox "存在"
End If
方法/步骤
新建一张表格，在表格中导入学生的成绩表，如图所示，我们将建立一个按钮，通过它来实现查找。
单击菜单栏中的“开发工具”——插入——表单控件——按钮，在出现的十字箭头上拖住画出一个按钮，如图所示。
在弹出的查找红对话框中选择“录制”，在弹出的“录制新宏”对话框中，修改宏名称为“查找”，单击确定。
单击“开发工具”——查看代码，打开VBA编辑器，如图所示。
现在我们来输入代码：
Sub 查找()
Dim jieguo As String, p As String, q As String
Dim c As Range
jieguo = Application.InputBox(prompt:="请输入要查找的值：", Title:="查找", Type:=2)
If jieguo = "False" Or jieguo = "" Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With ActiveSheet.Cells
Set c = .Find(jieguo, , , xlWhole, xlByColumns, xlNext, False)
If Not c Is Nothing Then
p = c.Address
Do
c.Interior.ColorIndex = 4
q = q & c.Address & vbCrLf
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> p
End If
End With
MsgBox "查找数据在以下单元格中：" & vbCrLf & vbCrLf _
& q, vbInformation + vbOKOnly, "查找结果"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
现在回到EXCEL表格，右击按钮，选择“编辑文字”，修改按钮名称为“查找按钮”。
7
现在单击查找按钮，出现对话框“请输入要查找的值”，在方框中输入“男”，单击确定，出现对话框“查找数据在一下单元格中”，单击确定，对e69da5e6ba90e79fa5e98193361应单元格就变成了亮色。
http://jingyan.baidu.com/article/9989c746021d4af649ecfe4a.html
listbox1.additem .cells(i,3)
在列表zd框专listbox1中新增一行，属该行第一列的值是sheets("图书资料")第i行，第3列的单元格值
listbox1.list(listbox1.listcount-1,1)= .cells(i,1)
在列表框listbox1中新增的那一行的第二列赋值为sheets("图书资料")第i行，第1列的单元格值
软件版本：Office2007
一个简易的类似Excel查询功能的窗体，实现方法：来
1.Alt+F11，打开源VBE界面，插入用户窗体，再在窗体上插入一个textbox和一个commandbutton：
2.双击Commandbutton，输入代码如下：
3.选择窗体，点击执行后，回到Excel中，文本框输入内容，点击查找，就可以找到zhidao包含这个内容的单元格：