最小値・最大値の検索 : Excel(エクセル)

下記のExcelコードでは最小値・最大値を探し、見つかったセル位置を Find で検索ししています。
最小値はMinワークシート関数を使用しています。
最大値はMaxワークシート関数を使用しています。
関数の引数は検索する範囲を range で指定します。

Excel Tipsメニューに戻る

スポンサーリンク






Excelシートコード

コマンドボタンクリックイベント
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

'指定範囲から最小値を検索
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

コマンドボタンクリックイベント
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

'指定範囲から最大値を検索
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

スポンサーリンク


Excel実行画面

・見つかった場合
見つかった場合

・見つからなかった場合
見つからなかった場合

スポンサーリンク






Excel Tipsメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved