ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

³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

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD