Vba: hoe u de maximale waarde binnen bereik kunt vinden

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

 SubMaxValue ()
    Range(" D2 ") = WorksheetFunction.Max(Range(" B2:B11 "))
End Sub

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

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

 SubMaxValue ()
    'Create variable to store max value
    Dim maxValue As Single
    
    'Calculate max value in range
    maxValue = WorksheetFunction.Max(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Max Value in Range: " & maxValue 
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:

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

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

We kunnen hiervoor de volgende macro maken:

 SubMaxValue ()
    Range(" D2 ") = WorksheetFunction.Max(Range(" B2:B11 "))
End Sub

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

Merk op dat cel D2 de waarde 43 bevat.

Dit vertelt ons dat de maximale waarde in de puntenkolom 43 is.

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

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

We kunnen hiervoor de volgende macro maken:

 SubMaxValue ()
    'Create variable to store max value
    Dim maxValue As Single
    
    'Calculate max value in range
    maxValue = WorksheetFunction.Max(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Max Value in Range: " & maxValue 
End Sub

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

Het berichtvenster vertelt ons dat de maximale waarde in het bereik B2:B11 43 is.

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

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

Hiermee wordt de maximale waarde in heel 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