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

[µo°Ý] Ãö©ó¦Û°Ê¶K¤W³sµ²¦Ü¥t¤@­ÓÀɮרæ۰ʴ¡¤J¶W³sµ²

[µo°Ý] Ãö©ó¦Û°Ê¶K¤W³sµ²¦Ü¥t¤@­ÓÀɮרæ۰ʴ¡¤J¶W³sµ²

¥»©«³Ì«á¥Ñ starry1314 ©ó 2015-5-5 17:02 ½s¿è

½Ð°Ý¹³¥H¤U«ü¥O¦p¦ó±N
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "..\..\·~°È\·~°È©ú²Ó.xlsm"   ³o¦êªºaddress¼g¦¨

ºÃ°ÝQ1:§Ú¦bQ3Àx¦s®æ¨Ï¥Î CELL(filrname)¥s¥X¨ÓªºÀɮצWºÙ¸ô®|©O?  ­ì¥»¦a§}¬O³]©w¦nªº ·QÅý¥LÀHµÛÀɮתºÅܰʤ]¸òµÛÅÜ°Ê
        Q2:¦p¦ó¦b³o¨Ç«ü¥O´¡¤J EndRow = ActiveSheet.UsedRange.Rows.Count + 1 '©Ò¦³¨Ï¥Î¤¤ªº¦C¼Æ+1 ³o±ø«ü¥O©O

·QÅý¥L¦b©Ò¦³¨Ï¥Î¤¤¦C¼Æ+1¨Ã¥B¥i´¡¤J¶W³sµ²

½d¨Ò-¦Û°Ê´¡¤J¶W³sµ².rar (277.7 KB)
  1. Sub ¶K¤W¸ê®Æ¦Ü_·~°ÈºÞ²z()
  2. '
  3. ' ¶K¤W¸ê®Æ¦Ü_·~°ÈºÞ²z ¥¨¶°
  4. '
  5.     Range("A3:P3").Select
  6.     Selection.Copy
  7.     Windows("«È¤á©ú²Ó-·~°È±M¥Î.xlsm").Activate
  8.     Range("B7").Select
  9.     ActiveSheet.Paste Link:=True
  10.     Windows("«È¤á©ú²Ó-·~°È±M¥Î.xlsm").Activate
  11.     ActiveSheet.Paste Link:=True
  12.     Application.CutCopyMode = False
  13.     ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
  14.         "..\..\·~°È\·~°È©ú²Ó.xlsm"

  15. End Sub
½Æ»s¥N½X

½Ð°Ý¦³¤H¥i¥H¥æ¤@¤Uadrdrees¨ºÃ䪺«ü¥O¸Ó¦p¦ó³]©w¶Ü

TOP

¦^´_ 2# starry1314


    ¬Ý¤£À´§Aªº³sµ²¬O­n³s¨ì­þ¸Ì¡A
¹³³o¼Ë¶Ü¡H
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="«È¤á©ú²Ó-·~°È±M¥Î.xlsm", SubAddress:="¤­¤ë!A1"

TOP

¦^´_  starry1314


    ¬Ý¤£À´§Aªº³sµ²¬O­n³s¨ì­þ¸Ì¡A
¹³³o¼Ë¶Ü¡H
ActiveSheet.Hyperlinks.Add Anch ...
lpk187 µoªí©ó 2015-5-5 22:01


¦b­Ó§O«È¤á©ú²Ó¤º¦³­ÓÂà¸m«ö¶s-¬O­n±N«È¤áªº­Ó¸ê¦Û°Ê¶K¤W³sµ²¨ì·~°È©ú²Ó¨ºÃä,¦nÅý·~°È¤§«á¥i¥H±q[·~°È©ú²Ó]ªºÀɮפºª½±µÂIÀ»³sµ²¨ì[­Ó§Oªº«È¤á©ú²Ó]
¬O­n±N[­Ó§O«È¤á©ú²Ó]ªº¸ê®Æ°µ¶W³sµ²¦Ü[·~°È©ú²Ó],­Ó§O«È¤á©ú²ÓªºÀɦW¤£¬O©T©wªº¨C­ÓÀɮ׳£ÄÝ©ó­Ó¤H,¦Ü©ó[·~°È©ú²Ó]«h¬O©T©wªº

