エクセルマクロで、チェックボックスを一括で集計するVBAコードをご紹介します。
このページのマクロコードは、コピペで使えます。
せひ、お試しください。
チェックボックスを一括集計(合計を算出)
以下のマクロを実行すると、チェックボックスでレ点を入れたものだけ集計します。
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 + Cells(i, 2).Value
End If
i = i + 1
Next cb
'集計結果を入力
Cells(2, 6) = Buf
End Sub
マクロ実行後
チェックボックスがONになっている数字の合計を表示しました。
チェックボックスを一括集計(合計を算出:リンクするセル)
以下のマクロを実行すると、チェックボックスで選択したところだけ計算します。
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 + Cells(i, 2).Value
End If
Next
'集計結果を入力
Cells(2, 6) = Buf
End Sub
マクロ実行後
D列が「TRUE」になっている数値を加算して表示しました。
すべてのチェックボックスに「リンクするセル」を設定しています。

【エクセルマクロ】チェックボックスを自動操作する:超便利10選
...