Excel & VBA Roundup Funktion

At lære at bruge Excels "Roundup"-funktion fra dets indbyggede programmeringssprog VBA, eller Visual Basic for Applications, hjælper dig med at køre enhver Excel-funktion fra VBA. Denne færdighed er nyttig, fordi Excel har mange funktioner, som VBA ikke har, og som du muligvis skal anvende fra et VBA-program. Bemærk, at VBA-funktionen, der giver dig mulighed for at trykke på "Roundup"-funktionen, ikke vil advare dig om en forkert syntaks eller argument, som den ville gøre, når du bruger standardregnearkgrænsefladen.

Excel "Roundup"-funktionen runder et tal opad til det antal cifre, du angiver. For eksempel, hvis du kører "Roundup (2.2, 0)" fortæller Excel, at du vil have det til at runde tallet 2.2 op til det næste heltal. "0" i det andet argument fortæller Excel, at du ikke vil have nogen cifre efter decimalkommaet, hvilket svarer til at sige, at du vil have et heltalssvar.

VBA har ikke en "Roundup"-funktion indbygget. Den nærmeste funktion, den har, er funktionen "Rund", som runder op eller ned afhængigt af, om slutcifferet i det tal, du runder, er større end eller mindre end 5. Hvis du f.eks. skriver "Round (2.2, 0)" i VBA "Immediate"-vinduet, resulterer det i en 2 i stedet for de 3, som Excel-funktionen "Roundup" ville runde op til.

Selvom VBA ikke har sin egen "Roundup"-funktion, kan den bruge Excels "Roundup"-funktion. For at instruere VBA til at gøre dette skal du indstille egenskaben "Formel" for det virtuelle objekt "Range" til funktionen "Roundup". Følgende eksempel viser dig, hvordan du gør dette. Åbn VBA-udviklingsmiljøet ved at trykke på "Alt" og "F11" samtidigt fra Excel. Klik med musen i vinduet "Umiddelbart", og skriv derefter følgende sætning: "Range ("A1"). Formel = "=Roundup (2.2, 0)"." Vend tilbage til Excel ved at bruge "Alt-F11"-tasten, der netop er beskrevet. Du vil se resultatet "3" i celle A1, hvilket indikerer, at din erklæring har anvendt Excels "Roundup"-funktion.

Du kan lave et interaktivt VBA-program, der accepterer argumenterne for "Roundup"-funktionen fra en bruger og viser resultatet af denne funktion. Efter at have åbnet VBA-udviklingsmiljøet, indsæt følgende program i vinduet:

Offentlig Sub roundUpANumber() Dim a1, a2, s a1 = CDbl (InputBox("Indtast det tal, du vil runde")) a2 = CInt (InputBox("Indtast antallet af decimaler, hvortil du vil gerne runde det tal, du lige har indtastet.")) s = "=Roundup(" & a1 & "," & a2 & ")" Range("A1").Formel = s Range("A1") .Beregn MsgBox (område("A1").Værdi) Slut Sub

Kør programmet ved at klikke på en af ​​dets udsagn og derefter klikke på "Kør"-menuens "Kør"-kommando. Når Excel beder dig om funktionens argumenter, skal du skrive dem og trykke på "Enter". Dit program vil vise resultatet af "Roundup"-funktionen for de argumenter, du indtastede.