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

[µo°Ý] ¶W³sµ²­×§ï°ÝÃD

[µo°Ý] ¶W³sµ²­×§ï°ÝÃD

½Ð°Ý¤@¤U¦U¦ì«e½ú:
§Ú¦³¤@¥÷EXCELÀÉ®×A¸Ì­±SHEET1ªºA1,A2,A3...¤À§O¶W³sµ²¨ì¥t¤@­ÓexcelÀÉ®×BªºSHEET1,SHEET2,SHEET3,........,¥i¬O³Ìªñ§Ú±NÀÉ®×B§ï¦¨¥¨¶°ªºEXCELÀɵ²ªGªþÀɦW±q.xlsxÅܦ¨.xlsm,¶W³sµ²´N¥¢®Ä¤F,½Ð°Ý¦³¨S¦³¿ìªk¥i¥H¤@¦¸±N©Ò¦³ªº¶W³sµ²§ó§ï¹L¨Ó¶Ü?§Ú¦³¸Õ¹L¥Î¨ú¥Nªº¥\¯à~¥i¬O¦n¹³¨S¿ìªk´M§ä¨ì¶W³sµ²¸Ì­±ªº¤å¦r..
½Ð°Ý¦U¦ìEXCELªº°ª¤â­Ì¬O¤£¬O¦³¤ñ¸û¦nªº¤èªk,ÁÂÁÂ...
JIMMY

For i = 1 To 3
    Windows("·s¼W Microsoft Excel ¤u§@ªí.xlsm").Activate
    Cells(i, 1).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "·s¼W Microsoft Excel ¤u§@ªí (2).xlsx", SubAddress:=Worksheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
Next i

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 1# jimmy510
  1. Sub ex()
  2. Dim Hy As Hyperlink
  3. For Each Hy In Sheet1.Hyperlinks  '©Ò¦³¶W³sµ²´`Àô
  4.   Hy.SubAddress = Replace(Hy.SubAddress, ".xlsx", "xlsm")  '§ó§ï¶W³sµ²¦ì§}
  5. Next
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# Hsieh


    ª©¤j~¤S­n³Â·Ð§A¤F~§Ú¦³ªþ¥[¤WÀÉ®×~¸Õ¹L§Aªº¥¨¶°,¥i¬OÁÙ¬O¨S¿ìªk§ó§ï¶W³sµ²,½ÐÀ°§Ú§ì¬Ý¬Ý­þÃä¥X¤F°ÝÃD,ÁÂÁÂ... §ó§ï¶W³sµ².rar (11.76 KB)
JIMMY

TOP

¦^´_ 4# jimmy510

¤å¥ó¦a§}¬OAddress
  1. Sub ex()
  2. Dim Hy As Hyperlink
  3. For Each Hy In ActiveSheet.Hyperlinks  '©Ò¦³¶W³sµ²´`Àô
  4.   Hy.Address = Replace(Hy.Address, ".xlsx", "xlsm") '§ó§ï¶W³sµ²¦ì§}
  5. Next
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁª©¤j~~¥i¥H¤F~~~ÁÂÁ§AªºÀ°¦£^^
JIMMY

TOP

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