Excel VBAで指定したセル範囲の背景色が付いたセルの合計を計算する

指定した範囲の背景色が設定されているセルのみ合計するVBAです。

実行Excel画面

A列とB列データの月曜日に青色の背景をつけています。

これのB列データの合計を行います。

結果はE5セルに表示します。

Excel VBA実行コード

Option Explicit

Private Sub CommandButton1_Click()
    Dim rg As Range
    Dim fkei As Double

    fkei = 0
    For Each rg In Range("B1:B100")
        '背景色が付いていれば
        If rg.Interior.ColorIndex <> xlNone Then
            fkei = fkei + rg.Value
        End If

    Next
    '合計をセルにセット
    Range("E5") = fkei
End Sub

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します