Excel & VBA Roundup Function
Lære å bruke Excel er "Roundup" funksjonen fra sin innebygde programmeringsspråk VBA eller Visual Basic for Applications, hjelper du kjøre noen Excel-funksjon fra VBA. Denne ferdigheten er nyttig fordi Excel har mange funksjoner som VBA ikke har, og at du kanskje må søke fra en VBA program. Merk at VBA funksjon som lar deg benytte seg av "Roundup" -funksjonen ikke vil varsle deg om en feil syntaks eller argument, som det ville ved bruk av standard regneark grensesnitt.
Hensikt
Excel "Roundup" funksjonen runder et tall oppover til antall siffer du angir. For eksempel kjører "Roundup (2,2, 0)" forteller Excel du vil ha det til runde nummer 2,2 opp til neste heltall. "0" i det andre argumentet forteller Excel om du ikke ønsker noen sifre etter desimaltegnet, som er samme som å si at du ønsker et heltall svar.
VBA Round Funksjon
VBA har ikke en "Roundup" funksjon bygget i. Det nærmeste funksjon den har er "Round" -funksjonen, som runder opp eller ned avhengig av om slutt siffer i nummeret du avrunding er større eller mindre enn 5. for eksempel skrive "Round (2,2, 0)" i VBA "umiddelbare" vinduet resulterer i en 2, i stedet for tre som Excel "Roundup" -funksjonen vil runde opp til.
"Formula" Property
Selv om VBA ikke har en "Roundup" funksjon i seg selv, kan den bruke Excel er "Roundup" -funksjon. Å instruere VBA til å gjøre dette, sett "Formula" eiendom av "Range" virtuelt objekt til "Roundup" -funksjonen. Følgende eksempel viser deg hvordan du gjør dette. Åpne VBA utviklingsmiljø ved å trykke "Alt" og "F11" samtidig innenfra Excel. Klikk med musen i "Immediate-vinduet, skriv inn følgende uttalelse:".. Range ( "A1") Formula = "= Roundup (2,2, 0)" "Gå tilbake til Excel ved hjelp av" Alt-F11 "tastetrykk nettopp beskrev . Du vil se resultatet "3" i celle A1, indikerer din uttalelse ble brukt Excel er "Roundup" -funksjon.
interaktiv Eksempel
Du kan lage en interaktiv VBA program som godtar fra en bruker argumentene for "Roundup" -funksjonen, og viser resultatet av denne funksjonen. Etter åpning av VBA utviklingsmiljø, lim inn følgende program i vinduet:
Public Sub roundUpANumber ()
Dim a1, a2, s
a1 = CDbl (InputBox ( "Skriv inn nummeret du ønsker å runde"))
a2 = Cint (InputBox ( "Skriv inn antall desimaler som du ønsker å runde nummeret du bare inn."))
s = "= Roundup (" & a1 & "," & a2 & ")"
Range ( "A1"). Formula = s
Range ( "A1"). Beregn
MsgBox (Range ( "A1"). Verdi)
End Sub
Kjør programmet ved å klikke på en av sine uttalelser, og deretter klikke på "Kjør" menyen "Kjør" -kommandoen. Når Excel ber deg for funksjonens argumenter, skriv dem og trykk "Enter". Programmet vil vise resultatet av "Roundup" -funksjonen for argumentene du har angitt.