【VBA道場】#33 行の挿入（書式は引き継がない）

問題
完成見本
解答
サンプルファイル（マクロ無）
1. VBA道場33 サンプルファイル（マクロ無）
サンプルファイル（マクロ有）
1. VBA道場33 サンプルファイル（マクロ有）
解説
おわりに
おすすめ参考書
1. Amazon
2. 楽天

問題

6行目に行を追加してください。（書式は引き継がない）

完成見本

解答

Sub vba_doujyou_33()

    '6行目に行を挿入
    Range("A6").EntireRow.Insert

    '6行目の書式をクリア
    Range("A6").EntireRow.ClearFormats   

End Sub

サンプルファイル（マクロ無）

VBA道場33 サンプルファイル（マクロ無）

1 ファイル 8.62 KB

ダウンロード

サンプルファイル（マクロ有）

VBA道場33 サンプルファイル（マクロ有）

1 ファイル 12.08 KB

ダウンロード

解説

Rangeオブジェクト.EntireRow.Insert.ClearFormats
行の挿入（書式は引き継がない）

今回は行を挿入し、書式は引き継がない方法を学習します。
前回は、書式をコピーするやり方を勉強しました。

書式を指定する場合は、CopyOriginに定数を指定しました。
しかし、「書式のクリア」に関する定数はありません。

そこで、挿入した行に対して「ClearFormats」メソッドを実行することにより、書式をクリアすることができます。

'6行目に行を挿入
Range("A6").EntireRow.Insert

'6行目の書式をクリア
Range("A6").EntireRow.ClearFormats

この書き方では「Range(“A6”).EntireRow」を2回も書かなくてはなりません。
面倒くさいですよね。

そこで、「With」を使ってもう少しコードをスマートにしてみましょう。
Withに関してはこちらを参照してください。

Sub vba_doujyou_33()

    '6行目に行を挿入
    Range("A6").EntireRow.Insert

    '6行目の書式をクリア
    Range("A6").EntireRow.ClearFormats  

End Sub

↓

Sub vba_doujyou_33()

    With Range("A6").EntireRow
            .Insert                    　 '6行目に行を挿入
            .ClearFormats          　　　 '6行目の書式をクリア
    End With

End Sub

Withを使うとRange(“A6”).EntireRowの部分が省略できるので、コードが非常にすっきりしますね。