【アルゴリズム】 平均を取る

「Application.WorksheetFunction.Average」のようにワークシート関数を用いてしまうやり方もエクセルVBAらしいですが、ここではちゃんとプログラミングとして行います。

配列hairetuに"11","22","33","44","55"と5つの要素が入っています。


Private Sub CommandButton1_Click()
Dim hairetu As Variant
Dim i As Long
Dim n As Long

hairetu = Array("11", "22", "33", "44", "55")

For i = 0 To UBound(hairetu)
n = n + hairetu(i)
Next i

n = n / (UBound(hairetu) + 1)

MsgBox n

End Sub