扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
1.新建一张表格,在表格中导入学生的成绩表,如图所示,将建立一个按钮,通过它来实现查找。
创新互联长期为成百上千家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为蓟州企业提供专业的成都做网站、成都网站设计,蓟州网站改版等技术服务。拥有十载丰富建站经验和众多成功案例,为您定制开发。
2.单击菜单栏中的“开发工具”——插入——表单控件——按钮,在出现的十字箭头上拖住画出一个按钮,如图所示。
3.在弹出的查找红对话框中选择“录制”,在弹出的“录制新宏”对话框中,修改宏名称为“查找”,单击确定。
4. 单击“开发工具”——查看代码,打开VBA编辑器,如图所示。
5.现在输入代码:
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
6.现在回到EXCEL表格,右击按钮,选择“编辑文字”,修改按钮名称为“查找按钮”。
7. 现在单击查找按钮,出现对话框“请输入要查找的值”,在方框中输入“男”,单击确定,出现对话框“查找数据在一下单元格中”,单击确定,对应单元格就变成了亮色。
请你说明,你用什么连接数据库的?ado控件还是对象?你的数据库是ACCESS还是SQL?或者其它呢?
我假设你使用ADODC控件,那么语句如下:
Adodc1.RecordSource = "Select 表1.字段2,表2.字段2 From 表1,表2 Where 表1.字段1='" Text1.Text "' And 表1.字段1=表2.字段1"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
select School 学校,Grade 年级,Class 班级
from Grade
inner join Class on Class.Grade_ID=Grade.ID,
inner join School on Class.School_ID=School.ID
where School='" + CStr(ComboBox1.Text) + "' or Grade ='" + CStr(ComboBox5.Text) + "'
or Class='" + CStr(ComboBox6.Text) + "' order by ID
直接打开EXCEL用CTRL+F ,可以直接定位到符合条件的数据;或用指定条件筛选
你点我的名字 在个人简介里有我网盘的地址 去里面找sample.rar
看看里面的东西吧!~~~ 有连接数据库 有查询 有给文本框赋值!~
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流