- ©«¤l
- 13
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 17
- ÂI¦W
- 0
- §@·~¨t²Î
- mac
- ³nÅ骩¥»
- os10
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-6-16
- ³Ì«áµn¿ý
- 2015-8-10
|
[µo°Ý] «Ø¥ß¨Ó·½¬O¦³Åܼƪº¶W³sµ²¡Avba¦]¦p¦ó®Ñ¼g¡H
³o¬qµ{¦¡½X¥Dn¬On¦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- Dim bidp As Range
- Dim aaa As Range
- If Not Sheets("W-inter.").Range("A4:a150").Find(Sheets("W-inter.").Range("A4:a150"), LOOKAT:=xlWhole) Is Nothing Then
- Set bidp = Sheets("W-inter.").Range("A4:a150").Find(Sheets("Position").Range("a9"), LOOKAT:=xlWhole)
- Set aaa = "W-inter.'!" & bidp.Offset(, 33).Offset(1)
- ActiveSheet.Hyperlinks.Add Range("ah9"), Address:="", SubAddress:=aaa, TextToDisplay:=aaa.Value
- 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 |
|