¦b½d³ò¤º´M§ä«ü©w¤º®eªº¦ì¸m
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 1# enoch
¸Õ¸Õ³oÓ¡A³o¬O§Ú±`¨Ï¥Îªº¥\¯à¨ç¦¡¡C- Function getTarget(sh As String, rng As String, fnd As Variant) As String
- Dim c As Range
-
- Set c = Sheets(sh).Range(rng).Find(fnd, LookIn:=xlValues, LookAt:=xlWhole)
- If Not c Is Nothing Then
- getTarget = c.Address
- End If
- End Function
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 1# enoch
§Ú§Ñ¤Fªþ¤W½d¨Ò¡C- Sub Test()
- Dim adr As String
-
- adr = getTarget("¤u§@ªí1", "A1:D5", "TARGET")
- MsgBox adr
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 1# enoch
¹ê°È¤W¡A·¥¦³¥i¯à·|»Ýn¥h¨ú±o(©Î§ä¨ì) "¼Ðªº" ¥kÃ䪺ȡA
§A¤]¥i¥H¨Ï¥Î¦¹¥\¯à²[¦¡¹F¨ì¥Øªº¡C- Sub Test()
- Dim adr As String
-
- adr = getTarget("¤u§@ªí1", "A1:D5", "TARGET")
- MsgBox adr
- adr = getTarget("¤u§@ªí1", "A1:D5", "TARGET", False)
- MsgBox adr
- [A6] = Range(adr).Value
- End Sub
- Function getTarget(sh As String, rng As String, fnd As Variant, Optional curr As Boolean = True) As String
- Dim c As Range
-
- Set c = Sheets(sh).Range(rng).Find(fnd, LookIn:=xlValues, LookAt:=xlWhole)
- If Not c Is Nothing Then
- getTarget = IIf(curr, c.Address, c.Offset(, 1).Address)
- End If
- End Function
½Æ»s¥N½X
|
|
|
|
|
|
|