[已解决]求助：请根据员工姓名进行查询，并将查询结果写入到“员工信息表中”

ybl309603118

高手们，帮哈忙啊，这个代码老是搞不定啊！对已存在的“人力资源数据库”，根据员工姓名进行查找，并将查找的结果写入到“员工信息表”中。我设置了个用户登录界面，进去的话输入密码：8213125

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-3-26 23:14

1. Private Sub CommandButton1_Click()
   
2.     Dim rg
   
3.     With Worksheets("人力资源数据库")
   
4.         If Len(Me.TextBox1.Text) Then
   
5.             Set rg = .Columns("c").Find(what:=Me.TextBox1.Text, lookat:=xlWhole)
   
6.             If rg Is Nothing Then
   
7.                 MsgBox "没有找到 " & Me.TextBox1.Text & " 的记录"
   
8.                 Exit Sub
   
9.             End If
   
10.             Range("b3") = rg.Value
    
11.             Range("d3") = rg.Offset(, 2).Value
    
12.         Else
    
13.             MsgBox "请输入要查找的姓名"
    
14.             Exit Sub
    
15.         End If
    
16.     End With
    
17. End Sub
    

复制代码

查询按钮的代码，只做了姓名和性别的，其余的自己根据单元格的地址按着添加吧。

跳转到最佳答案楼层

hwc2ycy

错误1：CommandButton1_Click中
   Sheets("sheet1").Select
工作簿中并没有名为sheet1的工作表

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Dim rg
   
3.     With Worksheets("人力资源数据库")
   
4.         If Len(Me.TextBox1.Text) Then
   
5.             Set rg = .Columns("c").Find(what:=Me.TextBox1.Text, lookat:=xlWhole)
   
6.             If rg Is Nothing Then
   
7.                 MsgBox "没有找到 " & Me.TextBox1.Text & " 的记录"
   
8.                 Exit Sub
   
9.             End If
   
10.             Range("b3") = rg.Value
    
11.             Range("d3") = rg.Offset(, 2).Value
    
12.         Else
    
13.             MsgBox "请输入要查找的姓名"
    
14.             Exit Sub
    
15.         End If
    
16.     End With
    
17. End Sub
    

复制代码

查询按钮的代码，只做了姓名和性别的，其余的自己根据单元格的地址按着添加吧。

ybl309603118

hwc2ycy 发表于 2014-3-26 23:14
查询按钮的代码，只做了姓名和性别的，其余的自己根据单元格的地址按着添加吧。

谢谢了 师兄

七彩屋

留个记号，学习一下。