EXCELªº¥Ø¿ý

VANESSA

Book1(4).zip (60.98 KB)

¤U¸ü¦¸¼Æ: 24

2012-5-25 15:19

¦P¤@­ÓÀɤº¦³«Ü¦h«Ü¦hªº¤u§@ªí,«ç¼Ë¤~¯à±N³o¨Ç¤u§@ªíªº¦WºÙ,·J¾ã¦b"¥Ø¿ý"³o­Ó¤u§@ªíªºAÄæ?

register313

¦^´_ 1# VANESSA

VBA

1. Sub Sortsheets()
   
2.     Dim S%, C%, SH%, AR()
   
3.     SH = Worksheets.Count - 1
   
4.     ReDim AR(1 To SH)
   
5.     C = 1
   
6.     For S = 1 To Worksheets.Count
   
7.       If Sheets(S).Name <> "¥Ø¿ý" Then
   
8.          AR(C) = Sheets(S).Name
   
9.          C = C + 1
   
10.       End If
    
11.     Next S
    
12.     Sheets("¥Ø¿ý").[A:A] = ""
    
13.     Sheets("¥Ø¿ý").[A1].Resize(SH, 1) = Application.Transpose(AR)
    
14. End Sub

½Æ»s¥N½X

VANESSA

¹ï¤£°_,§Ú¤£ª¾¹D³o­ÓVBA­n«ç»òCOPY¨ìÀɮפº,¬O­n©ñ¨ì¥¨¶°¶Ü?
¦A«ö°õ¦æ¥¨¶°¶Ü?¥i¬O¨S¦¨¥\吔,¥i¥H¦A±Ð¤@¤U¶Ü,ÁÂÁÂ

Hsieh

¦^´_ 3# VANESSA
§AÀ³¸Ó¬O­n°µ¶W³sµ²§a¡A³o¼Ë¤]­nªð¦^¥Ø¿ýªº¾Þ§@

¤U¸ü (784.49 KB)

2012-5-25 16:30

1. Private Sub Worksheet_Activate()
   
2. Dim A As Range, Sh As Worksheet
   
3. Columns("A:A").Clear
   
4. r = 1
   
5. For Each Sh In Sheets
   
6.    If Sh.Name <> Me.Name Then
   
7.       Set A = Cells(r, 1)
   
8.            Me.Hyperlinks.Add Anchor:=A, Address:="", SubAddress:= _
   
9.         "'" & Sh.Name & "'!A1", TextToDisplay:=Sh.Name
   
10.        Sh.Hyperlinks.Add Anchor:=Sh.[A1], Address:="", SubAddress:= _
    
11.         "'¥Ø¿ý'!A1", TextToDisplay:="ªð¦^¥Ø¿ý"
    
12.        r = r + 1
    
13.    End If
    
14. Next
    
15. End Sub

½Æ»s¥N½X

VANESSA

¦n©Ç,¬°¤°»ò§Ú«ç»ò¸Õ³£¤£¦æ
1.¦b¤u§@ªí"¥Ø¿ý"«ö¥kÁä,¿ï¨ú©Ò¦³¤u§@ªí
2.¿ï"À˵øµ{¦¡½X'¶K¤Wµ{¦¡
3«ö'Ãö³¬'¦^¨ì¤u§@ªí
4.µ¥...µ¥...µ¥¦n¤[³£¨S¥X¨Ó,½Ð°Ý§Ú¨ì©³¬O­þ°µ¿ù¤F

u3003kimo

·PÁ¤À¨É,
VBA ªGµM¬O³Õ¤jºë²`°Ú~~

Hsieh

¦^´_ 5# VANESSA


    ¦n©Ç,¬°¤°»ò§Ú«ç»ò¸Õ³£¤£¦æ
1.¦b¤u§@ªí"¥Ø¿ý"«ö¥kÁä,¿ï¨ú©Ò¦³¤u§@ªí
¤£»Ý­n¿ï¨ú©Ò¦³¤u§@ªí
¤u§@ªí"¥Ø¿ý"«ö¥kÁä¡A¿ï"À˵øµ{¦¡½X'¶K¤Wµ{¦¡
µM«á¦^¨ì¤u§@ªí«á¤Á´«¤u§@ªí¸Õ¸Õ¬Ý

VANESSA

Åã¥Ü"»yĶ¿ù»~",§Ú§âµe­±¶K¦bªþÀÉ Doc1.zip (57.37 KB)

¤U¸ü¦¸¼Æ: 9

2012-6-8 16:47

,Àµ½Ðª©¥DÀ°¦£

freeffly

«Ü¦n¥Îªº¥N½X
§Ú¦Û¤v±NA1­×§ï¦¨¦p¤U­±¥N½X
®Ú¾Ú«á­±¸ê®Æªº¦ì¸m¥h§PÂ_
¥i¯à¨C­Ó¤Hªº¸ê®Æ¤£¤@¼Ë
¦A¦Û¦æ­×§ï
" & Sh.Range("iv3").End(xlToLeft).Offset(, 1).Address & "

1. Dim A As Range, Sh As Worksheet
   
2. Columns("A:A").Clear
   
3. r = 1
   
4. For Each Sh In Sheets
   
5.    If Sh.Name <> Me.Name Then
   
6.       Set A = Cells(r, 1)
   
7.            Me.Hyperlinks.Add Anchor:=A, Address:="", SubAddress:= _
   
8.         "'" & Sh.Name & "'!" & Sh.Range("iv3").End(xlToLeft).Offset(, 1).Address & "", TextToDisplay:=Sh.Name
   
9.        Sh.Hyperlinks.Add Anchor:=Sh.Range("iv3").End(xlToLeft).Offset(, 1), Address:="", SubAddress:= _
   
10.         "'¥Ø¿ý'!A1", TextToDisplay:="ªð¦^¥Ø¿ý"
    
11.        r = r + 1
    
12.    End If
    
13. Next

½Æ»s¥N½X

hydraulic

¦pªG¨C­Ó¤u§@ªíA:AÄæ¦ì³£¦³¸ê®Æªº®É­Ô©O,³o¼Ë¤l­n¹ï¨C­Ó¤u§@ªí´¡¤J¤@¾ãÄæ¦ì¥ý§a