利用Excel建立人员信息查询系统，求大神接招

lzyonlay · 发表于 2020-2-12 21:11

利用Excel建立人员信息查询系统，怎么将查询及结果在另一个窗口显示，最好优化出界面，上面是查询条件，下面显示查询结果，筛选结果中存在并列的，全部显示

3190496160 · 发表于 2020-2-13 09:44

应该是个多条件查询但是，每次查询的条件个数不确定的查询吧，
先把你数据表中的日期修改为标准的日期格式再说吧

iwangyi · 发表于 2020-2-13 11:34

本帖最后由 iwangyi 于 2020-2-13 11:42 编辑

Sub C()
Set CN = CreateObject("ADODB.CONNECTION")
CN.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
For I = 9 To 15
If Cells(2, I) <> "" Then
s = s & Cells(1, I) & " like '%" & Cells(2, I) & "%' and "
End If
Next
If s = "" Then
Sql = "select * from [明细$A2:G]"
Else
s = Left(s, Len(s) - 4)
Sql = "select * from [明细$A2:G] where " & s
End If
Range("I5").CopyFromRecordset CN.Execute(Sql)
End Sub

iwangyi · 发表于 2020-2-13 11:45

附件参考**********

13618687845 · 发表于 2020-2-13 12:02

直接用函数

lzyonlay · 发表于 2020-2-13 15:31

谢谢大家帮忙，我已经整好了，并且设置了用户名及密码登录

libo5563 · 发表于 2020-2-13 16:38

本帖最后由 libo5563 于 2020-2-13 22:03 编辑

pq处理，表格筛选条件换个方式就行了

lzyonlay · 发表于 2020-5-8 16:25

3190496160 发表于 2020-2-13 09:44
应该是个多条件查询但是，每次查询的条件个数不确定的查询吧，
先把你数据表中的日期修改为标准的日期格式 ...

不用不用，用宏录制完美解决了

lzyonlay · 发表于 2020-5-8 16:25

13618687845 发表于 2020-2-13 12:02
直接用函数

不用不用，用宏录制完美解决了

lzyonlay · 发表于 2020-5-8 16:26

iwangyi 发表于 2020-2-13 11:34
Sub C()
Set CN = CreateObject("ADODB.CONNECTION")
CN.Open "provider=microsoft.ace.oledb.12.0;exten ...

用宏录制完美解决了

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

[求助] 利用Excel建立人员信息查询系统，求大神接招

评分

评分

评分

评分

最新热点 /1