Excel VBA質問箱 IV

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

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


15639 / 76734 ←次へ | 前へ→

【66570】シートの削除について
質問  との  - 10/9/11(土) 16:49 -

引用なし
パスワード
   こんにちは。
実行すると、「選択したシートにデータが存在する可能性があります。完全に削除するには「削除」ボタンをクリックしてください」
と出てきます。
このメッセ−ジなしに、強制削除する方法はありませんか?

Option Explicit
Sub macro001()
 Dim Number As Integer
 Dim i As Integer
 Dim j As Integer
 Dim k As Integer
 
 'Excel起動時に存在していたシート枚数をカウントし、変数Numberに代入する
 Number = Worksheets.Count
 
 'Excel起動時に存在していたシートの名前を「削除i」とする
 '(シートiという名前が重複すると追加できないので)
 For i = 1 To Number
  Worksheets(i).Name = "削除シート" & i
 Next
 
 'シートを30枚追加する
  For j = 1 To 30
   '新規シートは一番最後のシートとして追加
   Worksheets.Add after:=Worksheets(Worksheets.Count)
   '一番最後のシート(新規シート)の名前を「シートj」とする
   Worksheets(Worksheets.Count).Name = "シート" & j
  Next

 'Excel起動時に存在していたシートを削除する
 For k = 1 To Number
  Worksheets(1).Delete
 Next
End Sub
1 hits

【66570】シートの削除について との 10/9/11(土) 16:49 質問
【66571】Re:シートの削除について かみちゃん 10/9/11(土) 17:02 発言

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