請教 for Each ..... Next 用法
- 帖子
- 12
- 主題
- 3
- 精華
- 0
- 積分
- 20
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-6-30
- 最後登錄
- 2013-6-4
|
請教 for Each ..... Next 用法
本帖最後由 JOSH 於 2012-11-27 15:40 編輯
Dear 各位大大
請問下列VBA要怎麼讓他停止在最後一個Sheet，不會出現錯誤訊息!!
刪到最後一個sheet會出現視窗『最後一個工作表』
謝謝指教
'======================================
Sub Macro1()
Dim mysheet As Worksheet
For Each mysheet In Worksheets
Application.DisplayAlerts = False
mysheet.Delete
Application.DisplayAlerts = True
Next
End Sub |
|
|
|
|
|
|
|
- 帖子
- 12
- 主題
- 3
- 精華
- 0
- 積分
- 20
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-6-30
- 最後登錄
- 2013-6-4
|
回復 2# die78325
大大~ 語法錯誤耶
|
|
|
|
|
|
|
|
- 帖子
- 12
- 主題
- 3
- 精華
- 0
- 積分
- 20
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-6-30
- 最後登錄
- 2013-6-4
|
|
|
|
|
|
|
|
- 帖子
- 12
- 主題
- 3
- 精華
- 0
- 積分
- 20
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-6-30
- 最後登錄
- 2013-6-4
|
回復 4# GBKEE
版大~~
謝謝你的指導
受益良多
謝謝 |
|
|
|
|
|
|
|
發表於 2012-11-27 15:37
| 
