[已解决]使用窗体查询问题，解决重名，有相关VBA程序，由复杂改简单，求高手出手相助

liwenhong

我原来的职工信息查询使用职工姓名查询，但是当职工有重名时，只能查询一个职工的信息。现在，我想再增加一个使用职工编号查询的窗体，专门针对重名部分职工的信息查询。有VBA编码，请高手帮助修改。看看附件吧： 使用编号查询信息.zip (35.24 KB, 下载次数: 41)

2013-4-10 20:58 上传

点击文件名下载附件
修改后：
1、        工作表“信息库”中“使用编号查询1”命令按钮不要，转到工作表“卡片正面”成为按钮“使用编号查询”。（该项工作已经完成）
2、        “信息库”工作表中的原结构是：A列姓名、B列编号，新结构变为：A列姓名、B首字母、C列编号，也就是将职工编号由B列转到了C列。（该项工作已经完成）
3、        当点击按钮“使用编号查询”时，出现的“使用编号查询（新）”窗体，在窗体的“请输入职工编号”后的文本框中输完职工编号后，职工姓名显示在“姓名”后的文本框中，取消下了原窗体中的拉选择文本框。（注意：编号请使用C列中的）
4、        窗体中的“职工编号”和“姓名”分别显示在“卡片正面”工作表的B3和L3单元格中。


另外有一个疑问：在老窗体中，当输入的编号最后一位是“0”时不能调出职工姓名，其余的正常。该怎么解决呀？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-10 21:27

新窗体

1. Private Sub TextBox1_Change()
   
2.     Dim rg As Range
   
3.     On Error Resume Next
   
4.     With Worksheets("信息库")
   
5.         Set rg = .Range("c:c").Find(what:=TextBox1.Value, lookat:=xlWhole)
   
6.         If Not rg Is Nothing Then
   
7.             Laxm.Caption = rg.Offset(, -2)
   
8.             Exit Sub
   
9.         Else
   
10.             Laxm.Caption = ""
    
11.         End If
    
12.     End With
    
13. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

老窗口中最后一位不能为0 的解决方法:

1.     For Each myrg In Sheets("信息库").Range("B2:B" & CStr(lastrow))
   
2.         If myrg = TextBox1.Text Then ListBox1.AddItem myrg.Offset(0, -1).Value
   
3.     Next

复制代码

hwc2ycy

新窗体

1. Private Sub TextBox1_Change()
   
2.     Dim rg As Range
   
3.     On Error Resume Next
   
4.     With Worksheets("信息库")
   
5.         Set rg = .Range("c:c").Find(what:=TextBox1.Value, lookat:=xlWhole)
   
6.         If Not rg Is Nothing Then
   
7.             Laxm.Caption = rg.Offset(, -2)
   
8.             Exit Sub
   
9.         Else
   
10.             Laxm.Caption = ""
    
11.         End If
    
12.     End With
    
13. End Sub

复制代码

liwenhong

hwc2ycy 发表于 2013-4-10 21:27
新窗体

hwc2ycy:
    您的程序经过测试，无论是在单机版还是在“共享工作薄”的联机版中，都是非常顺畅。其实我要用到“共享工作薄”上，我们都知道，“共享工作薄” 时VBA代码会出现莫名其妙的运行“错误”，但这个程序没有出现异常。谢谢您了！感谢您无私的帮助！感谢您辛勤的付出！向您学习！祝您晚安！好梦
   

hwc2ycy

liwenhong 发表于 2013-4-10 23:00
hwc2ycy:
    您的程序经过测试，无论是在单机版还是在“共享工作薄”的联机版中，都是非常顺畅。其实我 ...

没有异常，但结果呢？

liwenhong

hwc2ycy 发表于 2013-4-10 23:15
没有异常，但结果呢？

您编写的这个程序，在工作薄共享的情况下也运行顺畅，再次对您表示感谢！

liwenhong

hwc2ycy 发表于 2013-4-10 23:15
没有异常，但结果呢？

今天中午试着将“使用职工编号查询”新窗体中的职工编号和姓名分别显示在“卡片正面”的B3和L3单元格中。但没有弄成，请您再帮我一次吧，我太菜了，还是写好程序发来吧，拜托了！

liwenhong

hwc2ycy 发表于 2013-4-10 23:15
没有异常，但结果呢？

请在您原编写的程序中加两个语句，将窗体中的“职工编号”和“姓名”分别显示在“卡片正面”工作表的B3和L3单元格中。谢谢您了！

hwc2ycy

1. Private Sub TextBox1_Change()
   
2.     Dim rg As Range
   
3.     On Error Resume Next
   
4.     With Worksheets("信息库")
   
5.         Set rg = .Range("c:c").Find(what:=TextBox1.Value, lookat:=xlWhole)
   
6.         If Not rg Is Nothing Then
   
7.             Laxm.Caption = rg.Offset(, -2)
   
8.             [b3] = rg.Offset(, -2).Value
   
9.             [l3] = Me.TextBox1.Text
   
10.             
    
11.             Exit Sub
    
12.         Else
    
13.             Laxm.Caption = ""
    
14.             [b3] = ""
    
15.             [l3] = ""
    
16.         End If
    
17.     End With
    
18. End Sub

复制代码

liwenhong

hwc2ycy 发表于 2013-4-11 18:24

今晚我使用您新编的程序放到我实际应用的文件中，当在窗体中输入数字时，出现死机现象，我试了好多次都是这样，但当我去把这个文件压缩准备发给您时，又莫名奇妙的运行正常了。今天下午就是出现了这种情况，我没有做任何修改，一会无法运行，一会运行神速。不知道到底是我动了那里吗？今晚和下午不是同一台电脑，不应该是电脑的问题吧！我还是将出问题的文件发给您吧！附件： 职工查询.zip (223.61 KB, 下载次数: 27)

2013-4-11 23:00 上传

点击文件名下载附件
拜托调试，另外，这个文件要“共享工作薄”使用。

对附件的解释：我的文件要使用两个条件查询，一个是职工姓名，一个是职工编号，为了使用同一个查询表格，采用的方法是：在“编号”所在的单元格D2，设置了一个条件函数，就是当L3为空时，在信息库工作表中查找“姓名”并显示编号，否则显示L3。L3通过窗体2得到编号，同时窗体2姓名显示在B3单元格中。