ExcelVBA 他とは一味違うVBAサイト

VBA Tips2017.09.30 2018.03.21 taka

アクティブシート以外を削除する方法

ページコンテンツ

1 アクティブシート以外を削除する方法

アクティブシート以外を削除する方法

どうもtaka です、今回はアクティブシート以外をすべて削除する方法をご紹介します( ^ω^ )

アクティブシート以外を削除するコード

使用場面は限定されるかもしれませんが意外と覚えておくと便利だと思います(笑)

Sub Sample()
    Dim mySht As Worksheet
    With Application
        '警告/確認のメッセージを非表示
        .DisplayAlerts = False
        'シート名をチェックして、アクティブシートでなければ削除
        For Each mySht In Worksheets
            If mySht.Name <> ActiveSheet.Name Then mySht.Delete
        Next
        '警告/確認のメッセージの設定を元に戻す
        .DisplayAlerts = True
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

Sub Sample()

Dim mySht As Worksheet

With Application

'警告/確認のメッセージを非表示

.DisplayAlerts = False

'シート名をチェックして、アクティブシートでなければ削除

For Each mySht In Worksheets

If mySht.Name <> ActiveSheet.Name Then mySht.Delete

Next

'警告/確認のメッセージの設定を元に戻す

.DisplayAlerts = True

End With

End Sub

ファイルやコードの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

Twitterフォロー

ブログの更新通知を受け取るにはこちらにはこちら↓Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪

Twitterフォロー

Follow @takabou63

Sponsored Link

できる逆引き Excel VBAを極める勝ちワザ700 2016/2013/2010/2007対応

posted with ヨメレバ

国本温子,緑川吉行,できるシリーズ編集部インプレス 2016-06-17

Amazonで購入

コメントを残すコメントをキャンセル

ABOUTこの記事をかいた人

あることがキッカケでVBAを独学で勉強している、非IT企業の会社員。今はVBAで出来ることを模索しながら別の開発言語の取得、基本情報技術者試験合格が目標

NEW POSTこのライターの最新記事