VBA講座　レッスン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(^ )

Excel関数を使った計算式も入っているよ

レッスン３　ダウンロードはこちら