作者：绿色风
分类：
时间：2022-08-18
浏览：128
楼主
zzmxy |
本例子主要实现的功能如下，从工作表的数据区域查询相关的数据，并显示到TextBox控件上：
主要功能代码如下，其中最主要的是应用了Find()方法，实现从工作表“查找”相关的数据，
- Dim Rng As Range
- Private Sub CommandButton1_Click()
- If TextBox1.Text <> "" Then
- Set Rng = Sheet1.Range("A2", Range("A2").End(xlDown)).Find(TextBox1.Text, lookat:=xlWhole)
- If Not Rng Is Nothing Then
- TextBox4.Text = Rng.Value
- TextBox2.Text = Rng.Offset(0, 1).Value
- TextBox3.Text = Rng.Offset(0, 2).Value
- Else
- MsgBox "没有找到“" & TextBox1.Text & "”的记录，请再确认！", 64
- TextBox1.SetFocus
- End If
- Else
- MsgBox "请输入查询的姓名！", 64
- End If
-
- End Sub
- Private Sub CommandButton2_Click()
- If Not Rng Is Nothing Then
- Rng.Offset(0, 1).Value = TextBox2.Text
- Rng.Offset(0, 2).Value = TextBox3.Text
- Else
- Set Rng = Range("A2").End(xlDown).Offset(1, 0)
- Rng.Value = TextBox4.Text
- Rng.Offset(0, 1).Value = TextBox2.Text
- Rng.Offset(0, 2).Value = TextBox3.Text
- End If
- End Sub
 简单窗体查询运用实例zz.rar
|
2楼
danysy |
好方法，值得学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一