【VBA】特定の名前のシートをエラー処理付きで背景色を変える方法

日々の業務で、特定のシートの背景色を一括で変更したいことはありませんか？手作業では時間がかかる上にミスが発生しやすいです。この記事では、VBAを使って簡単に背景色を変更する方法とエラー処理を入れることで安定した動作を実現します。

サンプルコード

VBA

Option Explicit
Sub ChangeSheetBackgroundColor()
    Dim ws As Worksheet
    On Error GoTo ErrorHandler
    Set ws = ThisWorkbook.Sheets("特定のシート名")
    If Not ws Is Nothing Then
        Application.ScreenUpdating = False
        With ws.Cells.Interior
            .Color = RGB(255, 192, 0) '背景色を設定（ここではオレンジ色）
        End With
        Application.ScreenUpdating = True
    Else
        MsgBox "指定したシート名が見つかりません。", vbExclamation
    End If
Exit Sub
ErrorHandler:
    MsgBox Err.Description, vbCritical
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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