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

[µo°Ý] ±N¸ê®Æ¦Û°Ê½Æ»s¨ì¡A¥Ø«eÂI¿ïªº©Ò¦b­¶­±¨Ã¦Û°Ê¿ï¾Ü³Ì«á¤@¦æªÅ¥Õ³B¶K¤W

For I = 2 To Sheets.Count
     ActiveSheet.Hyperlinks.Add Anchor:=Range("a" & I), Address:="", SubAddress:= _
        Worksheets(I).Name & "!A1", TextToDisplay:=Sheets(I).Name
Next

¦³§ä¨ì³oºØ¼gªk.¦ý¤£ª¾¹D¸Ó¦p¦ó¾ã¦X¶i¨Ó,ÁöµM·|¦³¶W³sµ²¦¨¥\ ¦ý¤£ª¾¹D¸Ó«ç»ò½Õ¾ã ¦b·~°È¨ºÃä·|¦Û°Ê§ì§ÚSHEET1ªº³s±µ¶K¹L¨Ó,¦ý¦b¬ö¿ýªí¨º«o¥u·|§ì¤@­Ó³sµ²¹L¨Ó
¥i¥H³Â·ÐÀ°§Ú¬Ý¬Ý¶Ü|
«È¤á©ú²Ó¦Û°Ê¤Æ.rar (31.31 KB)

TOP

ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:="", SubAddress:=Worksheets(I).Name & "!A1", TextToDisplay:=Sheets(I).Name

¥Õ¸Ü¤å¡G¦b³o­Ó­¶­±¤U¼W¥[¤@¶W³sµ²¡A Anchor¥Nªí¬O­þ¤@­ÓÀx¦s®æ­n¥[¤J¶W³sµ²,Address¥Nªí­n³sµ²¨ì­þ¤@­ÓÀɮסq·N«ä¬O§OªºÀɮצWºÙ¡A¨Ò¦paddress:="C:\ABC\DEF.xls")¡ASubAddress¥Nªí¬O¨º­ÓÀɮפºªº­þ¤@­ÓSheetªºÀx¦s®æ¦ì¸m¡q®Ú¾Ú§Aªº¨Ò¤l¡A¥L­è¦n¬O¦b¦P¤@­ÓÀɮפº¡A©Ò¥H¤@¨ÓAddress¬OªÅ¥Õ¡A¤G¨Ó¥L¬OÁpµ²¨ì¨º­ÓSheetªºÀx¦s®æA1¡A©Ò¥H·í§AÂI¨º­Ó³sµ²®É­Ô¡A·|ª½±µ¶]¨ì¨º­ÓSheetªºA1¦ì¸m¡r¡A³Ì«áTexttoDisplay¬O»¡§A§Æ±æ¨º­ÓÀx¦s®æ¤ºªºÁpµ²¦WºÙ¡A¤@¯ë¹w³]­È¬O"Link"¡A®Ú¾Ú§Aªº¨Ò¤l¬O§Æ±æÅã¥Ü³sµ²Sheetªº¦WºÙ

®Ú¾Ú¥H¤W»¡©ú¡AÀ³¸Ó´Nª¾¹D¦p¦óÂX¥R¤F§a

TOP

¦^´_ 9# starry1314

Workbooks("¬ö¿ýªí ").Sheets("«È¤á©ú²Ó").Rows(2).Copy

­Y±z·Q½Æ»s¥Ø«e§@·~¤¤ªº¬¡­¶Ã¯,¥i¥Hª½±µ±N«e¤è¥h°£§Y¥i=>Sheets("«È¤á©ú²Ó").Rows(2).Copy

´¡¤J¶W³sµ²ªº¤è¦¡,­Y·Q¦b¥Ø«e§@·~¤¤ªº¤À­¶´¡¤J¶W³sµ²,°Ñ¦Ò¤U¤è¤è¦¡,­Y·Q«ü©w¤À­¶,§ó§ï«e¤èªºActiveSheet ¬° sheets("XX")§Y¥i
    ActiveSheet.Hyperlinks.Add Anchor:=Range("B6"), Address:="", SubAddress:= _
        "¶µ¥Ø³]©w!A1", TextToDisplay:="¶µ¥Ø³]©w!A1"
PKKO

TOP

¦^´_ 12# tyrone123456


    §Ë¤F¤@¤ÑÁÙ¬O§Ë¤£¦n.....³sµ²·|Åܦ¨³]¦b©T©wÀx¦s®æ,¤£µM´N¬OµLªk°Ñ·Óªº³sµ²
1.§Ú·Q°µªº¬O ¥kÃ䪺EXCEL¸ê®Æ¦Û°Ê½Æ»s¨ì¥ª¤èEXCEL,¨Ã¦Û°Ê¶K¦Ü¦³¸ê®Æªº³Ì«á¤@¦C,¨Ã¥B¦Û°Ê´¡¤J¥i³sµ²¦Ü¥kÃäEXCELÀɮתº³sµ²

