Excel VBAで最小値と最大値のセルを検索する：Min・Max・Find

1. コマンドボタンをクリックすると、最小値を求めるプロシージャーを呼び出します。
2. 最小値が見つかればセル位置を、見つからなければ「Not Found」をコマンドボタンに表示します。

コマンドボタンクリックイベント
Private Sub CommandButton1_Click()
    Dim sr As String
    
    If FindMin(sr) Then
        CommandButton1.Caption = "Find Min Cell: " & sr
    Else
        CommandButton1.Caption = "Not Found"
    End If
End Sub

1. Rangeオブジェクトに検索範囲をセットします。
2. WorksheetFunctionを使い、ワークシート関数のMinで最小値を取得します。
3. 見付かればセル位置を返します。

'指定範囲から最小値を検索
Private Function FindMin(ByRef srow As String) As Boolean
    Dim ans As Long
    Dim tRange As Range
    
    FindMin = False
    '最小値を捜す
    Set tRange = ActiveSheet.Range("D5:D100")
    ans = Application.WorksheetFunction.Min(tRange)
    
    '最小値のセルを取得
    Set tRange = tRange.Find(What:=ans, LookIn:=xlValues, LookAt:=xlWhole)
    If Not tRange Is Nothing Then
        srow = tRange.Address
        FindMin = True
    End If
End Function

最大値を求めるExcelシートコード

1. コマンドボタンをクリックすると、最大値を求めるプロシージャーを呼び出します。
2. 最大値が見つかればセル位置を、見つからなければ「Not Found」をコマンドボタンに表示します。

コマンドボタンクリックイベント
Private Sub CommandButton2_Click()
    Dim sr As String
    
    If FindMax(sr) Then
        CommandButton2.Caption = "Find Max Cell: " & sr
    Else
        CommandButton2.Caption = "Not Found"
    End If
End Sub

1. Rangeオブジェクトに検索範囲をセットします。
2. WorksheetFunctionを使い、ワークシート関数のMaxで最大値を取得します。
3. 見付かればセル位置を返します。

'指定範囲から最大値を検索
Private Function FindMax(ByRef srow As String) As Boolean
    Dim ans As Long
    Dim tRange As Range
    
    FindMax = False
    '最大値を捜す
    Set tRange = ActiveSheet.Range("D5:D100")
    ans = Application.WorksheetFunction.Max(tRange)
    
    '最大値のセルを取得
    Set tRange = tRange.Find(What:=ans, LookIn:=xlValues, LookAt:=xlWhole)
    If Not tRange Is Nothing Then
        srow = tRange.Address
        FindMax = True
    End If
End Function