- ©«¤l
- 87
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 122
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-7-9
- ³Ì«áµn¿ý
- 2018-1-16
|
¥»©«³Ì«á¥Ñ play9091 ©ó 2011-7-29 18:54 ½s¿è
¸Õ¸Õ¬Ý¡A¤U±³oÓ¥i¤£¥i¥H¶]¡I¡I¡I- Sub ¥¨¶°1()
- '
- ' ¥¨¶°1 ¥¨¶°
- '¥OI=1
- I = 1
- '°j°é¡A±q1¨ìsheet N
- For N = 1 To Sheets.Count
- '¦pªGI=1ªº¸Ü¡A¥[¤Jsheet¥s¡u²M³æ¡v
- If I = 1 Then
- Sheets.Add.Name = "²M³æ"
- End If
- '¨ú±osheetªº¦W¦r
- SN = Sheets(N + 1).Name
- '±N¨ú±oªº¦W¦r¡A¼g¤Jcell
- Cells(I, 1) = SN
- '¥[¤W¶W³sµ²
- ActiveSheet.Hyperlinks.Add Anchor:=Cells(I, 1), Address:="", SubAddress:= _
- SN & "!A1", TextToDisplay:=SN
- '§âI+1
- I = I + 1
- Next
- End Sub
½Æ»s¥N½X |
|