Vba:範囲の平均値を計算する方法
VBA を使用して Excel で範囲の平均値を計算するには、次の基本構文を使用できます。
SubAverageRange ()
Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub
この特定の例では、範囲B2:B12の平均値を計算し、結果をセルE2に割り当てます。
メッセージ ボックスに平均値を表示したい場合は、次の構文を使用できます。
SubAverageRange ()
'Create variable to store average value
Dim avg As Single
'Calculate average value of range
avg = WorksheetFunction.Average(Range(" B1:B12 "))
'Display the result
MsgBox " Average Value in Range: " & avg
End Sub
次の例は、さまざまなバスケットボール選手に関する情報が含まれる Excel の次のデータセットを使用して、これらの各メソッドを実際に使用する方法を示しています。
例 1: VBA を使用して範囲の平均を計算し、結果をセルに表示します。
ポイント列の平均値を計算し、その結果を特定のセルに表示するとします。
これを行うには、次のマクロを作成できます。
SubAverageRange ()
Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub
このマクロを実行すると、次の出力が表示されます。
セルE2には21.27273という値が含まれていることに注目してください。
これにより、ポイント列の平均値が 21.27273 であることがわかります。
例 2: VBA を使用して範囲の平均を計算し、結果をメッセージ ボックスに表示します。
代わりに、ポイント列の平均値を計算し、結果をメッセージ ボックスに表示するとします。
これを行うには、次のマクロを作成できます。
SubAverageRange ()
'Create variable to store average value
Dim avg As Single
'Calculate average value of range
avg = WorksheetFunction.Average(Range(" B1:B12 "))
'Display the result
MsgBox " Average Value in Range: " & avg
End Sub
このマクロを実行すると、次の出力が表示されます。
メッセージ ボックスには、範囲B2:B12の平均値が21.27273であることが示されます。
この例では、範囲B2:B12の平均値を計算したことに注意してください。
ただし、列全体の平均値を計算する場合は、代わりに「B:B」と入力します。
これにより、列 B の各セルの平均値が計算されます。
追加リソース
次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。
VBA: AVERAGEIF 関数と AVERAGEIFS 関数の書き方
VBA: SUMIF 関数と SUMIFS 関数の書き方
VBA: COUNTIF 関数と COUNTIFS 関数の書き方