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

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

³o­Ó¦n¹³¤£¬O§Ú­nªº!·Q­nªº¬O¥i¥[¤WVLOOKUP¥h§ì¨ú!¦ý¬O§ì¨ú«áªº­È¡A¤]­n¦³¨º­Ó­È±o¶W³sµ²¤º®e!¤£¹LÁÙ¬OÁÂÁ±zªº¦^ÂÐ!

TOP

¤º«Ø¨ç¼Æ¬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

¦^´_ 12# Hsieh


    ­ì¨Ó»Ý­n¥Î¨ì©w¸q¦WºÙ!Ãø©Ç§Ú¨Ìª½µLªk³]¦¨¥\!·PÁ±zªº¦^ÂÐ!

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

¦^´_ 14# Hsieh


    «á¨Ó¦³µoı¤£¬O©w¸q¦WºÙ¤F!¤£¹L¦n¹³ÁÙ¬O¤£¯à¥[¤Jvlookup¥h§ì¨ú¨º¤@®æ­Ó¶W³sµ²!¥X¨ÓÁÙ¬O¥u¦³¤å¦r¡A¨S¦³³sµ²= =

TOP

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


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

TOP

¦^´_ 16# Hsieh


    §ÚÁÙ¬O¥Î¤£¥X¨Ó!¤£ª¾­þ¸Ì¥X¤F°ÝÃD!¥Ø«e§Ú¥u¯à±N³sµ²³¡¤À¤å¦r§ï¦¨¦¬´M¥X¨Óªº¤å¦r!¦ý¬O³sµ²¨º­ÓÄæ¦ì§Ú¤@§ï!·|¥X²{¿ù»~!½Ð¤j¤j«üÂI!! MyLink-TEST.rar (8.23 KB)

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

¦^´_ 18# Hsieh


    ³o¦¸´N©ú¥Õ£{!ÁÂÁ±z¤£Ã㨯³Òªº¦^ÂÐ!

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD