Excel & VBA Roundup-functie

Door te leren hoe u Excel's "Roundup"-functie gebruikt vanuit de ingebouwde programmeertaal VBA, of Visual Basic for Applications, kunt u elke Excel-functie uitvoeren vanuit VBA. Deze vaardigheid is handig omdat Excel veel functies heeft die VBA niet heeft en die u mogelijk vanuit een VBA-programma moet toepassen. Merk op dat de VBA-functie waarmee u gebruik kunt maken van de functie "Roundup" u niet waarschuwt voor een onjuiste syntaxis of argument, zoals bij het gebruik van de standaard werkbladinterface.

De Excel-functie "Afronding" rondt een getal naar boven af ​​op het aantal cijfers dat u opgeeft. Als u bijvoorbeeld "Afronding (2.2, 0)" uitvoert, vertelt Excel dat u het getal 2,2 wilt afronden naar het volgende gehele getal. De "0" in het tweede argument vertelt Excel dat u geen cijfers achter de komma wilt, wat gelijk staat aan zeggen dat u een geheel getal antwoord wilt.

VBA heeft geen "Roundup"-functie ingebouwd. De functie die het dichtst in de buurt komt, is de functie "Afronden", die naar boven of naar beneden afrondt, afhankelijk van of het eindcijfer in het getal dat u afrondt groter of kleiner is dan 5. Als u bijvoorbeeld "Afronding (2.2, 0)" in het VBA-venster "Onmiddellijk" typt, resulteert dit in een 2, in plaats van de 3 waarnaar de Excel-functie "Afronding" zou afronden.

Hoewel VBA geen eigen "Roundup"-functie heeft, kan het de "Roundup"-functie van Excel gebruiken. Om VBA hiertoe opdracht te geven, stelt u de eigenschap "Formule" van het virtuele object "Bereik" in op de functie "Afronden". In het volgende voorbeeld ziet u hoe u dit doet. Open de VBA-ontwikkelomgeving door vanuit Excel tegelijkertijd op "Alt" en "F11" te drukken. Klik met de muis in het venster "Onmiddellijk" en typ de volgende instructie: "Bereik ("A1").Formule = "=Roundup (2.2, 0)"." Keer terug naar Excel met de zojuist beschreven "Alt-F11"-toets. U ziet het resultaat "3" in cel A1, wat aangeeft dat uw verklaring de Excel-functie "Afronding" met succes heeft toegepast.

U kunt een interactief VBA-programma maken dat van een gebruiker de argumenten voor de functie "Afronden" accepteert en het resultaat van die functie weergeeft. Plak na het openen van de VBA-ontwikkelomgeving het volgende programma in het venster:

Public Sub roundUpANumber() Dim a1, a2, s a1 = CDbl (InputBox("Voer het getal in dat u wilt afronden")) a2 = CInt (InputBox("Voer het aantal decimalen in waarop u wilt het zojuist ingevoerde getal afronden.")) s = "=Roundup(" & a1 & "," & a2 & ")" Range("A1").Formula = s Range("A1") .Bereken MsgBox (Bereik("A1").Waarde) Einde Sub

Start het programma door op een van de instructies te klikken en vervolgens op de opdracht "Uitvoeren" van het menu "Uitvoeren". Wanneer Excel u om de argumenten van de functie vraagt, typt u deze en drukt u op 'Enter'. Uw programma zal het resultaat van de functie "Afronden" weergeven voor de argumenten die u hebt ingevoerd.