VBA開発

一行おきに色を設定する【ExcelVBA】

エクセルは表計算ソフトです。
大量のデータの表を扱う場合、背景色が設定されていないと見にくいケースがあります。
一行ごとに色を設定する事で、見栄えがよくなります。マクロで処理をさせる事が可能です。

表を一行おきに色を設定する

For~Nextで開始行から最終行まで処理をします。
大事なのは「 Step 2 」と、1行飛ばしで処理を行うようにします。

コードサンプル

'■一行ごとに背景色を設定する
Public Sub Call_sample_Rows_Color()
    Dim i As Long
    Dim LastRow As Long: LastRow = Call_LastRow(1) '1列目(A列)の最終行取得
    Dim LastCol As Long: LastCol = Call_LastCol(1) '1行目   の最終列取得
    
    '■3行目から最終行まで1行おき(Step 2)に処理をする
    For i = 3 To LastRow Step 2
        Range(Cells(i, 1), Cells(i, LastCol)).Interior.ColorIndex = 19
    Next i
End Sub

サンプルではデータ開始行は3と数値を直接入力していますが、実務では定数で記載をおすすめします。
※Call_LastRow(1)Range(Cells(i, 1) の数値の1も同様です。

コード結果

3行目からスタートし、3行目、5行目、7行目と背景色がColorIndexで設定がされます。

その他 注意点

 

コメント

タイトルとURLをコピーしました