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

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

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

¥»©«³Ì«á¥Ñ ´Ñ»y³¾»ï ©ó 2011-5-23 13:08 ½s¿è

´ú¸Õ.rar (4.05 KB) ¶W³sµ².JPG
¦p¼ÐÃD½Ð°Ý¶W³sµ²Àx¦s®æ¦p¦ó§ì¨ú?
¥H¤W¹Ï¨Ó»¡:c1~c5¬O¦³¥]§t¶W³sµ²ªºÀx¦s®æ!
§Ú·Q­na1=c1¦ý¬O¥X¨Óªº«o¥u¦³­È¡A¨S¦³¶W³sµ²ªº¤º®e!
½Ð°Ý­n³]©w¦óºØ¨ç¼Æ¡A¤~·|¨Ïa1¦³c12ªº¶W³sµ²¤º®e&¤å¦r!

¸É¥R¦p§¨±aÀɮפ¤¤º®e¡A¦p¦ó¨Ï¥ÎVLOOKUP«á¡A¨ÏA10¦³C10ªº¶W³sµ²¤º®e!

¦^´_ 18# Hsieh


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

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

¦^´_ 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

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


   ¤å¦r¦A¥ÎHYPERLINKÂন¶W³sµ²
¾Ç®üµ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

¦^´_ 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

¦^´_ 12# Hsieh


    ­ì¨Ó»Ý­n¥Î¨ì©w¸q¦WºÙ!Ãø©Ç§Ú¨Ìª½µLªk³]¦¨¥\!·PÁ±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

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

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD