通过单元格输入信息跳转到对应文件信息单元格里面

冰冰189

通过模糊和精确查询定位到单元格，详见附件信息。
1. C3单元格输入文件名称，点击定位查询目录1，跳转到对应的文件信息K列单元格区域。
2.如果点击查询目录2，跳转到文件目录2，对应K列单元格里面。

quqiyuan

这样吗？供参考

Qs18

Public Sub 查询1()
    Dim st, rng As Range
    st = Sheet1.Range("c3").Value
    Set rng = Sheet4.Range("k:k").Find(st)
    If rng Is Nothing Then
        MsgBox "没有查找到相应信息请核对后重新输入！"
        Exit Sub
    End If
    Sheet4.Activate
    rng.Select
End Sub
Public Sub 查询2()
    Dim st, rng As Range
    st = Sheet1.Range("c3").Value
    Set rng = Sheet5.Range("k:k").Find(st)
        Set rng = Sheet4.Range("k:k").Find(st)
    If rng Is Nothing Then
        MsgBox "没有查找到相应信息请核对后重新输入！"
        Exit Sub
    End If
    Sheet5.Activate
    rng.Select
End Sub

冰冰189

quqiyuan 发表于 2024-5-21 19:12
这样吗？供参考

老师非常正确，如果没有匹配文件能否直接返回主页，谢谢！

冰冰189

Qs18 发表于 2024-5-21 19:22
Public Sub 查询1()
    Dim st, rng As Range
    st = Sheet1.Range("c3").Value

感谢老师，报错

quqiyuan

冰冰189 发表于 2024-5-21 19:29
老师非常正确，如果没有匹配文件能否直接返回主页，谢谢！

冰冰189

quqiyuan 发表于 2024-5-21 19:36

感谢！

Qs18

冰冰189 发表于 2024-5-21 19:33
感谢老师，报错

我知道原因了，该点击目录1您点击了目录2了。不过您发现的问题很好。

冰冰189

Qs18 发表于 2024-5-21 20:04
我知道原因了，该点击目录1您点击了目录2了。不过您发现的问题很好。

嗯，没有关系