No.1ベストアンサー
- 回答日時:
Sub Sample()
Dim Sh As Worksheet
For Each Sh In Sheets
If Not (Sh.Name = "TEMP1" Or Sh.Name = "TEMP2") Then
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
End If
Next
End Sub
質問とは逆の判定のしかたですが、これではどうでしょうか?
No.2
- 回答日時:
(1)削除するシートの数が2-30までなら
CTRLキーを押しながら、マウスで削除するシートタブをクリックして、
Sub test01()
ActiveWindow.SelectedSheets.Delete
End Sub
を実行する。
(2)削除するシートタブを集めておいて(残すシートを範囲外に
ドラッグしておいて
Sub test02()
MsgBox Sheets("東京").Index
For i = 1 To Sheets("東京").Index
Sheets(1).Delete
Next i
End Sub
抹消するシートのシートタブのかたまりの最右のシート名が東京であった場合の例。
(3)削除シート数が、少ないときは
Sub test03()
Sheets(Array("Sheet31", "Sheet30", "Sheet24")).Select
Sheets("Sheet31").Activate
ActiveWindow.SelectedSheets.Delete
End Sub
のようなほうほうもある。
No.3
- 回答日時:
こんにちは。
私は、#1 さんので十分だと思いますが、あえて、私が書かせていただくとすれば、こうなるのではないかと思います。
Sub SpecifiedSheetsDelete()
Dim sh As Object
For Each sh In ActiveWorkbook.Sheets
If ActiveWorkbook.Sheets.Count = 1 Then Exit For
If Not StrConv(sh.Name, vbUpperCase) Like "TEMP[12]" Then
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
End If
Next
End Sub
ただ、
(1) 消したくないシート:TEMP1、TEMP2の2シート
(2) 消したいシート:1、2、3....といった連番シート
一体、どちらなのかは、多少分らない部分があります。
>(VBAで作成したシート)
というからには、ある程度、規則を持って作ったのでしょうから、その裏返しをすればよいだけです。
(1)
If Not StrConv(sh.Name, vbUpperCase) Like "TEMP[12]" Then
(2)
If IsNumeric(sh.Name) Then
ということになりますね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
高校生はアルバイトするべきだろうか?賛成だったら「賛」、否定だったら「否」を文頭においてあなたの意見を教えてください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
フォルダ内の複数ファイルから特定のシートを一括削除
その他(Microsoft Office)
-
Excelで、複数ブックの複数シートを削除するマクロを教えて下さい
Excel(エクセル)
-
【ExcelVBA】指定のシート以外を削除する方法
Visual Basic(VBA)
-
-
4
フォルダ内の全ブックのシート名を変更したいです。
Excel(エクセル)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
excelのマクロで該当処理できなければ飛ばして進むにはどうすればよいのでしょうか
Visual Basic(VBA)
-
7
VBAで指定シート以外の選択
Visual Basic(VBA)
-
8
VBAでシートコピー後、シート名が重複している時の処理
Access(アクセス)
-
9
VBA 存在しないシートを選択した時にエラーメッセージを表示するには?
Visual Basic(VBA)
-
10
VBAで別ブックのシートを指定して削除したい。
Visual Basic(VBA)
-
11
エクセルのオートフィルタで最初の数行を残してフィルタをしたい
Excel(エクセル)
-
12
エクセルで複数のシートのクリアをしたいです
Excel(エクセル)
-
13
エクセルVBA 開いているブックのコピー
Excel(エクセル)
-
14
特定のシート名のシートのみ除外して、それ以外のシート名のシートをすべて集約する方法(VBA)
Excel(エクセル)
-
15
VBA シート名が一致した場合の転記内容について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
原付 レッツシート開け方
-
XR250BAJAのシートのはずし方を...
-
シートベルトの固定解除
-
バイクのシートを取り替えても...
-
BRIDEのシート張り替えってでき...
-
ポップコーンの捨て方
-
BIKEのシートの取り外し方を教...
-
建築模型、カーブの作り方
-
IHクッキングヒーターの操作パ...
-
車のシートがへたってきました...
-
車のシートでおもらし
-
メルセデスベンツ
-
シート タックロールとノーマ...
-
自動車用シートの座面が長すぎ...
-
エクセルVBA 4行飛ばしで転記す...
-
エスティマのコンソールボック...
-
リアシート無しで運転してたら...
-
ポケットにミシンでワッペンを...
-
XJR400R 1995年式なのですがシ...
-
マグネットシート
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
括弧があるとHYPERLINKで飛べな...
-
原付 レッツシート開け方
-
エクセルで複数のシートをフォ...
-
エクセルVBA 4行飛ばしで転記す...
-
ポップコーンの捨て方
-
IHクッキングヒーターの操作パ...
-
シートベルトの固定解除
-
車のシートでおもらし
-
BRIDEのシート張り替えってでき...
-
フォルツァ バッテリーを外して...
-
リアシート無しで運転してたら...
-
バイクのシートを取り替えても...
-
Excel複数シートから日付と文字...
-
車のシートがへたってきました...
-
Excel VBA シート名変更時、重...
-
癒着してしまったテレビの液晶...
-
建築模型、カーブの作り方
-
XJR400R 1995年式なのですがシ...
-
台所流しの水音を小さくしたい
-
メルセデスベンツ
おすすめ情報