小白求助，做一个职工信息档案查询

gjie21

于箱长 发表于 2021-4-14 18:39
这样的？

是的 就是这个效果，麻烦大神给下附件

wang-way

工作表事件

模块代码

于箱长

gjie21 发表于 2021-4-15 08:49
是的 就是这个效果，麻烦大神给下附件

干别的活，忙忘了，报歉

3190496160

Sub 查询()
Dim ar As Variant
Dim br()
ar = Sheets("数据源").[a1].CurrentRegion
ReDim br(1 To UBound(ar), 1 To 7)
With Sheets("查询窗口")
    rr = Array(.Range("b2").Address, .Range("e2").Address, .Range("h2").Address)
    If Trim(.Range("b2")) <> "" And Trim(.Range("e2")) = "" And Trim(.Range("h2")) = "" Then
        lh = 12
        zd = .Range("b2")
    ElseIf Trim(.Range("b2")) = "" And Trim(.Range("e2")) <> "" And Trim(.Range("h2")) = "" Then
        lh = 15
        zd = .Range("e2")
    ElseIf Trim(.Range("b2")) = "" And Trim(.Range("e2")) = "" And Trim(.Range("h2")) <> "" Then
        lh = 2
        zd = .Range("h2")
    End If
    If lh = "" Then MsgBox "查询条件输入有误！": Exit Sub
    For i = 5 To UBound(ar)
        If InStr(ar(i, lh), zd) > 0 Then
            n = n + 1
            br(n, 1) = n
            br(n, 2) = ar(i, 2)
            br(n, 3) = ar(i, 3)
            br(n, 4) = ar(i, 12)
            br(n, 5) = ar(i, 13)
            br(n, 6) = ar(i, 15)
            br(n, 7) = ar(i, 16)
        End If
    Next i
    If n = "" Then MsgBox "没有符合条件的数据！": Exit Sub
    r = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    .Range("a8:g" & r) = Empty
    .[a8].Resize(n, UBound(br, 2)) = br
End With
MsgBox "查询成功!", 64, "提醒"
End Sub

3190496160

查询11.rar (14.87 KB, 下载次数: 18)

2021-4-15 09:18 上传

点击文件名下载附件

gjie21

3190496160 发表于 2021-4-15 09:18

查询出结果了，但点击名字 没有在 员工详情子表中显示该员工详细信息

3190496160

gjie21 发表于 2021-4-15 20:18
查询出结果了，但点击名字 没有在 员工详情子表中显示该员工详细信息

能帮你吧这个做好就花了好多时间和精力了，生成员工信息表的问题，等有时间再说吧再者，员工信息表中的很多姓项目在查询到的信息中根本就没有呀

于箱长

3190496160 发表于 2021-4-15 20:54
能帮你吧这个做好就花了好多时间和精力了，生成员工信息表的问题，等有时间再说吧再者，员工信息表中的很 ...

并且sheets("员工详情")中居然没有身份证号码

gjie21

3190496160 发表于 2021-4-15 20:54
能帮你吧这个做好就花了好多时间和精力了，生成员工信息表的问题，等有时间再说吧再者，员工信息表中的很 ...

没事，我用数据有效性和VLOOKUP查找引用解决了

于箱长

gjie21 发表于 2021-4-17 17:14
没事，我用数据有效性和VLOOKUP查找引用解决了

我那个不行？