请老师帮忙添加窗体查询代码

ppl123 · 发表于 2017-10-15 22:11

我想做一个窗体查询窗口，窗体我已经做好了，不会写代码，请老师帮忙添加窗体查询代码，谢谢！

窗体查询.rar (36.7 KB, 下载次数: 37)

ppl123 · 发表于 2017-10-16 11:26

liulang0808老师忙吗，抽时间帮帮我好吗，谢谢！

liulang0808 · 发表于 2017-10-16 12:08

ppl123 发表于 2017-10-16 11:26
liulang0808老师忙吗，抽时间帮帮我好吗，谢谢！

建议使用sql语句吧
我对这个不是太了解的
可以咨询群里其他大神的

ppl123 · 发表于 2017-10-16 17:04

liulang0808 发表于 2017-10-16 12:08
建议使用sql语句吧
我对这个不是太了解的
可以咨询群里其他大神的

老师，您原来做的这个查询窗口是输入关键字查询表3、4的数据的，我想只查询表3的数据不查表4的怎么改，望老师帮忙，谢谢！

Book1.rar (58.24 KB, 下载次数: 29)

liulang0808 · 发表于 2017-10-16 18:20

ppl123 发表于 2017-10-16 17:04
老师，您原来做的这个查询窗口是输入关键字查询表3、4的数据的，我想只查询表3的数据不查表4的怎么改，望 ...

Private Sub CommandButton1_Click()
Sheets(1).Range(Sheets(1).Cells(3, 1), Sheets(1).Cells(Rows.Count, 15)).ClearContents
If TextBox2.Text <> "" Then
Application.ScreenUpdating = False
For j = 1 To 12
If Sheets(1).Cells(2, j) = ComboBox1.Text Then
a = j
GoTo l1
End If
Next j
l1:
a1 = 2
For j = 2 To 2
For i = 3 To Sheets(j).Cells(Rows.Count, 3).End(3).Row
If InStr(Sheets(j).Cells(i, a), TextBox2.Text) > 0 Then
a1 = a1 + 1
For k = 1 To 12
Sheets(1).Cells(a1, k) = Sheets(j).Cells(i, k)
Next k
End If
Next i
Next j
Application.ScreenUpdating = True
Else
MsgBox "请输入查找关键字"
End If
End Sub

复制代码

liulang0808 · 发表于 2017-10-16 18:21

只修改了第二个for j的范围

ppl123 · 发表于 2017-10-16 18:43

liulang0808 发表于 2017-10-16 18:21
只修改了第二个for j的范围

老师可以在A列插入一列做序号吗，我这里插入就会出错了

liulang0808 · 发表于 2017-10-16 18:44

ppl123 发表于 2017-10-16 18:43
老师可以在A列插入一列做序号吗，我这里插入就会出错了

插入一列，自己录制宏就可以了
如果报错的话，提供具体附件及代码看看吧

ppl123 · 发表于 2017-10-16 18:53

老师就是我在A列插入一列做序号吗，然后就查询不到表3的数据了

zpy2 · 发表于 2017-10-16 21:22

可以用数据库试试吧

		自动登录	找回密码
密码			免费注册

[求助] 请老师帮忙添加窗体查询代码