|
▼貫井企画 さん:
>はじめまして、VBA初心者の者です。
>・追加したシートを削除して元の状態に戻す方法
>をご指導願います。よろしくお願いします。
'「ツール」−「参照設定」にて
'Microsoft Scripting Runtime にチェックを入れる
Private Dic As New Dictionary
Sub シート追加()
Dim i As Integer
Worksheets("Sheet3").Activate
For i = 1 To 10
Worksheets.Add after:=ActiveSheet
With ActiveSheet
.Name = "Sheet" & i + 3
.Tab.ColorIndex = i
Dic(.Name) = Empty
End With
Next
End Sub
Sub シート削除()
Dim key
For Each key In Dic.Keys
Application.DisplayAlerts = False
Worksheets(key).Delete
Application.DisplayAlerts = True
Next
Dic.RemoveAll
End Sub
こんなのではダメでしょうか?
|
|