下記のコードは型番別で数値1の平均値を型番別でC列に出すコードなのですが もう一つ条件を増やしてD列の日付を2011年〇〇月〇〇日～2012年〇〇月〇〇日まで といった感じで指定して平均値をだしたいのです。 重要なポイントなんですが、例えば下記データベースで2011年のすべてを対象とした場合 2011年で計算された平均値を2012年の方にも全く同じ数値になるようにしたいのです。 ぜひ、アドバイスお願いします。長文で申し訳ありません＞＜ 正解例 A B C D 型番 数値1 平均値 日付 1256 0.25 0.24 2011/1/1 1256 0.11 0.24 2011/3/2 1256 0.36 0.24 2011/5/3 2256 0.55 0.62 2011/10/4 2256 0.56 0.62 2011/11/5 2256 0.75 0.62 2011/12/6 1256 0.05 0.24 2012/2/1 1256 0.06 0.24 2012/4/2 1256 0.07 0.24 2012/6/3 2256 0.88 0.62 2012/9/4 2256 0.98 0.62 2012/11/5 2256 0.74 0.62 2012/12/6 不正解例 A B C D 型番 数値1 平均値 日付 1256 0.25 0.24 2011/1/1 1256 0.11 0.24 2011/3/2 1256 0.36 0.24 2011/5/3 2256 0.55 0.62 2011/10/4 2256 0.56 0.62 2011/11/5 2256 0.75 0.62 2011/12/6 1256 0.05 2012/2/1 1256 0.06 2012/4/2 1256 0.07 2012/6/3 2256 0.88 2012/9/4 2256 0.98 2012/11/5 2256 0.74 2012/12/6 ' 標準モジュール Public Sub 平均値() Dim dct As Object Dim bot As Long Dim k As Variant Dim r As Long Dim itm As Class1 Set dct = CreateObject("Scripting.Dictionary") bot = Cells(Rows.Count, "A").End(xlUp).Row For r = 2 To bot k = CStr(Cells(r, "A").Value) If dct.Exists(k) Then Set itm = dct(k) Else Set itm = New Class1 dct.Add k, itm End If itm.Sum Cells(r, "B").Value Next For r = 2 To bot Cells(r, "C").Value = dct(CStr(Cells(r, "A").Value)).Avg() Next End Sub ' クラスモジュール（オブジェクト名「Class1」) Private total As Double Private cnt As Long Public Sub Sum(ByVal v As Double) total = total + v cnt = cnt + 1 End Sub Public Function Avg() As Double Avg = total / cnt End Function
↧