【エクセルマクロ】チェックボックスでチェックした数値合計

エクセルマクロで、チェックボックスでチェックを入れたところの合計を算出するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
せひ、お試しください。

1 チェックボックスでチェックした数値合計（パターン1）
2 チェックボックスでチェックした数値合計（パターン2）

チェックボックスでチェックした数値合計（パターン1）

以下のマクロを実行すると、チェックボックスでレ点を入れたものだけ集計します。

Sub チェックボックスのチェックをいれたものだけ合計()
  
Dim cb As checkbox
Dim i As Long
Dim Buf As Long
 
    i = 2
    Buf = 0
  
    'チェックボックスをループ
    For Each cb In ActiveSheet.CheckBoxes
  
        'チェックボックスがオンだったら
        If cb.Value = xlOn Then
              
            'Bufに値段を加算
            Buf = Buf + Cells(i, 2).Value
             
        End If
         
        i = i + 1
         
    Next cb
    
    'F2に値段合計を入力
    Cells(2, 6) = Buf
  
End Sub

マクロ実行後

チェックボックスがONになっている数字の合計を表示しました。

チェックボックスでチェックした数値合計（パターン2）

以下のマクロを実行すると、チェックボックスで選択したところだけ計算します。

Sub チェックボックスのチェックを入れたところだけ足す()
  
Dim i As Long
Dim LastRow As Long
Dim Buf As Long

    Buf = 0
 
    'A列の最終行を取得
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
  
    'ループ
    For i = 2 To LastRow
  
        'D列がTRUEだったら
        If Cells(i, 4) = True Then
              
            'Bufに値段を加算
            Buf = Buf + Cells(i, 2).Value
             
        End If
         
    Next
  
    'F2に合計金額を入力
    Cells(2, 6) = Buf
  
End Sub