レッスン1（初級）【合計の計算】

●コマンドボタンを押すと下のコードが実行され集計が表示されます。

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

Excelの関数も同時に学べますよ。

数字～合計を入れるセルまで範囲選択し、sum関数(Σ)を押すと１ッ発で合計が表示されるよ