Vba: hoe u de minimumwaarde binnen bereik kunt vinden

U kunt de volgende basissyntaxis gebruiken om de minimumwaarde in een bereik te berekenen met behulp van VBA:

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

Dit specifieke voorbeeld berekent de minimumwaarde in het bereik B2:B11 en wijst het resultaat toe aan cel D2 .

Als u in plaats daarvan de minimumwaarde in een berichtvenster wilt weergeven, kunt u de volgende syntaxis gebruiken:

 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

De volgende voorbeelden laten zien hoe u elk van deze methoden in de praktijk kunt gebruiken met de volgende dataset in Excel die informatie bevat over verschillende basketbalspelers:

Gerelateerd: Hoe u de maximale waarde binnen bereik kunt vinden met behulp van VBA

Voorbeeld 1: Bereken de minimumwaarde van het bereik met VBA en geef de resultaten in de cel weer

Stel dat we de minimumwaarde in de puntenkolom willen berekenen en de resultaten in een specifieke cel willen weergeven.

We kunnen hiervoor de volgende macro maken:

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

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Merk op dat cel D2 de waarde 10 bevat.

Dit vertelt ons dat de minimumwaarde in de puntenkolom 10 is.

Voorbeeld 2: Bereken de minimumwaarde van het bereik met VBA en geef de resultaten weer in het berichtenvenster

Stel dat we in plaats daarvan de minimumwaarde in de puntenkolom willen berekenen en de resultaten in een berichtenvenster willen weergeven.

We kunnen hiervoor de volgende macro maken:

 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

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Het berichtvenster vertelt ons dat de minimumwaarde in het bereik B2:B11 10 is.

Merk op dat we in dit voorbeeld de minimumwaarde in het bereik B2:B11 hebben berekend.

Als u echter in plaats daarvan de minimumwaarde in een hele kolom wilt berekenen, kunt u in plaats daarvan B:B typen.

Hierdoor wordt de minimumwaarde in kolom B berekend.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: Hoe de gemiddelde waarde van het bereik te berekenen
VBA: het aantal rijen binnen bereik tellen
VBA: waarden toevoegen in een bereik