Hsieh

回復 5# man65boy

1. Private Sub CommandButton1_Click()
   
2. Dim A As Range
   
3.     Set A = sht2.[D:D].Find(TextBox3.Text, lookat:=xlWhole)
   
4.     '如果查無員工編號，要求重新輸入員工編號
   
5.     If A Is Nothing Then '如果編號不存在
   
6.         MsgBox "查無員工編號，請重新輸入"
   
7.         UserForm1.TextBox3.Text = ""
   
8.         UserForm1.TextBox3.SetFocus
   
9.         Exit Sub
   
10.     End If
    
11.     With sht1
    
12.         .Range("B7") = A.Offset(, 1)
    
13.     End With
    
14. End Sub

複製代碼