(¦ý¦]¥kÃäEXCEL,·|¦³µL¼Æ­Ó¤£¦PÀɦW)   <<©Ò¥H·Q°Ý»¡«ç»ò¤£§¡ÀɦW,
¦]§Ú·ÓPKKOÁ¿ªº±NWorkbooks("¬ö¿ýªí ")®³±¼´N¤@ª½»¡°»¿ù¤£ª¾¹D­þÃä¼g¿ù¤F


½d¨Ò.jpg
2015-4-19 17:00

TOP

¦^´_ 13# PKKO

ÁÙ¬O¨S¿ìªk»¡,ª½±µ®³±¼³ÑSheets("«È¤á©ú²Ó").Rows(2).Copy ·|¤@ª½¶]°»¿ù,
    ¥B§Ú·Q¼g¦¨¥¨¶°¦s¦bªºEXCEL¸Ì­±ªº«ü©wSHEET¦Û°Ê½Æ»s¨ì§Ú¥Ø«eµe­±¤Wªº­¶­±¨Ã¦Û°Ê¶K¤W¶WÁpµ²,¤£ª¾¦³¿ìªk¶Ü?
²{¦bºâ§¹¦¨¤@¥b¤F,¤w¸g¥i¼g¦¨½Æ»s³sµ²¨ì§Ú©Ò­nªºEXCEL¸Ì­±,¦ý³£¬O¥²¶·¦³¤@­ÓEXCEL­n«ü©wÀɦW

TOP

§AÀ³¸Ó¤w¸g·|¼g¸ê®Æ¶K¨ì³Ì«á¤@µ§ªºVBAµ{¦¡¡A©Ò¥H§A¤]À³¸Óª¾¹D¦p¦ó¨ú±o³Ì«á¤@µ§ªº¦æ¦ì¡A±µ¤U¨Ó¥u­n¦b¸Ó¦æª¬ºA¤U¡A¦b³Ì«á¤@Ä檺Àx¦s®æ±N¤W­zªº¶W³sµ²¸ô®|¥[¤J¡A´N§¹¦¨¤F
ÀR¤U¤ß¡A¦A«ä¦Ò£¸¤U¡A´N¥i¥H¼g¥XVBAµ{¦¡¤F

TOP

¦^´_ 16# tyrone123456

¦nªº~§Ú¦A¸Õ¸Õ,¦p¦ó±N¶K¤J¶W³sµ²ªº¼gªk¥[¤J

TOP

¦^´_ 16# tyrone123456


   ·Q½Ð°Ý¤@¤U
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:="", SubAddress:=Worksheets(I).Name & "!A1", TextToDisplay:=Sheets(I).Name
¸Ì­±ªº(I) ¥Nªíªº¬O?

TOP

´N¬OSheetªº½s¸¹¡A¦]¬°§A¦³¨Ï¥ÎFor I = 2 to sheets.count¡A©Ò¥HSheets(I).name¥Nªí²ÄI­ÓSheetªº¦W¦r

For I = 2 To Sheets.Count
     ActiveSheet.Hyperlinks.Add Anchor:=Range("a" & I), Address:="", SubAddress:= _
        Worksheets(I).Name & "!A1", TextToDisplay:=Sheets(I).Name
Next

TOP

¦^´_ 19# tyrone123456


    Sub test()


    Workbooks("¬ö¿ýªí-°ò¦A").Sheets("«È¤á©ú²Ó").Rows(2).Copy
    EndRow = ActiveSheet.UsedRange.Rows.Count + 1 '©Ò¦³¨Ï¥Î¤¤ªº¦C¼Æ+1
    Rows(EndRow).PasteSpecial Paste:=xlPasteValues
For I = 2 To Sheets.Count
     ActiveSheet.Hyperlinks.Add Anchor:=Range("a" & I), Address:="", SubAddress:= _
        Worksheets(I).Name & "!A1", TextToDisplay:=Sheets(I).Name
Next

End Sub

1.¥Ø«e³o¼Ë¦b·~°È¨º­ÓÀÉ®×·|½Æ»s²Ä¤@­ÓSHEETªº¶W³sµ²¹L¨Ó¨ìSHEET2ªº²Ä¤@Äæ
2.¦pªG¦A°ò¦¨º­Ó¨º­ÓÀÉ®×°õ¦æ¥¨¶°ªº¸Ü·|Åܦ¨A2ªº¶W³sµ²¦ÜA1.
¥i¥H¦b³Â·Ð±Ð§Ú«ç»ò¸Ñ¨M¶Ü|

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD