Excel VBA質問箱 IV

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

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


12265 / 13644 ツリー ←次へ | 前へ→

【11428】指定した範囲のシートを削除したいのです... よっしー 04/3/9(火) 9:40 質問
【11429】Re:指定した範囲のシートを削除したいので... IROC 04/3/9(火) 9:51 回答
【11431】Re:指定した範囲のシートを削除したいの... よっしー 04/3/9(火) 10:21 質問
【11433】Re:指定した範囲のシートを削除したいの... IROC 04/3/9(火) 11:04 回答
【11437】Re:指定した範囲のシートを削除したいの... よっしー 04/3/9(火) 11:41 お礼

【11428】指定した範囲のシートを削除したいのです...
質問  よっしー  - 04/3/9(火) 9:40 -

引用なし
パスワード
   指定した範囲のシートをコマンドボタンで削除し
たいのですがやりかたがわかりません。
例えば、3つ目以降のシートを削除したい
ですが、3つ目以降には月ごとのデータが
それぞれのシートにあります。ただ月ごと
のシートが何シートあるかは固定されてお
らず、固定された指定の仕方ができません。
シート数が変わっても対応できるコードの
書き方を教えてください。よろしくお願い
します。

【11429】Re:指定した範囲のシートを削除したいの...
回答  IROC  - 04/3/9(火) 9:51 -

引用なし
パスワード
   Dim i As Long

For i = Worksheets.Count To 3 Step -1
  Worksheets(i).Delete
Next i

【11431】Re:指定した範囲のシートを削除したいの...
質問  よっしー  - 04/3/9(火) 10:21 -

引用なし
パスワード
   IROCさんいつもありがとうございます。
すごい簡単にできるんですね!助かり
ました。あとできれば、シートを削除
したときに、一回、一回シートを削除
するかのメッセージが表示されるのです
が表示させないようにできますか?
よろしくお願いします。

【11433】Re:指定した範囲のシートを削除したいの...
回答  IROC  - 04/3/9(火) 11:04 -

引用なし
パスワード
   Application.DisplayAlerts = False
'処理
Application.DisplayAlerts = True

です。

【11437】Re:指定した範囲のシートを削除したいの...
お礼  よっしー  - 04/3/9(火) 11:41 -

引用なし
パスワード
   IROCさんありがとうございます。
できました。

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