Vba：範囲内の最小値を見つける方法

VBA を使用して範囲内の最小値を計算するには、次の基本構文を使用できます。

 SubMinValue ()
    Range(" D2 ") = WorksheetFunction.Min(Range(" B2:B11 "))
End Sub

この特定の例では、範囲B2:B11の最小値を計算し、結果をセルD2に割り当てます。

代わりにメッセージ ボックスに最小値を表示したい場合は、次の構文を使用できます。

 SubMinValue ()
    'Create variable to store min value
    Dim minValue As Single
    
    'Calculate min value in range
    minValue = WorksheetFunction.Min(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Min Value in Range: " & minValue 
End Sub

次の例は、さまざまなバスケットボール選手に関する情報が含まれる Excel の次のデータセットを使用して、これらの各メソッドを実際に使用する方法を示しています。

関連: VBA を使用して範囲内の最大値を見つける方法

例 1: VBA を使用して範囲の最小値を計算し、結果をセルに表示します。

ポイント列の最小値を計算し、その結果を特定のセルに表示するとします。

これを行うには、次のマクロを作成できます。

 SubMinValue ()
    Range(" D2 ") = WorksheetFunction.Min(Range(" B2:B11 "))
End Sub

このマクロを実行すると、次の出力が表示されます。

セルD2に値10が含まれていることに注目してください。

これにより、ポイント列の最小値が 10 であることがわかります。

例 2: VBA を使用して範囲の最小値を計算し、結果をメッセージ ボックスに表示します。

代わりに、ポイント列の最小値を計算し、結果をメッセージ ボックスに表示したいとします。

これを行うには、次のマクロを作成できます。

 SubMinValue ()
    'Create variable to store min value
    Dim minValue As Single
    
    'Calculate min value in range
    minValue = WorksheetFunction.Min(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Min Value in Range: " & minValue 
End Sub

このマクロを実行すると、次の出力が表示されます。

メッセージ ボックスは、範囲B2:B11の最小値が10であることを示します。

この例では、範囲B2:B11の最小値を計算したことに注意してください。

ただし、列全体の最小値を計算する場合は、代わりに「B:B」と入力できます。

これにより、列 B 全体の最小値が計算されます。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA：範囲の平均値を計算する方法
VBA: 範囲内の行数をカウントする方法
VBA：範囲内の値を追加する方法