Top > VBA のオブジェクト指向プログラミング > 入門編
第４回 第５回 第６回
第５回：データをまとめる
標準モジュール：mod3
第４回 第５回 第６回
Top > VBA のオブジェクト指向プログラミング > 入門編
第４回 第５回 第６回
第５回：データをまとめる 
サンプルプルグラムのデータの見直しをかけてみましょう。
合計や平均を求めるときに使うデータの組み合わせはユーザー定義型を使
うとわかりやすくなります。
同じ手続きを複数同時に実行するときに使うデータは配列を使うと区別し
やすくなります。
そこで、前回のサンプルプログラムをユーザー定義型の配列を使って書き
直すと以下のようなプログラムになります。
合計や平均を求めるときに使うデータの組み合わせはユーザー定義型を使
うとわかりやすくなります。
同じ手続きを複数同時に実行するときに使うデータは配列を使うと区別し
やすくなります。
そこで、前回のサンプルプログラムをユーザー定義型の配列を使って書き
直すと以下のようなプログラムになります。
標準モジュール：mod3
Option Explicit
<font color="green">'ユーザー定義型</font>
Private Type typSumAvg
<font color="green"> '合計</font>
mlngSum As Long
<font color="green"> 'データ数</font>
mlngNums As Long
<font color="green"> '平均</font>
mlngAvg As Long
End Type
<font color="green">'サンプルプログラム０３</font>
Sub calc3()
<font color="green"> 'ユーザー定義型の配列</font>
Dim audtSumAvg(2) As typSumAvg
<font color="green"> '合計とデータ数の初期化(1)</font>
audtSumAvg(0).mlngSum = 0
audtSumAvg(0).mlngNums = 0
<font color="green"> 'データの追加とデータ数の計算(1)</font>
audtSumAvg(0).mlngSum = audtSumAvg(0).mlngSum + 10
audtSumAvg(0).mlngNums = audtSumAvg(0).mlngNums + 1
<font color="green"> '合計とデータ数の初期化(2)</font>
audtSumAvg(1).mlngSum = 0
audtSumAvg(1).mlngNums = 0
<font color="green"> 'データの追加とデータ数の計算(2)</font>
audtSumAvg(1).mlngSum = audtSumAvg(1).mlngSum + 100
audtSumAvg(1).mlngNums = audtSumAvg(1).mlngNums + 1
<font color="green"> '合計とデータ数の初期化(3)</font>
audtSumAvg(2).mlngSum = 0
audtSumAvg(2).mlngNums = 0
<font color="green"> 'データの追加とデータ数の計算(3)</font>
audtSumAvg(2).mlngSum = audtSumAvg(2).mlngSum + 1000
audtSumAvg(2).mlngNums = audtSumAvg(2).mlngNums + 1
<font color="green"> 'データの追加とデータ数の計算(1)</font>
audtSumAvg(0).mlngSum = audtSumAvg(0).mlngSum + 20
audtSumAvg(0).mlngNums = audtSumAvg(0).mlngNums + 1
<font color="green"> 'データの追加とデータ個数の計算(2)</font>
audtSumAvg(1).mlngSum = audtSumAvg(1).mlngSum + 200
audtSumAvg(1).mlngNums = audtSumAvg(1).mlngNums + 1
<font color="green"> 'データの追加とデータ個数の計算(3)</font>
audtSumAvg(2).mlngSum = audtSumAvg(2).mlngSum + 2000
audtSumAvg(2).mlngNums = audtSumAvg(2).mlngNums + 1
<font color="green"> 'データの追加とデータ数の計算(1)</font>
audtSumAvg(0).mlngSum = audtSumAvg(0).mlngSum + 30
audtSumAvg(0).mlngNums = audtSumAvg(0).mlngNums + 1
<font color="green"> '平均の計算(1)</font>
audtSumAvg(0).mlngAvg = _
audtSumAvg(0).mlngSum / audtSumAvg(0).mlngNums
<font color="green"> 'データの追加とデータ数の計算(2)</font>
audtSumAvg(1).mlngSum = audtSumAvg(1).mlngSum + 300
audtSumAvg(1).mlngNums = audtSumAvg(1).mlngNums + 1
<font color="green"> '平均の計算(2)</font>
audtSumAvg(1).mlngAvg = _
audtSumAvg(1).mlngSum / audtSumAvg(1).mlngNums
<font color="green"> 'データの追加とデータ数の計算(3)</font>
audtSumAvg(2).mlngSum = audtSumAvg(2).mlngSum + 3000
audtSumAvg(2).mlngNums = audtSumAvg(2).mlngNums + 1
<font color="green"> '平均の計算(3)</font>
audtSumAvg(2).mlngAvg = _
audtSumAvg(2).mlngSum / audtSumAvg(2).mlngNums
<font color="green"> '結果の出力</font>
Debug.Print "1:Sum=" & CStr(audtSumAvg(0).mlngSum) & _
":Avg=" & CStr(audtSumAvg(0).mlngAvg)
Debug.Print "2:Sum=" & CStr(audtSumAvg(1).mlngSum) & _
":Avg=" & CStr(audtSumAvg(1).mlngAvg)
Debug.Print "3:Sum=" & CStr(audtSumAvg(2).mlngSum) & _
":Avg=" & CStr(audtSumAvg(2).mlngAvg)
End Sub
第４回 第５回 第６回
Top > VBA のオブジェクト指向プログラミング > 入門編
このページへのコメント
iD94qW I think this is a real great blog article.Thanks Again. Awesome.
VBAOBJECT0105 - VBA 鐃緒申 Java 鐃塾ワ申鐃瞬ワ申鐃緒申鐃緒申鐃夙指醐申鐃竣ワ申鐃緒申鐃淳ワ申 - Seesaa Wiki鐃淑ワ申鐃緒申鐃緒申鐃緒申 for 鐃緒申鐃殉￥申鐃夙フワ申鐃緒申 ��≪�潟�������若�� ��������� http://www.pslcbi.com/moncler2014.html