指定した範囲の数値の平均を求める


AVERAGE関数のように指定した範囲の合計値を取得したい場合は次のコードを使用します。

機能.集計.平均(範囲 As Range)


このコードに必要な引数は一つです。

1,範囲 As Range
  平均値を求めたい範囲をここで指定します。


例えば、「顧客」シートのD列1行目から10行目までの平均を求めたい場合は以下のように記述します。

Dim 平均値
平均値 = 機能.集計.平均(Worksheets(“顧客”).Range(“D1:D10”))


上記のコードでも問題ないのですが、トーコンにはコードを見ただけで分かるように書こうというルールがありましたね。
そのため、平均値を求めたい範囲は変数に入れてしまいましょう。

Dim 平均する金額範囲 as Range
Dim 平均値
Set 平均する金額範囲 = 機能.範囲.S_範囲指定_四角(Worksheets(”顧客”).Cells(1, 4), Worksheets(”顧客”).Cells(10, 4))
平均値 = 機能.集計.平均(平均する金額範囲)

※範囲を指定する方法については、【任意の範囲を指定する】のページを参照してください。