【VBA】可視セル(フィルタ結果)をバックグラウンドで背景色を変える方法

手作業で大量のセルの背景色を変更するのは時間がかかります。この記事では、フィルタリングされたデータだけを選択し、バックグラウンドで一括で背景色を変更するVBAマクロを作成します。

サンプルコード

VBA

Option Explicit
Sub ChangeVisibleCellsBackgroundColor()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    Application.ScreenUpdating = False '画面更新停止
    
    For Each cell In ws.UsedRange.SpecialCells(xlCellTypeVisible)
        If Not Intersect(cell, ws.Rows(1)) Is Nothing Then 'ヘッダー行はスキップ
            cell.Interior.Color = RGB(255, 0, 0) '背景色を赤に変更
        End If
    Next cell
    
    Application.ScreenUpdating = True '画面更新再開
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。