次回用にデータをクリアーするVBA。雑誌と書籍の在庫リスト

こんにちは、じゅんぱ店長（＠junpa33）です。

雑誌と書籍の在庫リストのソフト作成方法についてです。

今回は、

在庫表作成で今まで入力や表示を行ったデータを、

クリアーするためのエクセルVBAを作ります。

「書誌棚卸表.xlsm」で新しいモジュールに操作を行うVBAコードを記述します。

データのクリアーと在庫リスト削除のVBAコード

今回のコードの記述はModule4に記述します。

作成するVBAは

とします。

参考記事

2020年12月3日 シートクリアーを目的のメソッド別にVBA最速理解 2022年7月16日 「塗りつぶし」背景色をVBAで記述する

それでは、「コード入力表」、「データコピー」、「作業シート」と作成した「調査個所別シート」について

それぞれに説明していきます。

「コード入力表」のシートクリアー

コード入力表シートのセルの値のデータクリアーについては、

単に”Cells.Clear で行うことが出来ます。

Sub コード入力表クリア()
        Worksheets("コード入力表").Select
        Cells.Clear
        Worksheets("作業シート").Select
        Range("A1").Select
End Sub

「コード入力表」シートでは、はじめに、イベントコードでVBAが実行されるように仕組んでいます。

バーコードを読み込む。シートイベントで連続処理

セルをクリアしようとした時にイベントが発動されてメッセージウインドが表示されるときは「OK」をクリックしてください。（コード入力表シートのセルはデータクリアーされています。）

「データコピー」のシートクリアー

データコピーシートのセルのデータクリアーについて、

同様に”Cells.Clear”で行います。

このシートでは、セルサイズを変化させていますので、データクリアー時にセルのサイズも元に戻します。

”.Cells.UseStandardHeight=True”

”.Cells.UseStandardWidth=True”　で、デフォルトに戻します。

Sub データコピークリア()
        With Worksheets("データコピー")
            .Cells.Clear
            .Cells.UseStandardHeight = True
            .Cells.UseStandardWidth = True
        End With
        Worksheets("作業シート").Select
        Range("A1").Select
End Sub

「作業シート」のシートクリアー

作業シートのセルのデータクリアーについて、

こちらはデータシートの場合と同じです。

Sub 作業シートクリア()
        With Worksheets("作業シート")
            .Cells.Clear
            .Cells.UseStandardHeight = True
            .Cells.UseStandardWidth = True
        End With
        Worksheets("作業シート").Select
        Range("A1").Select
End Sub

調査個所別シートの削除

ここでは「書誌棚卸表.xlsm」の状態を初期に戻すためのコードとなります。

完成した調査個所別シートの一部分を削除する場合は、手作業（マニュアル）で行ってください。

初期状態では「コード入力表」、「データコピー」、「作業シート」の３つのシートがあります。

削除コード作成の考え方としては、この３シート以外はすべて削除するという方法を取ります。

どれだけ完成した在庫表が作られているか（シート枚数があるか）ケースバイケースで分かりませんので、

”For　Each…Next”を使って中に条件文を埋め込むという形です。

エクセルでは何もしないとシートの削除の時に「削除して良いか」のメッセージが出ますので、

コード実行中は、この表示をOFFにします。（しないとコード実行が一時停止します。）

コード終了時に、表示をONに戻すコードを書き忘れないようにします。

参考記事

2020年11月8日 VBA 回数不定のループ処理はDo LoopとFor Each

Sub 在庫表クリア()
    Dim Wsz As Worksheet
        Application.DisplayAlerts = False
        For Each Wsz In Worksheets
            If Wsz.Name <> "コード入力表" And Wsz.Name <> "データコピー" _
                And Wsz.Name <> "作業シート" Then
                Wsz.Delete
            End If
        Next
        Application.DisplayAlerts = True
End Sub

利用後データをクリアーするVBAコードのまとめ

クリアーの作業は非常に簡単なコードで行うことができます。

これで、データのクリアは完了です。

Excelマクロ＆VBA超入門　今すぐ使えるかんたんぜったいデキます！

エクセルVBAを初めて勉強するときに効く

電子書籍版「Excelマクロ＆VBA超入門」をamazonで見てみる

（著者）井上香緒里
（出版社）技術評論社
（税込価格）1,738円（本体1,580円＋税）

マクロとVBAについて学んでみたいけれど，いまひとつ自信がないという方のために，ひとつひとつの操作を丁寧に解説する1冊目の教科書です。
エクセルVBAの「い・ろ・は　の　い」から説明していますので、安心して取り組める参考書です。
例題として、

• 「データ消去」「シートのコピー」「メッセージボックス」の機能を持つお小遣い帳
• 「入力フォーム」の機能を持った歩数表

2つの題材ファイルを作成しながら，マクロとVBAの基本を学習していきます。

Ｅｘｃｅｌマクロ＆ＶＢＡ超入門 今すぐ使えるかんたんぜったいデキます！ /技術評論社/井上香緒里

posted with カエレバ

楽天市場

Amazon

Yahooショッピング

7net

エクセルVBAを独習するのに参考書は欠かせません。 参考書選びは自分に合った「相棒」にできるものを選んでいきたいです。

2022年1月9日 エクセルVBAの独習でおすすめ参考書を7冊選ぶ。良書との出会いは大切です

今回の記事はここまでです。   最後までご覧いただき有難うございました。

エクセルVBA最速理解で必要な知識を集めよう！

エクセルVBA業務ツールで日常の業務改善を行いましょう。

＜記事内容についての告知＞

VBAコードの記述記事においては、その記述には細心の注意をしたつもりですが、掲載のVBAコードは動作を保証するものではりません。 あくまでVBAの情報の一例として掲載しています。 掲載のVBAコードのご使用は、自己責任でご判断ください。 万一データ破損等の損害が発生しても当方では責任は負いません。

アンケートでポイ活しよう!!

アンケートに答えれば答えるほど ”使える” ポイントがたまります。

NTTコム サーチ

Dstyle web