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.     '¦pªG¬dµL­û¤u½s¸¹¡A­n¨D­«·s¿é¤J­û¤u½s¸¹
   
5.     If A Is Nothing Then '¦pªG½s¸¹¤£¦s¦b
   
6.         MsgBox "¬dµL­û¤u½s¸¹¡A½Ð­«·s¿é¤J"
   
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

½Æ»s¥N½X