Excel制作查询系统

opiona · 发表于 2018-2-23 22:47

Set SH0 = Sheets("【14】2")
Set SH1 = Sheets("查询")
SH1.Range("A4:Z65536").ClearContents
Str_coon = "HDR=yes';Data Source =" & ThisWorkbook.FullName '//OFFICE2003，2007 通用
Rem 第一行可以自己增加标题
Rem 标题下内容必须是：文本格式
Rem 结果表标题和数据表标题顺序相同
Rem MAXCOL 现在是：Z，可以自己加长，例如改为：AZ
MAXCOL = "Z"
StrSQL = "SELECT * FROM [" & SH0.Name & "$A5:" & MAXCOL & "] WHERE 1=1"
If SH1.Range("A2").Value = "模糊" Then
For ICOL = 2 To SH1.Range(MAXCOL & "1").End(xlToLeft).Column
If SH1.Cells(1, ICOL).Value <> "" And SH1.Cells(2, ICOL).Value <> "" Then
StrSQL = StrSQL & " AND " & SH1.Cells(1, ICOL).Value & " LIKE '%" & SH1.Cells(2, ICOL).Value & "%'"
End If
Next
Else
For ICOL = 2 To SH1.Range(MAXCOL & "1").End(xlToLeft).Column
If SH1.Cells(1, ICOL).Value <> "" And SH1.Cells(2, ICOL).Value <> "" Then
StrSQL = StrSQL & " AND " & SH1.Cells(1, ICOL).Value & "='" & SH1.Cells(2, ICOL).Value & "'"
End If
Next
End If

复制代码

opiona · 发表于 2018-2-23 22:49

制作查询窗体.rar (235.7 KB, 下载次数: 551)

完整代码见附件

dtlcg · 发表于 2018-3-22 18:04

opiona 发表于 2018-2-23 22:49
完整代码见附件

[img]file:///C:\Users\Administrator\AppData\Roaming\Tencent\Users\5910828\TIM\WinTemp\RichOle\BRS]XF}625CVF[69YEL%WSO.png[/img]你好，下载你的附件运行后出错，请问是什么原因，我刚学VBA，一窍不通，谢谢！ TIM图片20180322180254.png

opiona · 发表于 2018-3-23 07:58

可能是没有安装Access

dtlcg · 发表于 2018-3-23 08:46

opiona 发表于 2018-3-23 07:58
可能是没有安装Access

是不是VBA查询功能都要ACCESS支持？刚学VBA不懂啊

1122wen · 发表于 2018-3-23 16:00

opiona 发表于 2018-2-23 22:49
完整代码见附件

代码很好用，但感觉就是太复杂啊，自己看了，很难懂~

ren605577978 · 发表于 2019-11-14 13:55

opiona 发表于 2018-2-23 22:49
完整代码见附件

老师，您好！想进一步咨询一下您。
请问在执行查询操作之后，能否在查询到的结果中对其中某几个单元格的内容直接修改，并将修改后的单元格内容再次导入到“【14】2”工作表中的原位置，以实现数据的同步修改。

opiona · 发表于 2019-11-15 16:44

ren605577978 发表于 2019-11-14 13:55
老师，您好！想进一步咨询一下您。
请问在执行查询操作之后，能否在查询到的结果中对其中某几个单元格的 ...

有条件的SQL查询及其结果，没有原始数据位置的信息
不适合做同步更新

№①June · 发表于 2024-10-29 15:48

opiona 发表于 2016-8-19 10:50
智能查询
A1，B1 的标题也可以改的
这样就不局限与：货号和编码了！

学习，膜拜

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

[求助] Excel制作查询系统