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

jimmy510

½Ð°Ý¤@¤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,ÁÂÁÂ...

mark15jill

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

Hsieh

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

jimmy510

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

¤U¸ü¦¸¼Æ: 9

2012-9-14 09:24

Hsieh

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

jimmy510

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