c_c_lai

¦^´_ 1# enoch
¸Õ¸Õ³o­Ó¡A³o¬O§Ú±`¨Ï¥Îªº¥\¯à¨ç¦¡¡C

1. Function getTarget(sh As String, rng As String, fnd As Variant) As String
   
2.       Dim c As Range
   
3.    
   
4.      Set c = Sheets(sh).Range(rng).Find(fnd, LookIn:=xlValues, LookAt:=xlWhole)
   
5.      If Not c Is Nothing Then
   
6.             getTarget = c.Address
   
7.      End If
   
8. End Function

½Æ»s¥N½X

c_c_lai

¦^´_ 1# enoch
§Ú§Ñ¤Fªþ¤W½d¨Ò¡C

1. Sub Test()
   
2.     Dim adr As String
   
3.    
   
4.     adr = getTarget("¤u§@ªí1", "A1:D5", "TARGET")
   
5.     MsgBox adr
   
6. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 1# enoch
¹ê°È¤W¡A·¥¦³¥i¯à·|»Ý­n¥h¨ú±o(©Î§ä¨ì) "¼Ðªº" ¥kÃ䪺­È¡A
§A¤]¥i¥H¨Ï¥Î¦¹¥\¯à²[¦¡¹F¨ì¥Øªº¡C

1. Sub Test()
   
2.     Dim adr As String
   
3.    
   
4.     adr = getTarget("¤u§@ªí1", "A1:D5", "TARGET")
   
5.     MsgBox adr
   
6.     adr = getTarget("¤u§@ªí1", "A1:D5", "TARGET", False)
   
7.     MsgBox adr
   
8.     [A6] = Range(adr).Value
   
9. End Sub
   
10. 
    
11. Function getTarget(sh As String, rng As String, fnd As Variant, Optional curr As Boolean = True) As String
    
12.     Dim c As Range
    
13.    
    
14.     Set c = Sheets(sh).Range(rng).Find(fnd, LookIn:=xlValues, LookAt:=xlWhole)
    
15.     If Not c Is Nothing Then
    
16.         getTarget = IIf(curr, c.Address, c.Offset(, 1).Address)
    
17.     End If
    
18. End Function

½Æ»s¥N½X

¤U¸ü (53.78 KB)

2012-9-30 08:14