Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


39279 / 76732 ←次へ | 前へ→

【42566】特定のシート(複数)を残して削除する方法
質問  とく  - 06/9/15(金) 11:18 -

引用なし
パスワード
   初心者です。
宜しくお願いします。

常に複数のシートだけにしておきたい
場合はどのように書けば宜しいでしょうか?

1枚の場合は以下のコードで実行できましたが
複数の場合、例えば3枚(test2、test3も残したい)
などの場合はどのように書けば良いですか?
いろいろ試してみましたが、うまくいきません、、

WinXP Excel2003です。

Sub 常にシートは1枚にする()
  Dim mysh As Object
  For Each mysh In Sheets
    If mysh.Name <> "test1" Then mysh.Delete
  Next
End Sub
0 hits

【42566】特定のシート(複数)を残して削除する方法 とく 06/9/15(金) 11:18 質問
【42572】Re:特定のシート(複数)を残して削除する... ひげくま 06/9/15(金) 11:44 回答
【42575】Re:特定のシート(複数)を残して削除する... とく 06/9/15(金) 12:00 お礼
【42574】Re:特定のシート(複数)を残して削除する... Kein 06/9/15(金) 11:56 回答
【42580】Re:特定のシート(複数)を残して削除する... とく 06/9/15(金) 14:33 お礼

39279 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free