レッスン１ [マロンパン販売実績]
上の表は販売個数
下の表は売上実績
Excel関数を使用して集計する。
それでは次にVBAで同じことを実現してみます。
コマンドボタンを配置します。
挿入→ActiveX コントロールのコマンドボタンをクリックします。
十文字のアイコンを、シート上でドラッグします。CommandButton1 のボタンが作成されます。
テーマ「VBAの基礎」に図解があります。
コマンドボタンをダブルクリックするとVBAエディータにSub CommandButton1_Click() プロシージャが作られます。
このプロシージャにプログラムを書き
コマンドボタンを押すとプログラムが実行されます。
CommandButton1_Click Subプロシージャに下記のプログラムコードを貼り付けます。
マロンパン売上表の合計欄を削除します。
シートのコマンドボタンをクリックすると合計が表示されます。
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