エクセルの関数とマクロ: AVERAGE関数の使い方

1. AVERAGE関数の基本

AVERAGE関数は、指定したセル範囲の平均値を計算します。以下は基本的な使い方です。

=AVERAGE(range)

range: 平均値を計算したいセル範囲を指定します。

2. マクロでのAVERAGE関数の代替

下記のコードは、A1からA10のセル範囲内の数値の平均を計算します。セル範囲を必要に応じて変更してください。このマクロを実行すると、平均値がメッセージボックスに表示されます。

Sub CalculateAverage()
    Dim rng As Range
    Dim total As Double
    Dim count As Long
    Dim averageResult As Double
    
    ' ここで平均を計算する範囲を指定します
    Set rng = Range("A1:A10") ' A1からA10のセル範囲
    
    ' 初期化
    total = 0
    count = 0
    
    ' セル範囲内の値の合計と個数を計算
    For Each cell In rng
        If IsNumeric(cell.Value) Then ' 数値のみを対象とする
            total = total + cell.Value
            count = count + 1
        End If
    Next cell
    
    ' 平均を計算
    If count > 0 Then
        averageResult = total / count
    Else
        averageResult = 0 ' セル範囲内に数値がない場合、0を返す
    End If
    
    ' 結果を表示
    MsgBox "平均値は " & averageResult & " です。"
End Sub