Waarden afronden in vba (met voorbeelden)

U kunt de RoundUp- methode in VBA gebruiken om waarden af te ronden.

Deze functie gebruikt de volgende basissyntaxis:

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 0)
End Sub

In dit specifieke voorbeeld wordt de waarde in cel A1 afgerond naar het dichtstbijzijnde gehele getal en wordt het resultaat weergegeven in cel B1 .

Houd er rekening mee dat het tweede argument van de RoundUp- methode het aantal cijfers specificeert dat naar boven moet worden afgerond, waarbij:

• -3 ronden naar de volgende duizend
• -2 ronden naar de dichtstbijzijnde honderd
• -1 rondt naar boven af op het dichtstbijzijnde tiental
• 0 wordt afgerond naar het dichtstbijzijnde gehele getal
• 1 rondt naar boven af op de dichtstbijzijnde tiende (één decimaal)
• 2 afgerond op het dichtstbijzijnde honderdste (twee decimalen)
• 3 afgerond op het dichtstbijzijnde duizendste (drie decimalen)

Enzovoort.

De volgende voorbeelden laten zien hoe u de RoundUp- methode in de praktijk kunt gebruiken.

Voorbeeld 1: Rond af naar het dichtstbijzijnde gehele getal in VBA

We kunnen de volgende macro maken om de waarde in cel A1 af te ronden naar het dichtstbijzijnde gehele getal en het resultaat in cel B1 weer te geven:

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 0)
End Sub

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

Houd er rekening mee dat de waarde 1432,78 in cel A1 is afgerond naar het dichtstbijzijnde gehele getal van 1433 in cel B1 .

Voorbeeld 2: Rond af op het dichtstbijzijnde honderdtal in VBA

We kunnen de volgende macro maken om de waarde in cel A1 af te ronden naar het dichtstbijzijnde honderdtal en het resultaat in cel B1 weer te geven:

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), -2)
End Sub

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

Houd er rekening mee dat de waarde 1432,78 in cel A1 in cel B1 is afgerond op het dichtstbijzijnde honderdtal van 1500.

Voorbeeld 3: Rond af op het dichtstbijzijnde tiende in VBA

We kunnen de volgende macro maken om de waarde in cel A1 af te ronden op het dichtstbijzijnde tiende (dwz één decimaal) en het resultaat weer te geven in cel B1 :

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 1)
End Sub

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

Houd er rekening mee dat de waarde 1432,78 in cel A1 naar boven is afgerond op het dichtstbijzijnde tiende van 1432,8 in cel B1 .

Opmerking : u kunt hier de volledige documentatie voor de VBA RoundUp- methode vinden.

Aanvullende bronnen

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

VBA: SUMIF- en SUMIFS-functies schrijven
VBA: Hoe COUNTIF- en COUNTIFS-functies te schrijven
VBA: Hoe AVERAGEIF- en AVERAGEIFS-functies te schrijven