シート削除のマクロで「deleteメソッドは失敗しました」となります。助けてください!
Sub 不要シート削除()
Dim WS As Worksheet
Dim Target As String
Target = "利用表"
For Each WS In Worksheets
If InStr(WS.Name, Target) <> 1 Then
WS.Activate
Application.DisplayAlerts = False
WS.Delete
Application.DisplayAlerts = True
End If
Next WS
End Sub
No.6
- 回答日時:
>シート削除のマクロで「deleteメソッドは失敗しました」となります。
助けてください!最後の1シートを削除しようとすると、必ずこのエラーが発生します。
削除する場合には、必ず、削除対象外のシートを1枚以上残した状態で
、削除するようにしてください。
No.5
- 回答日時:
>シート名が
>利用表 ・・・・①
>利用表6月 ・・・・②
>6月利用表 ・・・・③
>以外のシートを全て削除したいのですが助けてください。
それなら
If InStr(WS.Name, Target) = 0 Then
でOKのはずです。(こちらで動作確認は行っていません)
No.3
- 回答日時:
If InStr(WS.Name, Target) <> 1 Then
ではなく
If InStr(WS.Name, Target) <> 0 Then
ではないでしょうか。
No.2
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Excel(エクセル) vba シート名の一覧を2列に分けるには 5 2023/04/24 08:56
- Visual Basic(VBA) 今日の日付が過ぎたらその行を削除したい 1 2023/04/01 20:06
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別のシートから値を取得するとき
-
VBAの天才来てください
-
【ExcelVBA】全シートのセルの...
-
ユーザーフォームに入力したデ...
-
VBA 存在しないシートを選...
-
エクセルのシート名変更で重複...
-
XL:BeforeDoubleClickが動かない
-
同じ作業を複数のシートに実行...
-
ExcelVBA シート名を複数セルか...
-
エクセルのマクロでアクティブ...
-
【VBA】指定した検索条件に一致...
-
excelのマクロで該当処理できな...
-
VBAでオブジェクト変数にsetし...
-
エクセル・マクロ シートの非...
-
ブック名、シート名を他のモジ...
-
Excelマクロのエラーを解決した...
-
VBA 検索して一致したセル...
-
Worksheet_Changeの内容を標準...
-
シートが保護されている状態で...
-
エクセルVBAでダブルクリックを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
同じ作業を複数のシートに実行...
-
ExcelVBA シート名を複数セルか...
-
【ExcelVBA】全シートのセルの...
-
Excel マクロについての相談
-
VBA 存在しないシートを選...
-
実行時エラー'1004': WorkSheet...
-
特定の文字を含むシートだけマ...
-
ExcelのVBAのマクロで他のシー...
-
ブック名、シート名を他のモジ...
-
XL:BeforeDoubleClickが動かない
-
VBA 複数の各シートに行を追加...
-
エクセルのシート名変更で重複...
-
【Excel VBA】Worksheets().Act...
-
シートが保護されている状態で...
-
Excel VBA 複数行を数の分だけ...
-
for 文の 繰り返し処理に使える...
おすすめ情報
Target = "利用表"としていますがシート名には類似した“利用表6月”などが含まれていました。
これを踏まえてTargetに利用表が含まれると変更したいのですがどのように変更したら良いでしょうか。助けてください。
シート名が
利用表 ・・・・①
利用表6月 ・・・・②
6月利用表 ・・・・③
以外のシートを全て削除したいのですが助けてください。