play9091

試試看，下面這個可不可以跑！！！

1. Sub 巨集1()
   
2. '
   
3. ' 巨集1 巨集
   
4. '令I=1
   
5. I = 1
   
6. '迴圈，從1到sheet N
   
7. For N = 1 To Sheets.Count
   
8. '如果I=1的話，加入sheet叫「清單」
   
9.     If I = 1 Then
   
10.     Sheets.Add.Name = "清單"
    
11.     End If
    
12. '取得sheet的名字
    
13.     SN = Sheets(N + 1).Name
    
14. '將取得的名字，寫入cell
    
15.     Cells(I, 1) = SN
    
16. '加上超連結
    
17.     ActiveSheet.Hyperlinks.Add Anchor:=Cells(I, 1), Address:="", SubAddress:= _
    
18.         SN & "!A1", TextToDisplay:=SN
    
19. '把I+1
    
20.     I = I + 1
    
21. Next
    
22. End Sub

複製代碼