前回のサンプルプログラムは、あるデータの集まりの合計と平均を求める
プログラムでした。

２つ以上のグループの、合計と平均を求める同時に求めるように
前回のプログラムを修正してみたいと思います。

学校のテストの結果を管理するときに、ある学年の教室ごとに
テストの合計と平均を求める処理を思い浮かべてもらうと
わかりやすいかも知れません。

単純にデータを１つ１つバラバラに定義すると以下のようなプログラムにな
ります。

Option Explicit
'サンプルプログラム０２
Sub calc2()
    '---------------------------------------------
    'データ
    '---------------------------------------------
    '合計値、データ個数、平均値のデータ(1)
    Dim lngSum1 As Long
    Dim lngNums1 As Long
    Dim lngAvg1 As Long

<font color="green">    '合計値、データ個数、平均値のデータ(2)</font>
    Dim lngSum2 As Long
    Dim lngNums2 As Long
    Dim lngAvg2 As Long

<font color="green">    '合計値、データ個数、平均値のデータ(3)</font>
    Dim lngSum3 As Long
    Dim lngNums3 As Long
    Dim lngAvg3 As Long
    '---------------------------------------------
    '手続き
    '---------------------------------------------
<font color="green">    '合計値とデータ個数の初期化(1)</font>
    lngSum1 = 0
    lngNums1 = 0
<font color="green">    'データの追加とデータ個数の計算(1)</font>
    lngSum1 = lngSum1 + 10
    lngNums1 = lngNums1 + 1

<font color="green">    '合計値とデータ個数の初期化(2)</font>
    lngSum2 = 0
    lngNums2 = 0
<font color="green">    'データの追加とデータ個数の計算(2)</font>
    lngSum2 = lngSum2 + 100
    lngNums2 = lngNums2 + 1

<font color="green">    '合計値とデータ個数の初期化(3)</font>
    lngSum3 = 0
    lngNums3 = 0
<font color="green">    'データの追加とデータ個数の計算(3)</font>
    lngSum3 = lngSum3 + 1000
    lngNums3 = lngNums3 + 1

<font color="green">    'データの追加とデータ個数の計算(1)</font>
    lngSum1 = lngSum1 + 20
    lngNums1 = lngNums1 + 1

<font color="green">    'データの追加とデータ個数の計算(2)</font>
    lngSum2 = lngSum2 + 200
    lngNums2 = lngNums2 + 1

<font color="green">    'データの追加とデータ個数の計算(3)</font>
    lngSum3 = lngSum3 + 2000
    lngNums3 = lngNums3 + 1

<font color="green">    'データの追加とデータ個数の計算(1)</font>
    lngSum1 = lngSum1 + 30
    lngNums1 = lngNums1 + 1

<font color="green">    '平均値の計算(1)</font>
    lngAvg1 = lngSum1 / lngNums1

<font color="green">    'データの追加とデータ個数の計算(2)</font>
    lngSum2 = lngSum2 + 300
    lngNums2 = lngNums2 + 1

<font color="green">    '平均値の計算(2)</font>
    lngAvg2 = lngSum2 / lngNums2

<font color="green">    'データの追加とデータ個数の計算(3)</font>
    lngSum3 = lngSum3 + 3000
    lngNums3 = lngNums3 + 1

<font color="green">    '平均値の計算(3)</font>
    lngAvg3 = lngSum3 / lngNums3

<font color="green">    '結果の出力</font>
    Debug.Print "1:Sum=" & CStr(lngSum1) & _
        ":Avg=" & CStr(lngAvg1)
    Debug.Print "2:Sum=" & CStr(lngSum2) & _
        ":Avg=" & CStr(lngAvg2)
    Debug.Print "3:Sum=" & CStr(lngSum3) & _
        ":Avg=" & CStr(lngAvg3)
End Sub

第２回　第３回　第４回
Top > VBA のオブジェクト指向プログラミング > 入門編