帖子: 88
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-3
最後登錄: 2017-12-31

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-1-4 19:12 | 只看該作者

[發問] (發問)★連刪n個工作表範例問題

剛學vba，資歷尚淺，問一些蠢問題還請見諒，不過持續有在精進。問題如下：

現在要刪工作表從第2個刪到第12個，我寫的程式不知道錯在哪裡，煩請大家指正。

Sub 巨集1()
' 巨集1 巨集
Dim i As Long
For i = 2To 12
Sheets("工作表i").Select <<<這行顯示出錯誤
ActiveWindow.SelectedSheets.Delete
Next i
End Sub
---------------------------------------------------------------------------------------------------------
解決方案：(原始搞笑的版本)
'
Sheets("工作表4").Select
ActiveWindow.SelectedSheets.Delete
Sheets("工作表5").Select
ActiveWindow.SelectedSheets.Delete
Sheets("工作表6").Select
ActiveWindow.SelectedSheets.Delete
．．
．．
Sheets("工作表12").Select '就同樣的程式碼一直複製貼上，改工作表後面的數字
ActiveWindow.SelectedSheets.Delete
End Sub
-----------------------------------------------------------------------
今天是運氣好只有12個工作表，哪一天如果100個工作表要刪，這個程式碼就變的非常長了．．基於危機意識，特來版上請益。

之前學習是以錄製巨集再去編輯裡頭看程式碼，搭配幾本入學書籍，但處理大量資料之後，很多東西開始不能用錄的回去看，像上一篇"★請教各位 vba整理數據問題，根據條件，開特定新檔，貼檔，儲存，再條件判斷的問題"就沒有辨法用錄製的方式來反查，還好GBKEE大幫忙，問題才得以解決，才發覺自已的程式學習之路還有很遠的路要走。

因為在書局看了不少仿間日本人寫的書應用都寫的不錯，但比較少針對迴圈或大量資料做處理的範例來做各個解析。差不多一個章節，有大大能現身說法，學習的過程嗎？再來應該是要把迴圈包迴圈等技巧學的很熟練。

樓主熱帖

yagami12th

中學生 Rank: 2

帖子: 88
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-3
最後登錄: 2017-12-31

6^#

發表於 2012-1-5 10:17 | 只看該作者

回履：GBKEE大，剛剛我有試了，2010版本至少要留一個工作表才行，不能全刪。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2012-1-5 09:59 | 只看該作者

本帖最後由 GBKEE 於 2012-1-5 11:15 編輯

回復 4# lcc_seven
刪除到只剩1個，因為如果連最後一個也刪除，檔案會關閉起來
請問一下  2007以上版本允許活頁簿中完全沒有 Sheet (工作表) 嗎?
****************
後續 :
If SheetsCount > 1 Then
For i = 1 To SheetsCount - 1
      Sheets(1).Delete    <- 刪除第一個但如是 Sheets(i).Delete 會有錯誤  可參考3#的 Step-1
Next i
End If
******************************

TOP

lcc_seven

小學生 Rank: 1

帖子: 21
主題: 2
精華: 0
積分: 27
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: Tainan
註冊時間: 2012-1-3
最後登錄: 2013-2-28

4^#

發表於 2012-1-4 22:54 | 只看該作者

回復 3# yagami12th
我也來提供一個，自動判別有幾個sheet，刪除到只剩1個，因為如果連最後一個也刪除，檔案會關閉起來
Sub DeleteSheets()
Dim SheetsCount As Integer
SheetsCount = Application.Sheets.Count
Application.DisplayAlerts = False
If SheetsCount > 1 Then
For i = 1 To SheetsCount - 1
Sheets(1).Delete
Next i
End If
Application.DisplayAlerts = True
End Sub

TOP

yagami12th

中學生 Rank: 2

帖子: 88
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-3
最後登錄: 2017-12-31

3^#

發表於 2012-1-4 19:54 | 只看該作者

感謝kobo大，程式碼可以執行，我加了註解，讓後面學習的人能夠了解。

Sub 巨集1()
Dim i As Integer
For i = 12 To 2 Step -1 '從12減到2，每次間隔1
   Application.DisplayAlerts = False  '停止系統提示<這兩招昨天GBKEE大教我的
   Sheets(i).Delete '從工作表12開始刪到工作表2
   Application.DisplayAlerts = True '恢複系統提示
Next i
End Sub

TOP

kobo

小學生 Rank: 1

帖子: 37
主題: 0
精華: 0
積分: 41
點名: 0
作業系統: windows xp
軟體版本: 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-5-7
最後登錄: 2018-2-10

2^#

發表於 2012-1-4 19:43 | 只看該作者

本帖最後由 kobo 於 2012-1-4 19:55 編輯

試試看這個
Sub 巨集1()
Dim i As Integer
For i = 12 To 2 Step -1
Application.DisplayAlerts = False
Sheets(i).Delete
Application.DisplayAlerts = True
Next i
End Sub
或
Sub 巨集2()
Dim i As Integer
For i = 1 To 11
Application.DisplayAlerts = False
Sheets(2).Delete
Application.DisplayAlerts = True
Next i
End Sub
或
Sub 巨集3()
Dim i As Integer
For i = 1 To 11
a = Sheets.Count
Application.DisplayAlerts = False
Sheets(a).Delete
Application.DisplayAlerts = True
Next i
End Sub

TOP