このサイトの記事内では「アフィリエイト広告」などの広告を掲載している場合があります。
消費者庁が問題としている「誇大な宣伝や表現」とならないよう配慮しコンテンツを制作しておりますのでご安心ください。
問題のある表現が見つかりましたらお問い合わせよりご一報いただけますと幸いです。

【VBA】配列内の最大値・最小値を取得する方法(MAX/MIN関数)

2024年7月22日

今回は配列内の要素の最大値・最小値を得る方法について解説します。

最大値・最小値を得るには、Excel関数(MAX/MIN関数)を利用するのが便利です。

Excel関数をVBAから使用するので、Application.WorksheetFunctionオブジェクトを使います。

VBAが難しいと感じたら
ココナラにてVBAの作成依頼を受け付けています。
ご依頼・ご相談はこちらから

配列内の最大値・最小値を取得する方法(MAX/MIN関数)

最大値・最小値を取得するには、Application.WorksheetFunctionオブジェクトのMaxメソッドとMinメソッドを使用します。

以下にサンプルコードをお見せします。

Sub GetMaxMin()
    
    Dim myArray(5) As Integer
    Dim i As Integer
    Dim maxVal As Integer
    Dim minVal As Integer
    
    ' 配列に値を設定
    myArray(0) = 10
    myArray(1) = 5
    myArray(2) = 20
    myArray(3) = 15
    myArray(4) = 30
    myArray(5) = 25
    
    ' 配列内の最大値を取得
    maxVal = Application.WorksheetFunction.Max(myArray)
    
    ' 配列内の最小値を取得
    minVal = Application.WorksheetFunction.Min(myArray)
    
    ' 結果を表示
    MsgBox "最大値: " & maxVal & vbCrLf & "最小値: " & minVal
    
End Sub

このコードは、配列myArray内の要素の最大値と最小値を取得し、メッセージボックスで表示します。

Application.WorksheetFunction.Maxは引数に配列を入れると、配列内の要素の最大値を返してくれます。同様にMinは最小値を返します。

このように、Max(Min)関数を使えば簡単に最大値・最小値が得られるので活用してみてください。

《VBA上級者になりたい人へ》
VBA上級者を目指したい人にはパーフェクトExcel VBA一択です。
この本を読み切れば間違いなくVBA上級者になれます。

created by Rinker
技術評論社
¥3,608 (2024/12/02 20:25:22時点 Amazon調べ-詳細)
VBAが難しいと感じたら
ココナラにてVBAの作成依頼を受け付けています。
ご依頼・ご相談はこちらから

VBA

Posted by やろまい