A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
一括で削除するというのがお望みならば、こうなります。
一括で配列を作れれば、もう少し簡略化できます。ただし、今は、シート名ではなく、Worksheet インデックスでシートを選択しています。Dim i As Long
For i = 3 To Worksheets.Count
Worksheets(i).Select False
Next
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
No.2
- 回答日時:
こうかな。
(全角スペースに置き換えてます)
Public Sub test()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sheet As Worksheet
For Each sheet In ActiveWorkbook.Sheets
If sheet.Name <> "Sheet1" And sheet.Name <> "Sheet2" Then
Call sheet.Delete
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
No.1
- 回答日時:
詳しくといってもそれほど難解なコードも使っていませんので、わかると思います。
Application.DisplayAlerts = False
は確認メッセージを出さないために記載しています。
Sub Sample()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Worksheets
If sh.name <> "Sheet1" And sh.name <> "Sheet2" Then
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル:VBAで月変わりで、自...
-
excelの差込印刷で可視セルだけ...
-
エクセルVBA 別シートの複数の...
-
Excel VBA インデックスの境...
-
VBA:同じ文字列データの比...
-
Excel で行を指定回数だけコピ...
-
VBA別シートの最終行の下行へ貼...
-
エクセルVBAで 2種のリストを...
-
歯抜けの時間を埋めて行の挿入
-
エクセルVBAで SendKeys "{TAB}"
-
EXCELマクロで全シート対...
-
スマホ機種変更で旧機種のGoogl...
-
代替機にキズ
-
メールボックスがない時はどう...
-
スマホの画面が割れてしまいま...
-
故障した携帯をオークションで...
-
ちょっと教えてください。
-
FOMAカード(UIM)異常
-
不良セクタ
-
ipodとパソコン故障
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelマクロで空白セルを詰めて...
-
Excel で行を指定回数だけコピ...
-
excelの差込印刷で可視セルだけ...
-
Excel VBA インデックスの境...
-
VBA別シートの最終行の下行へ貼...
-
エクセルVBAで SendKeys "{TAB}"
-
エクセルVBA 別シートの複数の...
-
エクセル:VBAで月変わりで、自...
-
エクセルVBAで 2種のリストを...
-
VBA:同じ文字列データの比...
-
歯抜けの時間を埋めて行の挿入
-
エクセル2007で、マクロで、結...
-
Excel VBAでシート内全体に非表...
-
EXCELマクロで全シート対...
-
VBA 貼付先範囲(行)がいっぱ...
-
VBAで複数シート選択
-
Excel VBA 時刻でのD...
-
VBAで条件が一致する行のデータ...
-
Excel VBA 複数条件にマッチし...
-
【VBA】UserForm1の中で使うワ...
おすすめ情報