合計の出し方 For文 の使い方
コマンドボタンを押すと下のコードが実行され集計が表示されます。
Private Sub CommandButton1_Click()
'上の表 横の集計--------------
' j は 行、[6 To 9] 6行目から9行目
' i は 列 [2 To 4] 2列目から4列目
For j = 6 To 9
kei = 0
For i = 2 To 4
kei = kei + Cells(j, i)
Next i
Cells(j, 5) = kei ' 横の集計
Next j
'上の表 縦の集計--------------
' j は 列 [2 To 5] 2列目から5列目
' i は 行、[6 To 9] 6行目から9行目
For j = 2 To 5
kei = 0
For i = 6 To 9
kei = kei + Cells(i, j)
Next i
Cells(10, j) = kei
Next j
End Sub