Excel VBA 最小値を求める-MIN関数｜リリアのパソコン学習記

Excel VBAで最小値を求める記録です。

最小値を求めるには、ワークシート関数の「MIN」を使います。

< スポンサーリンク >

「MIN」関数構文

WorksheetFunction.Min(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）です。

「MIN」関数の使用例

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

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

VBAでMIN関数

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

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

VBAでMIN関数

B～D列のそれぞれの列の最小値を7行目に入力します。

Sub test()
    Dim ws As Worksheet
    Dim i As Long
    
    '変数にアクティブシートをセット
    Set ws = ActiveSheet
    
    'A7に項目名を入力
    ws.Range("A7").Value = "最小値"
    
    'B7～D7にそれぞれの列の最小値を入力
    For i = 2 To 4
        With ws
            .Cells(7, i).Value = WorksheetFunction.Min(.Range(.Cells(2, i), .Cells(4, i)))
        End With
    Next i
End Sub