【ExcelVBA】最大値、最小値、平均値の求め方がわからない

こんなあなたにおすすめ

Excel VBAでデータを扱っていると、最大値、最小値、平均値を求めたいことが頻繁にあるのではないでしょうか。
そんなときは、こちらの記事の内容で解決することができます。

最大値の求め方がわからない

WorksheetFunctionのMax関数を使わなくても最大値を求めることができます。

Sub test1()

    Dim maxValue as Long
    Dim i as Long

    maxValue = Cells(1, 1).Value

    For i = 1 To 3
        If Cells(i, 1).Value > maxValue Then
            maxValue = Cells(i, 1).Value
        End If
    Next

    MsgBox "最大値は"& maxValue & "です。"

End Sub

・プログラム実行前

・プログラム実行後

最小値の求め方がわからない

WorksheetFunctionのMin関数を使わなくても最小値を求めることができます。

Sub test2()

    Dim minValue as Long
    Dim i as Long

    minValue = Cells(1, 1).Value

    For i = 1 To 3
        If Cells(i, 1).Value > minValue Then
            minValue = Cells(i, 1).Value
        End If
    Next

    MsgBox "最小値は" & minValue & "です。"

End Sub

・プログラム実行前

・プログラム実行後

平均値の求め方がわからない

WorksheetFunctionのAverage関数を使わなくても平均値を求めることができます。

Sub test3()

    Dim tmpValue as Long
    Dim aveValue as Long
    Dim i as Long

    For i = 1 To 3
        tmpValue = tmpValue + Cells(i, 1).Value
    Next

    aveValue = tmpValue / 3

    MsgBox "平均値は" & ensp;aveValue & "です。"

End Sub

・プログラム実行前

・プログラム実行後

まとめ

ここまで最大値、最小値、平均値の求め方を解説しました。
WorksheetFunctionを使わなくてよいため、Excelのファンクション関数の使用を控えたい方は、こちらの記事をご参照ください。

今回の記事以外にもWorksheetFunctionで求める方法もあります。
そちらを知りたいという方は、関連記事をご参照ください。
>>【ExcelVBA】最大値、最小値、平均値の求め方がわからない

また、今回の記事ででてきた、For文、IF文について知りたい方も関連記事をご参照ください。
>>【ExcelVBA】For Next文 繰り返し(ループ)処理
>>【ExcelVBA】If文 条件分岐

Excelで作業効率をアップしたい方は、下記の記事もご参照ください。
>>Excelのショートカット一覧 覚えて作業効率アップ!!
>>Excelで覚えておくべき関数 作業効率アップ間違いなし

【Excelについて学びたい方】
Excel 最強の教科書[完全版]

【Excel VBAについて学びたい方】
Excel VBA 脱初心者のための集中講座