返回列表 上一主題 發帖

如何做成目錄?

play9091

帖子
87 
主題
24 
精華
0 
積分
122 
點名
0  
作業系統
win 7 
軟體版本
2016 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2018-1-16 
1# 跳轉到 »
發表於 2011-7-29 18:49 | 顯示全部帖子
本帖最後由 play9091 於 2011-7-29 18:54 編輯

試試看，下面這個可不可以跑！！！
  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
複製代碼
初學VBA乍到twbts

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題