Excel制作查询系统

993018698

下图是我在论坛看到的案例，我也想做一个这样的查询窗体，求老师们指教。

我主要想实现下面的功能：
1.查询对象是“货号”或者“商家编码”，输入货号或者商家编码可以查询到对应的其他信息
2.可以对查询到的信息直接做修改编辑
不一定非要像上面那个例子中一样，主要目的就是想要做一个查询系统
制作查询窗体.rar (211.31 KB, 下载次数: 1312)

2014-8-23 17:39 上传

点击文件名下载附件

zcxqwef

这个问题太宽泛了

993018698

zcxqwef 发表于 2014-8-23 18:41
这个问题太宽泛了

是不是很复杂？

wyl219

其实一点都不难 用VBA就行了

喜有此李

是啊，用excel 的VBA就能顺利解决了。特别是查询窗体和相关代码的关联部分。

opiona

1. Sub Opiona()
   
2. 
   
3. 'On Error Resume Next    '// 发生错误，自动执行下一句，就是忽略错误
   
4. Application.ScreenUpdating = False '//关闭屏幕刷新
   
5. Application.DisplayAlerts = False '//关闭系统提示
   
6. t = Timer   '//开始时间
   
7. 
   
8.     Set SH0 = Sheets("【14】2")
   
9.     Set SH1 = Sheets("查询")
   
10.     SH1.Range("A4:Z65536").ClearContents
    
11.    
    
12.     Str_coon = "HDR=yes';Data Source =" & ThisWorkbook.FullName     '//OFFICE2003，2007 通用
    
13.     StrSQL = "SELECT * FROM [" & SH0.Name & "$A5:Z] WHERE 1=1"
    
14.     If SH1.Range("C2").Value = "模糊" Then
    
15.         If SH1.Range("A2").Value <> "" Then StrSQL = StrSQL & " AND " & SH1.Range("A1").Value & " LIKE '%" & SH1.Range("A2").Value & "%'"
    
16.         If SH1.Range("B2").Value <> "" Then StrSQL = StrSQL & " AND " & SH1.Range("B1").Value & " LIKE '%" & SH1.Range("B2").Value & "%'"
    
17.     Else
    
18.         If SH1.Range("A2").Value <> "" Then StrSQL = StrSQL & " AND " & SH1.Range("A1").Value & "='" & SH1.Range("A2").Value & "'"
    
19.         If SH1.Range("B2").Value <> "" Then StrSQL = StrSQL & " AND " & SH1.Range("B1").Value & "='" & SH1.Range("B2").Value & "'"
    
20.     End If
    
21.     MsgBox StrSQL
    
22.     SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, False)
    
23.     SH1.Range("A4").Resize(UBound(SQLARR, 1) + 1, UBound(SQLARR, 2) + 1) = SQLARR
    
24. 
    
25. Application.ScreenUpdating = True '//恢复屏幕刷新
    
26. Application.DisplayAlerts = True '//恢复系统提示
    
27. MsgBox "一共用时：" & Format(Timer - t, "#0.0000") & " 秒", , "北极狐提示!!"  '//提示所用时间
    
28. End Sub

复制代码

opiona

智能查询
A1，B1 的标题也可以改的
这样就不局限与：货号和编码了！

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

2016-8-19 10:49 上传

点击文件名下载附件

真的也许是菜鸟

自己照别人的模板改了一个文件收文登记表，但没学过VB，按“文号查找”这个不知道怎么写代码，请高手帮帮忙，帮忙写段“按文号查找”的代码。谢谢了。

231943361

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

在啊，
If SH1.Range("C2").Value = "模糊" Then
        If SH1.Range("A2").Value <> "" Then StrSQL = StrSQL & " AND " & SH1.Range("A1").Value & " LIKE '%" & SH1.Range("A2").Value & "%'"
        If SH1.Range("B2").Value <> "" Then StrSQL = StrSQL & " AND " & SH1.Range("B1").Value & " LIKE '%" & SH1.Range("B2").Value & "%'"
    Else
        If SH1.Range("A2").Value <> "" Then StrSQL = StrSQL & " AND " & SH1.Range("A1").Value & "='" & SH1.Range("A2").Value & "'"
        If SH1.Range("B2").Value <> "" Then StrSQL = StrSQL & " AND " & SH1.Range("B1").Value & "='" & SH1.Range("B2").Value & "'"
    End If
'    MsgBox StrSQL
    SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, False)
    SH1.Range("A4").Resize(UBound(SQLARR, 1) + 1, UBound(SQLARR, 2) + 1) = SQLARR

1.怎么改A1  B1 啊？直接修改上面的吗
2.如果我的表里面头部的参数改变了，需要重新设置变量吗？
3.可以给一个详细的教程就好了  感谢版主 感谢作者

231943361

opiona 发表于 2016-8-19 10:47

请问一下，如果表头参数改变了，该怎么设置，可能变的跟加长，超过Z列
变量，SQL这些该怎么变呀
感谢，有点急