平均値をMSGBOXで表すVBAなのですが

Question

Sub test()

Dim i As Long
Dim j As Long
Dim h As Long

j = 0
h = 0

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

 Cells(i, 4) = Cells(i, 2) * Cells(i, 3)

 j = j + Cells(i, 4)
 h = h + 1

Next

MsgBox "合計:" & j & vbLf & _
       "平均:" & j / h, vbOKOnly, "結果"
       
       

End Sub

上記記載したのは Excel VBA で、
A B C D
日付 数量 単価 金額
1月1日 26 304
1月2日 68 305
1月3日 84 972
1月4日 53 684
1月5日 34 703
1月6日 56 628
1月7日 12 619
1月8日 92 356
1月9日 31 949
1月10日 19 229
1月11日 54 507
1月12日 35 666
1月13日 83 728
1月14日 68 272
1月15日 78 236
1月16日 87 334
1月17日 34 490
1月18日 32 650
1月19日 68 348
1月20日 98 744

の計算をして合計と平均をMSGBOXに表すマクロです。
しかしなぜ、平均値を求める場合は 合計÷個数なのにそれが h=0でh=h+1と表せるのかがわかりません。
どなたか教えていただけませんか？

VBA初心者です

Comments

[flied_onion]

コードは、コードブロックで囲ってください。質問するの時に表示されるテンプレートを参考にしましょう。
```で括るか、コード部分を選択して <code> ボタンでコードブロックにできます。

Answer 1

For文は繰り返しだというのは大丈夫でしょうか。
繰り返しの中で jに加算していくと同時に、hを1ずつ加算していくと、 hは個数になります。

ブレークポイントを設定してステップ実行してみながら、hがどのように変わるか調べてみればよいかと思います。ステップ実行のやり方は調べてください（「VBA ブレークポイント」で調べれば出てくると思います。）

Comments

[kotodama]

ありがとうございます！！！
理解できました！！！！