GBKEE

¦^´_ 6# ketrddem

Application.Match ¤]¥i¥H

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim T As Date, R As Variant, No As Variant
   
4.     No = InputBox("¿é¤J´M§ä¤§¤å¦r,¼Æ¦r")
   
5.     If IsNumeric(No) Then No = Val(No)
   
6.     T = Time
   
7.     With Sheets("¤u§@ªí1").Cells(1, 1).Resize(1000000)
   
8.         R = Application.Match(No, .Cells, 0)
   
9.          If Not IsError(R) Then
   
10.             MsgBox "Find In " & .Range("a" & R).Address(0, 0) & "  " & Application.Text(Time - T, "[S]") & " ¬í "
    
11.          Else
    
12.             MsgBox "Not Find "
    
13.          End If
    
14.     End With
    
15. End Sub

½Æ»s¥N½X