关于textBox窗口输入查询的问题

morok007

各位前辈好，在论坛潜水学习后，借鉴了许多前辈的代码，做了一个简易的快速报表表格，这个表格使我工作效果提高了不少。现在随着业务的增加，想对表格进行优化，将原来进行 “账户信息”查询并填充的UserForm模块代码进行复制，并修改了相应的数据指向。原来的窗体模块是UserForm1,通过在输入关键词窗口录入关键词可查询到对应的信息；复制后UserForm2（项目名称）模块，在输入关键词窗口录入关键词后，哪怕有相同字符的关键词，窗口显示空白，一直反复对比代码，也没看出什么问题，请大家帮忙下，例子详见附件！

512008404

参与一下！这个地方修改一下就好了！



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

     If Target.Column = 6 And Target.Row >= 7 And Target.Row <= 7 Or Target.Column = 6 And Target.Row >= 23 And Target.Row <= 23 Then
        UserForm1.Show
        Application.WindowState = xlMaximized
        UserForm1.Width = 300
        UserForm1.Height = 150
    End If
   
    If Target.Column = 5 And Target.Row = 3 Then
        UserForm2.Show
        Application.WindowState = xlMaximized
        UserForm1.Width = 300
        UserForm1.Height = 150
    End If

End Sub

morok007

512008404 发表于 2023-7-6 16:17
参与一下！这个地方修改一下就好了！

谢谢你的参与，还是不行哈。我发两个窗体查询检索的图片对比下

512008404

重新改了一下。供您参考！

morok007

512008404 发表于 2023-7-6 20:18
重新改了一下。供您参考！

太感谢了，搞定。请教下，UserForm2的查询模块被您指向UserForm1了吆

512008404

这两个窗体功能没什么不同，只是初始化时用了不同的查询数据。

morok007

512008404 发表于 2023-7-7 10:21
这两个窗体功能没什么不同，只是初始化时用了不同的查询数据。

好的，虽然有点不太理解，但还是非常感谢你哈