[µo°Ý] «Ø¥ß¨Ó·½¬O¦³Åܼƪº¶W³sµ²¡Avba¦]¦p¦ó®Ñ¼g¡H

HSINLI

³o¬qµ{¦¡½X¥D­n¬O­n¦bSheets("W-inter.").Range("A4:a150")§ä¨ìSheets("Position").Range("a9")ªº­È
µM«á¦bSheets("Position").Range("ah9")¶K¤WSheets("W-inter.")©Ò§ä¨ìªº¨º¤@Àx¦s®æªº.Offset(, 33).Offset(1)±o­È¨Ã«Ø¥ß¶W³sµ²
§Úªº¼gªk¦p¤U­±code
¦Ó¥Ø«e¹J¨ìªº°ÝÃD¬O¦bsubaddressªº³¡¤À¤£ª¾«ç»ò¼g

1. Dim bidp As Range
   
2. Dim aaa As Range
   
3. If Not Sheets("W-inter.").Range("A4:a150").Find(Sheets("W-inter.").Range("A4:a150"), LOOKAT:=xlWhole) Is Nothing Then
   
4.             Set bidp = Sheets("W-inter.").Range("A4:a150").Find(Sheets("Position").Range("a9"), LOOKAT:=xlWhole)
   
5.             Set aaa = "W-inter.'!" & bidp.Offset(, 33).Offset(1)
   
6.                      ActiveSheet.Hyperlinks.Add Range("ah9"), Address:="", SubAddress:=aaa, TextToDisplay:=aaa.Value
   
7. End If

½Æ»s¥N½X

¦baaa¬O¼g»¡¡× "W-inter.!" & bidp.Offset(, 33).Offset(1)
¦ý³o®É­Ô¸õ¥Xªº¬O ¡§°õ¦æ¶¥¬q¿ù»~424 ¦¹³B»Ý­nª«¥ó¡¨

¦pªGaaa§ï¦¨="W-inter.!" & bidp.Offset(, 33).Offset(1).address
«h·|¦b¡®ªº¦a¤è¥X²{ ¡§½sĶ¿ù»~¡G«¬ºA¤£²Å¦X¡¨

¦pªG±Naaa¦A§ï¦¨¡×="W-inter.!" bidp.Offset(, 33).Offset(1).address"
«h¬O¾ã¥y¥X²{ ¡§½sĶ¿ù»~¡G«¬ºA¤£²Å¦X¡¨

½Ð°Ý­n¦p¦ó§ï¶i¤~¯à¹F¨ì¦bSheets("Position").Range("a9")«Ø¥ß¤@­Ó¨Ó¦Ûbidp.Offset(, 33).Offset(1)ªº¶W³sµ²©O¡H