まりふのひと

Minワークシート関数を使用してセル範囲の最小値を取得する

 ワークシート関数を使用するときは、関数の前に、「Application.WorksheetFunction.」を付けます。
次のサンプルは、名前が「検査セル」と付けられたセル範囲の最小値を、Minワークシート関数を使用して取得しています。

Sub Sample()
Dim myRange As Range
Dim muAns   As Variant
    Set myRange = Worksheets("Sheet1").Range("検査セル")
    muAns = Application.WorksheetFunction.Min(myRange)
    MsgBox muAns
End Sub


該当シートはアクティブになっているので、下記1行で済ませた。

    VarAns = Application.WorksheetFunction.Min(Range("B:B"))