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

[µo°Ý] ½Ð°Ý¶W³sµ²Àx¦s®æ¦p¦ó§ì¨ú?

¤º«Ø¨ç¼Æ¬OµLªk¨ú±o¶W³sµ²¦ì§}¦r¦êªº
¥Î¦Û©w¸q¨ç¼Æ¨Ó©â¨ú§a
  1. Function MyLink(Rng As Range) As String
  2. MyLink = Rng.Hyperlinks(1).Address
  3. End Function
½Æ»s¥N½X
MyLink.zip (6.01 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 13# ´Ñ»y³¾»ï

±z»~·|Åo!
³o¨Ã¤£¬O©w¸q¦WºÙ¡A³o¬O¥ÎVBA¼g¦¨¤@­Ó¨ç¼Æ¨Ó¨Ñ¤u§@ªí¨Ï¥Î
¥Øªº¦b¨ú±oÀx¦s®æ¶W³sµ²ªº³sµ²¦ì§}¡A¦Ó«DÅã¥Ü¤å¦r
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 15# ´Ñ»y³¾»ï


   ¤å¦r¦A¥ÎHYPERLINKÂন¶W³sµ²
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 17# ´Ñ»y³¾»ï

VLOOKUP¬O¶Ç¦^Àx¦s®æªº­È¡A¨Ã«D¶Ç¦^¸ÓÀx¦s®æ³o­Óª«¥ó
¥²¶·¨Ï¥ÎINDEX©ÎINDIRECT¨Ó¶Ç¦^¸ÓÀx¦s®æ¡A¤~¯à¨ú¥X¨ä¶W³sµ²
·d¤£À´¬°¦óHÄæ¥H«á¥ÎRng.Hyperlinks(1).Address·|¥X¿ù
§ï¤@¤U§ì¤u§@ªí¥þ³¡ªº¶W³sµ²¡A¤ñ¹ïÀx¦s®æ¦ì§}¦A¨ú¥X
  1. Function MyLink(Rng As Range) As String
  2. Dim Hy As Hyperlink
  3. For Each Hy In Rng.Parent.Hyperlinks
  4.    Set a = Hy.Range
  5.    If a.Address = Rng.Address Then MyLink = Hy.Address: Exit For
  6. Next
  7. End Function
½Æ»s¥N½X
MyLink-TEST.zip (9.71 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD