指定したセル範囲の背景色が付いたセルの合計を計算する : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク






Excel VBAで指定範囲をループで背景色が付いているかどうかチェックし、付いていれば加算していきます。

作成Excel画面

A列とB列データの月曜日に青色の背景をつけています。
これのB列データの合計を行います。
合計を計算するシート

スポンサーリンク


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

スポンサーリンク







Excel Tipsメニューに戻る

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


Copyright (c) Excel-Excel ! All rights reserved