Lære å bruke Excel er " Roundup "-funksjonen fra sin innebygde programmeringsspråk VBA eller Visual Basic for Applications , hjelper du kjører 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-programmet . 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. Formål
Excel " Roundup " -funksjonen runder et tall oppover til antall sifre du angir. For eksempel kjører " Roundup ( 2,2 , 0 )" forteller Excel du ønsker det å runde tallet 2,2 opp til neste heltall . "0" i det andre argumentet forteller Excel du vil ikke ha noen sifre etter desimaltegnet , som er samme som å si at du ønsker et heltall svar.
VBA Round Funksjon
VBA har ikke en " Roundup "-funksjonen bygget i. det nærmeste funksjon den har er " Round "-funksjonen , som runder opp eller ned avhengig av om ending siffer i nummeret du runder er større enn eller mindre enn 5 . For eksempel skriver "Round ( 2,2 , 0 )" i VBA " Umiddelbar " vinduet resulterer i en to , i stedet for tre som Excel " Roundup "-funksjonen vil runde opp til .
" Formula " Property
selv om VBA ikke har en " Roundup " funksjon av dens egen, kan den bruke Excel er " Roundup "-funksjonen . Å instruere VBA til å gjøre dette , sett " Formula " eiendom " 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 fra Excel. Klikk med musen i " Immediate -vinduet , og skriv følgende uttalelse : " Range (" A1 ") Formula = "= Roundup ( 2,2 , 0 )" "Gå tilbake til Excel ved hjelp av " Alt- F11 " tastetrykk nettopp har beskrevet . . . Du vil se resultatet "3" i celle A1 , indikerer kontoutskriften hell brukt Excel er " Roundup "-funksjonen .
Interactive Eksempel
Du kan lage en interaktiv VBA program som aksepterer fra en bruker argumentene for " Roundup "-funksjonen , og viser resultatet av den funksjonen etter åpning av VBA utviklingsmiljø, lim inn følgende program inn i vinduet : .
Public Sub roundUpANumber ( )
Dim a1 , a2 , s
a1 = CDbl ( InputBox ("Skriv inn nummeret du ønsker å runde "))
a2 = Cint ( InputBox ( " angi antall desimaler som du ønsker å runde det nummeret du har kommet hjem. "))
s = " = Roundup ( "& a1 &" , "& a2 &" ) "
Range (" A1 ") . Formula = s
Range (" A1 ") . Beregn
MsgBox ( Range (" A1 ") . Value)
End Sub
Kjør programmet ved å klikke på en av sine uttalelser , og deretter klikke på " Kjør" -menyen er " 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.