セルのデータ、書式を元に戻すマクロ

2021年6月11日
VBAの基本

マクロを実行すると、セルのデータ、書式、行の高さ、列の幅などが変更される場合があります。

マクロを修正したり、再実行をするときに、元の状態に戻したいときがあります。

変更された設定などを元に戻すための、マクロを作っておくと何かと便利ですから作り方を説明します。

1 すべてのセルを元に戻すマクロの記録
2 マクロの実行結果
3 マクロの保存

すべてのセルを元に戻すマクロの記録

マクロの記録で次の操作をします。

■　マクロの記録までの操作

エクセルのファイルを開きます。
「開発タブ」＞「マクロの記録」をクリックします。
「マクロの記録」のダイアログが開きます。
必要に応じて名前を入力して、「OK」をクリックします。
マクロの記録が「開始」されます。

■　エクセルの操作手順

全部のセルを選択します。
「ホームタブ」＞「書式」＞「セルの書式設定」＞「標準」＞「OK」をクリック。
「ホームタブ」＞「書式」＞「行の高さ」をクリック。
「18.75」（既定値）＞「OK」をクリック。
「ホームタブ」＞「書式」＞「列の幅」をクリック。
「8.38」（既定値）＞「OK」をクリック。
「Delete」デリートキーを押します。
セルA1を選択します。
マクロの記録を終了します。

マクロの記録のコードは次のようになります。

Sub 全セルの既定値への復帰()
'
' 全セルの既定値への復帰 Macro
'

'
    Cells.Select
    Selection.NumberFormatLocal = "G/標準"
    Selection.RowHeight = 18.75
    Selection.ColumnWidth = 8.38
    Selection.ClearContents
    Range("A1").Select
End Sub

VBAのコードで書くと次のようになります。

Sub 全セルの既定値への復VBA()

    Cells.Select
    With Selection
        .NumberFormatLocal = "G/標準"　'書式を標準に戻します。
        .RowHeight = 18.75　　 　　　　'行の高さを変更します。
        .ColumnWidth = 8.38　 　　　　　'列の幅を変更します。
        .ClearContents　　　　　　 　　　'データをクリアします。
    End With
        
    Range("A1").Select
    
End Sub

大きな違いはありません。

共通な「Selection」を「Withステートメント」でまとめました。