お世話になります
指定したシート以外すべてのシートを削除させるボタンを作成したいのですが
↓こんなものを見つけました。(URLわからくなってしまった;;)
これは図1~ワークシートを削除させるVBAらしいのですが
■解らないこと
なぜかsheetにすると削除してくれません。
'指定以外ワークシート削除
Private Sub CommandButton1_Click()
Dim myShe As Worksheet
For Each myShe In Worksheets
If myShe.Name <> Worksheets("図").Name Then
myShe.Visible = Delete
End If
Next
End Sub
No.4ベストアンサー
- 回答日時:
横からすいません
たぶんここですね
For Each myShe In Worksheets
コレを
For Each myShe In Sheets
にします
あと
If myShe.Name <> Worksheets("図").Name Then
myShe.Visible = Delete
は
If myShe.Name <> "図" Then
myShe.Delete
に変えればOKと思います
続けると
For Each myShe In Sheets
If myShe.Name <> "図" Then
myShe.Delete
・・・
なんでSheetsじゃなきゃならないのかは、調べてませんが、For Eachでシート名を取るとき、上手く行かない時があるから使わないって割り切りで良いと思います
http://oshiete1.goo.ne.jp/qa3308068.html
おまけ
削除するシート名がわかるのであれば
Sheets("Sheet1","Sheet2","Sheet3","Sheet4","Sheet5","Sheet6").Delete
なんてのもあります
まぁただのおまけですが…^^;
No.3
- 回答日時:
#2です。
貼り付けが上手くいきませんでした。
こちらでためしてください。
Private Sub CommandButton1_Click()
Dim myShe As Worksheet
For Each myShe In Worksheets
If myShe.Name Like "*Sheet*" Then 'Sheet名にSheetを含めば
Application.DisplayAlerts = False '警告を止める
myShe.Delete '削除
Application.DisplayAlerts = True '警告を元に戻す
End If
Next
End Sub
No.2
- 回答日時:
> Sheetとつけられた名前を削除させたいのですが
> たとえば
> ■削除できるもの
> Sheet1,Sheet2,Sheet3,Sheet4,Sheet5,Sheet6
> ■できないもの
>Sheet以外のもの
Sheetの名前に「Sheet」という言葉を含んでいれば削除するのですね?
ならば以下をお試しください。
Private Sub CommandButton1_Click()
Dim myShe As Worksheet
For Each myShe In Worksheets
If myShe.Name Like "*Sheet*" Then 'Sheet名にSheetを含めば
Application.DisplayAlerts = False '警告を止める
myShe.Delete '削除
Application.DisplayAlerts = True '警告を元に戻すNext
End If
End Sub
No.1
- 回答日時:
>myShe.Visible = Delete
Visible はシート表示の設定なので、DELETE を設定する事はできません。
下記のようにします。
Application.DisplayAlerts = False
myShe.Delete
Application.DisplayAlerts = True
この回答への補足
お返事ありがとうございます
Sheetとつけられた名前を削除させたいのですが
たとえば
■削除できるもの
Sheet1,Sheet2,Sheet3,Sheet4,Sheet5,Sheet6
■できないもの
Sheet以外のもの
できないのであれば、逆に指定しているシート以外削除できないですか?
指定シートは4シートぐらいあります
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) シート削除のマクロで「deleteメソッドは失敗しました」となります。助けてください! Sub 不要 6 2022/09/08 16:41
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) Excelのマクロコードについて教えてください 1 2022/03/27 12:02
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/03/01 15:44
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
vba 削除
-
今日の日付が過ぎたらその行を...
-
エクセルVBAで行削除時にエラー...
-
同じ質問
-
アクセスにおいて間違って削除...
-
指定した文字があった場合、そ...
-
(Access)複数条件の重複デー...
-
VBA:Openステートメントで開い...
-
Cookieを削除 他サイトでの自動...
-
外付けSSDのデータを改ざんされ...
-
マクロで特定の行まで削除する...
-
エクセルで住所の混在する「丁...
-
iphone movファイル削除
-
もう関わりたくない人がいたらL...
-
Facebookメッセンジャーの不具合
-
VBA 特定の文字列を含む行を削...
-
データの削除件数が知りたいです
-
エクセル:右クリックすると出...
-
ダブルクォーテーションの削除...
-
Googleマップのマイプレスのマ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
教えてgooの機能に関するアンケ...
-
VBA:Openステートメントで開い...
-
指定した文字があった場合、そ...
-
エクセルで住所の混在する「丁...
-
回答が付かなかったので、再質...
-
もう関わりたくない人がいたらL...
-
同じ様な内容の質問を繰り返しても
-
喧嘩をしてLINE削除され、 また...
-
今日の日付が過ぎたらその行を...
-
日テレニュースHP、記事削除は...
-
Facebookメッセンジャーの不具合
-
ハメ撮りが流出したら
-
恋愛相談かてで
-
ダブルクォーテーションの削除...
-
エクセルVBAで行削除時にエラー...
-
教えてgooで誰でも月1回だけ回...
-
アクセスにおいて間違って削除...
-
女友達にLINEしたら、既読スル...
-
ウェブページへのアクセス不可 ...
-
すべてやりきった、大満足を意...
おすすめ情報