kimbal

½Ð±Ð¦U¦ì¥ý®v­Ì¡A¦p¦ó¦bªí³æ¸ÌªºTextBox1¿é¤JAÄæ¸Ìªº¤å¦r¡A«ö¶s«á§âµe­±±a¨ì¸ÓÄæÄæ¦ì¡C


³Â·Ð«ü¾É¤@¤U¡A ...
man65boy µoªí©ó 2012-6-20 19:36

1. Private Sub CommandButton1_Click()
   
2.     On Error Resume Next
   
3.    
   
4.     Set tar = Cells.Find(What:=TextBox1.Text, After:=Range("A1"), LookIn:=xlFormulas, _
   
5.         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)
   
6.     If Not tar Is Nothing Then
   
7.         tar.Activate
   
8.         Unload Me
   
9.     Else
   
10.         MsgBox ("§ä¤£¨ìÃþ¦ü¦r¼Ë")
    
11.     End If
    
12.    
    
13. End Sub

½Æ»s¥N½X