查询问题，修改VBA代码，从复杂到简单，保证只减不增加

liwenhong

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

2013-4-10 17:34 上传

点击文件名下载附件

修改后：

1、 工作表“信息库”中“使用编号查询1”命令按钮不要，转到工作表“卡片正面”成为按钮“使用编号查询”。（该项工作已经完成）

2、 “信息库”工作表中的原结构是：A列姓名、B列编号，新结构变为：A列姓名、B首字母、C列编号，也就是将职工编号由B列转到了C列。（该项工作已经完成）

3、 当点击按钮“使用编号查询”时，出现的“使用编号查询（新）”窗体，在窗体的“请输入职工编号”后的文本框中输完职工编号后，职工姓名显示在“姓名”后的文本框中，取消下了原窗体中的拉选择文本框。（注意：编号请使用C列中的）

4、 窗体中的“职工编号”和“姓名”分别显示在“卡片正面”工作表的B3和L3单元格中。

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

liwenhong

有没有高手相助呀！盼啊

liwenhong

今天中午，电子表格运行不正常了，没有找到任何原因，重启了两次计算机，勉强可以运行

cxdlsqq

第二个窗体
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
    If KeyCode = 13 Then
        If Len(Me.TextBox1.Text) > 0 Then
            Dim wks As Worksheet
            Dim rng As Range
            
            Set wks = Worksheets("信息库")
            Set rng = Application.Intersect(wks.UsedRange, wks.Columns("b:b")).Find(what:=Me.TextBox1.Text, lookat:=xlWhole)
            If Not rng Is Nothing Then
                [b3] = rng.Offset(, -1)
                [l3] = rng
            Else
                MsgBox "没有此编号"
            End If
第一个窗体
   Private Sub TextBox1_Change()
    Dim lastrow%
    Dim myrg As Range
    TextBox1.Text = UCase(TextBox1.Text)
    ListBox1.Clear
    If TextBox1.Text = "" Then
        Label3 = 0
        Exit Sub
    End If
    lastrow = Sheets("信息库").Range("A65536").End(xlUp).Row
    For Each myrg In Sheets("信息库").Range("B2:B" & CStr(lastrow))
        
            If myrg = TextBox1.Text Then ListBox1.AddItem myrg.Offset(0, -1).Value
      
    Next
   End Sub
        End If
    End If
End Sub

liwenhong

cxdlsqq 发表于 2013-4-11 15:36
第二个窗体
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Inte ...

您的代码看到了，下载装上试试，先谢谢您了，辛苦了！

liwenhong

cxdlsqq 发表于 2013-4-11 15:36
第二个窗体
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Inte ...

第一个窗体的代码视乎没有写完，再看看好吗，高手，谢谢您了！

liwenhong

cxdlsqq 发表于 2013-4-11 15:36
第二个窗体
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Inte ...

两个都没有运行呀？

mjzxlmg

用个字典不就行了。