Excel VBAでMAX関数を使って最大値を求める

Excel VBAでワークシート関数の「MAX」を使って最大値を求める記録です。

下図はExcel2016です。

VBAでMAX関数

 

< スポンサーリンク >

 

書き方

WorksheetFunction.Max(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30)

引数リストに含まれる最大の数値を返します。

Arg1~Arg30=必須。数値1~30個の最大値を検索する数値を指定します。戻り値は倍精度浮動小数点型(Double)です。

 

B2~B4の中で最大値をメッセージで表示します。

Sub test()
    MsgBox WorksheetFunction.Max(ActiveSheet.Range("B2", "B4"))
End Sub

VBAでMAX関数

VBAでMAX関数

 

B2~D4の中で最大値をメッセージで表示します。

Sub test()
    MsgBox WorksheetFunction.Max(ActiveSheet.Range("B2", "D4"))
End Sub

VBAでMAX関数

VBAでMAX関数

 

B~D列のそれぞれの列の最大値を6行目に入力します。

Sub test()
    Dim ws As Worksheet
    Dim i As Long

    '変数にアクティブシートをセット
    Set ws = ActiveSheet

    'A6に項目名を入力
    ws.Range("A6").Value = "最大値"

    'B6~D6にそれぞれの列の最大値を入力
    For i = 2 To 4
        With ws
            .Cells(6, i).Value = WorksheetFunction.Max(.Range(.Cells(2, i), .Cells(4, i)))
        End With
    Next i
End Sub

VBAでMAX関数

VBAでMAX関数

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