VBAコードでシートをデフォルト状態に戻す処理

エクセルVBAでワークシート上の販売データをクリアします。またそれを実行するコマンドボタンを設置します。
Clearメソッドを使えば簡単なコードで行えます。

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

只今作成中の「販売データ入力.xlsm」の最終段階です。

次に使うために、使い終わったデータをクリアしておく。

後片づけのVBAコードを作成記述しておきます。

販売伝票作成の記事編成

販売伝票作成の使い方と無料ダウンロード
- 販売データ入力.xlsmの使用法。販売王の売上データ作成
販売伝票作成手順

コンテンツ

シート状態をデフォルトに戻すVBAコード

記述するモジュールはModule6とします。

3枚のシートに対して記述しますが、コード内容は同じです。

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

「作業シート」をデフォルトにします。

VBA

Sub 作業シートクリア()

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

ここで使うvbaコードの参考記事

「商品CSV作成」シートのクリアのコード

「商品CSV作成」シートをデフォルトにします。

VBA

Sub 商品CSV作成クリア()

        Worksheets("商品CSV作成").Cells.Clear
        With Worksheets("商品CSV作成")
            .Cells.UseStandardHeight = True
            .Cells.UseStandardWidth = True
        End With
        Range("A1").Select
End Sub

「売上CSV作成」シートのクリアのコード

「売上CSV作成」シートをデフォルトにします。

HTML

Sub 売上CSV作成クリア()

        Worksheets("売上CSV作成").Cells.Clear
        With Worksheets("売上CSV作成")
            .Cells.UseStandardHeight = True
            .Cells.UseStandardWidth = True
        End With
        Range("A1").Select
End Sub

目次へ戻る