At lære at bruge Excels " Roundup " funktion fra sin indbyggede programmeringssprog VBA eller Visual Basic for Applications , hjælper dig med at køre nogen Excel funktion fra VBA. Denne færdighed er nyttigt, fordi Excel har mange funktioner , at VBA ikke har, og at du måske nødt til at gælde fra et VBA -program. Bemærk, at VBA funktion, der lader dig udnytte det " Roundup "-funktionen vil ikke gøre dig opmærksom på en forkert syntaks eller argument , da det ville , når du bruger standard regneark interface. Formål
Excel " Roundup " funktionen runder et tal opad til antallet af cifre , du angiver. For eksempel kører " Roundup (2,2 , 0 )" fortæller Excel, du vil have det til at afrunde antallet 2.2 op til det næste heltal. "0" i det andet argument fortæller Excel, at du ikke ønsker nogen cifre efter kommaet , hvilket svarer til at sige , du ønsker et heltal svar.
VBA Round Funktion
< br >
VBA ikke har en " Roundup "-funktion indbygget i. den nærmeste funktion det har, er det "Round" -funktion, som runder op eller ned afhængigt af, om der sluttede ciffer i antallet du afrunding er større end eller mindre end 5 . For eksempel at skrive " Round (2,2 , 0) " i VBA "umiddelbare " Window resulterer i en 2 , i stedet for de 3 , at Excel " Roundup "-funktionen vil runde op til .
< br > " Formula " Property
Selvom VBA ikke har en " Roundup "-funktion af sine egne, kan den bruge Excels " Roundup "-funktion. At instruere VBA til at gøre dette , skal du indstille " Formula" ejendom " Range " virtuelt objekt til " Roundup "-funktionen . Følgende eksempel viser, hvordan du gør dette. Åbn VBA udviklingsmiljøet ved at trykke på "Alt " og " F11 " samtidigt fra Excel . Klik med musen i " Immediate -vinduet , og skriv derefter følgende erklæring:" Range (" A1" ) Formel = " = Roundup (2,2 , 0) " " Vend tilbage til Excel ved hjælp af" Alt- F11 " tastetryk netop beskrevet. . . Du vil se resultatet "3" i celle A1, angiver Deres redegørelse anvendt med succes Excels " Roundup "-funktion.
Interactive Eksempel
p Du kan lave en interaktiv VBA program, der accepterer fra en bruger argumenterne for " Roundup "-funktionen , og viser resultatet af denne funktion efter åbning af VBA udviklingsmiljø, følgende program i vinduet indsæt : .
Public Sub roundUpANumber ()
Dim A1, A2, s
a1 = CDbl ( InputBox ("Indtast det nummer, du gerne vil round" ) )
a2 = Cint ( InputBox ( " Indtast antal decimaler , som du gerne vil afrunde det tal, du lige har indtastet . " ) )
s =" = Roundup ( "& a1 &" , "& a2 &" ) "
Range (" A1 "). Formel = s
Range (" A1 "). Beregn
MsgBox ( Range (" A1 "). Value)
End Sub
Kør programmet ved at klikke på en af sine udtalelser , og derefter klikke på " Kør" menuen "Kør" kommandoen . Når Excel beder om funktionens argumenter , skal du skrive dem og trykke på "Enter ". dit program vil vise resultatet af " Roundup " funktion for de argumenter, du har indtastet.