TOP

¦^´_ 2# starry1314


    ÁÙ¬O³o¼Ë¡H
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="­Ó§O«È¤á©ú²Ó(½Ð¥ý¥t¦s·sÀÉ).xlsm", SubAddress:="¦¬´Ú¸ò¶Ê!Q2"

ÁÙ¦³§Aªº³sµ²­n©ñ­þ¸Ì¡H§Aªº°ÝÃD¤¤¤]¨S»¡²M·¡¡I©Ò¥H§Ú¥u¯à²q´ú

TOP

¦^´_ 5# lpk187


    §Ú­ì¥»³]©w¦b­Ó§O«È¤á©ú²Óªº«ö¶s(¬O±N¥»­¶A2:P2)ªº¸ê®Æ¶K¨ì(·~°È©ú²Ó)ªºÀÉ®×¥h
  ¦ý¥Ø«e¤£ª¾¹D«ç»ò¥Î¤~¥iÅý¥L¦Û°Ê´¡¤J¶W³sµ²(ÀH¥Ø«e[«È¤á©ú²Ó.xlsm]ÀɮצӦ۰ÊÅܧó
¥uª¾¹D¦badrwwa=_«á¤è¥[¤J«ü©wªº¸ô¸g¥i¥H¦Û°Ê´¡¤J¶W³sµ²¦¨¥\,¦ý¤£·|¼gÀHÀɮצì¦ÜÅܰʦӦ۰ÊÅÜ°Ê
·Q»¡¦bQ2³]cell(filename) ¥iÅý¥LŪ¨ú¸ô®|,¦b¦Û°Ê¶K¤W~¦ý³£µL®ÄªG

TOP

¦^´_ 5# lpk187


    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "..\..\·~°È\­Ó§O«È¤á©ú²Ó.xlsm" <<³o¦ê¬°«ü©w¦ì¸m,·Q§ï¦¨Åý¥L¦Û°ÊŪ¨ú§Ú¥Ø«eÀɮשҦbªº¸ô®|,¨Ã´¡¤J¶W³sµ²¦Ü[·~°È©ú²Ó]

TOP

¦^´_ 6# starry1314


    ÅýAÀɮתº¸ê®Æ¦Û°Ê¶K¨ìBÀÉ®×,¨Ã¦bBÀɮ׽ƻs¹L¥hªº¸ê®ÆÄæ¦ì¤W,´¡¤J¥Ø«eAÀɮשҦb¦ì¸mªº¶W³sµ²¸ô®|

TOP

¥»©«³Ì«á¥Ñ lpk187 ©ó 2015-5-5 22:46 ½s¿è

¦^´_ 6# starry1314


    Windows("«È¤á©ú²Ó-·~°È±M¥Î.xlsm").Sheets("¤­¤ë").Hyperlinks.Add Anchor:=Windows("«È¤á©ú²Ó-·~°È±M¥Î.xlsm").Sheets("¤­¤ë").Range("B7"), Address:=ThisWorkbook.Name, SubAddress:=ActiveSheet.Name & "!Q2"
¨ä¤¤ ThisWorkbook.Name ¬O"¨ú±o"­Ó§O«È¤áªº¤u§@ï¦WºÙ
ActiveSheet.Name¬O¥Ø«eªº¤u§@ªí¦WºÙ
·|¥Î³o2­Ó¬O§A»¡­Ó§O«È¤áªº¤u§@ï¦WºÙ·|¤£¦P©Ò¥H¥i¥H¥Î³o¼Ë¨ÓŪ¨ú¨ä¦WºÙ

TOP

¦^´_ 7# starry1314


    ­Y­n¦AŪ¨ú¸ô®|¥i¥ÎThisWorkbook.Path & "\" & ThisWorkbook.Name
©Ò¥H¥i¥H³o¼Ë Address:=ThisWorkbook.Path & "\" & ThisWorkbook.Name, SubAddress:=ActiveSheet.Name & "!Q2"

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD