Excel VBA RoundUp-functie
Vergelijkbaar met de werkbladfunctie waarbij we de getallen naar boven afronden naar de dichtstbijzijnde gehele getallen, in VBA hebben we een RoundUp-functie die het decimaalteken voor ons verkleint en de syntaxis om de roundup-functie te gebruiken is als volgt Afronden (getal, aantal cijfers na decimaal ) deze twee argumenten in de functie zijn verplicht.
Als we met getallen en berekeningen werken, krijgen we breukgetallen na het hele getal, en dit is vrij gebruikelijk in het dagelijkse werk. Over het algemeen maken we ons niet druk om de decimale waarden, omdat dit geen enkele invloed heeft op ons eindresultaat. In die situaties moeten we de getallen naar boven afronden naar het dichtstbijzijnde hele getal of het onmiddellijke hele getal. Door de RoundUp-functie te gebruiken, kunnen we deze taak ook daadwerkelijk uitvoeren.
Als je in VBA hebt gezocht naar de RoundUp-functie, dan moet je deze niet hebben gevonden want het is een werkbladfunctie. Om toegang te krijgen tot de RoundUp-functie, moeten we de VBA Worksheet Function-klasse gebruiken.
Onthoud hiervoor de syntaxis van de RoundUp-functie.
Voorbeelden
Laten we de taak uitvoeren om het nummer "288.5264" naar boven af te ronden. Bij dit voorbeeld zullen we alle cijfers zien.
Voorbeeld 1 - Als het tweede argument nul is
Kijk naar de onderstaande VBA-code.
Code:
Sub RoundUp_Example1 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 0) MsgBox k End Sub
- Wanneer u de bovenstaande code uitvoert, wordt het opgegeven nummer, dwz 288.5264, geconverteerd naar het dichtstbijzijnde hele getal, dat wil zeggen 289
Voorbeeld # 2 - Wanneer het tweede argument 1 is
Bekijk de onderstaande code om te zien wat er gebeurt als we er een doorgeven als een tweede argument.
Code:
Sub RoundUp_Example2 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 1) MsgBox k End Sub
- Deze code converteert het opgegeven getal naar één decimaal punt, dwz 288,6
Voorbeeld # 3 - Wanneer het tweede argument 2 is
Kijk naar de onderstaande code om te zien wat er gebeurt als we twee als tweede argument doorgeven.
Code:
Sub RoundUp_Example3 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 2) MsgBox k End Sub
- Deze code converteert het opgegeven getal naar twee decimalen, dwz 288,53
Voorbeeld # 4 - Wanneer het tweede argument 3 is
Bekijk de onderstaande code om te zien wat er gebeurt als we drie als tweede argument doorgeven.
Code:
Sub RoundUp_Example4 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 3) MsgBox k End Sub
- Deze code converteert het opgegeven getal naar drie decimalen, dwz 288.527
Voorbeeld # 5 - Als het tweede argument -1 is
Bekijk de onderstaande code om te zien wat er gebeurt als we min één doorgeven als een tweede argument.
Code:
Sub RoundUp_Example5 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -1) MsgBox k End Sub
- Deze code converteert het opgegeven getal naar de dichtstbijzijnde tien, dwz 290.
Voorbeeld # 6 - Als het tweede argument -2 is
Bekijk de onderstaande code om te zien wat er gebeurt als we min twee als tweede argument doorgeven.
Code:
Sub RoundUp_Example6 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -2) MsgBox k End Sub
- Deze code converteert het opgegeven getal naar het dichtstbijzijnde honderdtal, dwz 300.
Voorbeeld # 7 - Wanneer het tweede argument -3 is
Bekijk de onderstaande code om te zien wat er gebeurt als we min drie als tweede argument doorgeven.
Code:
Sub RoundUp_Example7 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -3) MsgBox k End Sub
- Deze code converteert het getal naar het dichtstbijzijnde duizendtal, dat wil zeggen 1000.
Op deze manier kunnen we de functie ROUNDUP in VBA gebruiken als onderdeel van de werkbladfunctieklasse om de getallen naar boven af te ronden op basis van het opgegeven tweede argument.
