レッスン3（初級）絶対参照と販売実績

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

●合計欄を消してから実行してください。

Private Sub CommandButton1_Click()

　'上の表　横の集計-------------

　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

　'上の表　縦の集計--------------

　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

'----------------------------------

'下の表　売上金額=単価×数量

　y = 6 　' 販売数の最初の行

　tanka = Cells(15, 2)

　For j = 18 To 22

　　　x = 2 　　' 販売数の最初の列

　　　For i = 2 To 5

　　　　　Cells(j, i) = tanka * Cells(y, x)　　　'合計金額=単価×数量

　　　　　x = x + 1　　　　　　　　　　　　　　　　　'xの値を1つ増やします。

　　　Next i

　　　y = y + 1　　　　　　　　　　　　　　　　　　　'yの値を1つ増やします。

　Next j

End Sub

■ここで問題です。

■もう1週と店舗を増やしてみましょう。

■がんばってね( ^)o(^ )