VBA と Java のオブジェクト指向プログラミング

Top > VBA のオブジェクト指向プログラミング > 入門編
第2回 第3回 第4回

第3回:複数の処理を同時に行う

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

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

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

単純にデータを1つ1つバラバラに定義すると以下のようなプログラムにな
ります。
標準モジュール:mod2
Option Explicit
'サンプルプログラム02
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


第2回 第3回 第4回
Top > VBA のオブジェクト指向プログラミング > 入門編

このページへのコメント

xDrvB5 Im obliged for the blog post.Really thank you! Really Great.

0
Posted by check it out 2014年01月20日(月) 10:03:15 返信

f4MIve Very informative article.Really looking forward to read more. Cool.

0
Posted by watch for this 2013年12月19日(木) 22:43:51 返信

umRfpe <a href="http://zppidvjebvsp.com/">zppidvjebvsp</a>, [url=http://qonxbnjyutpr.com/]qonxbnjyutpr[/url], [link=http://ebemriksqjai.com/]ebemriksqjai[/link], http://mwipkodxwjcd.com/

0
Posted by mivovk 2013年11月15日(金) 00:07:58 返信

水腱茯違祉祉(^_^;) 若若若若 http://www.fetang.com/

0
Posted by 若若若若 2013年08月01日(木) 06:54:09 返信

コメントをかく


「http://」を含む投稿は禁止されています。

利用規約をご確認のうえご記入下さい

編集にはIDが必要です