Att lära sig använda Excel " Roundup " funktion från sin inbyggda programmeringsspråk VBA , eller Visual Basic for Applications , hjälper dig att köra alla Excel-funktion från VBA . Denna färdighet är användbart eftersom Excel har många funktioner att VBA inte har , och att du kan behöva ansöka från ett VBA -program . Observera att VBA -funktionen som låter dig utnyttja den " Roundup " -funktionen inte kommer att göra dig uppmärksam på en felaktig syntax eller argument , eftersom det skulle när du använder vanliga kalkylblad gränssnitt . Syfte
Excel " Roundup " funktionen avrundar ett tal uppåt till antal siffror du anger . Till exempel kör " Roundup ( 2.2 , 0 ) " berättar Excel du vill att det ska avrunda talet 2,2 uppåt till nästa heltal . Den " 0 " i det andra argumentet berättar Excel du inte vill att alla siffror efter decimalkommat , vilket är detsamma som att säga att du vill ha ett heltal svar . Addera VBA Round Funktion
VBA inte har en " Roundup " funktionen inbyggd den närmaste funktion den har är den " runda " -funktion , som rundar upp eller ner beroende på om den avslutande siffran i numret du avrundning är större än eller mindre än 5 . Till exempel skriver " Round ( 2.2 , 0 ) " i VBA "omedelbara " fönstret resulterar i en 2 , i stället för 3 som Excel " Roundup " -funktionen skulle runda upp till .
" Formula " Property
Även VBA inte har en " Roundup " egen funktion , kan det använda Excel " Roundup " funktionen . Att instruera VBA för att göra detta , ställ in " Formula " egendom " Range " virtuella föremål till " Roundup " funktionen . Följande exempel visar hur du gör detta . Öppna VBA utvecklingsmiljön genom att trycka på " Alt " och " F11 " samtidigt inifrån Excel . Klicka med musen i " omedelbar" fönstret , skriv följande uttalande : " Range ( " A1 " ) Formula = " = Roundup ( 2.2 , 0 ) " " Återgå till Excel genom att använda " Alt - F11 " tangentbordstryckningshändelse just beskrivits . . . Du ser resultatet " 3 " i cell A1 , anger ditt uttalande framgång tillämpats Excel " Roundup " funktionen . Addera Interactive Exempel
Du kan göra en interaktiv VBA program som accepterar från en användare argumenten för " Roundup " -funktion , och visar resultatet av denna funktion efter att öppna VBA utvecklingsmiljö , klistra in följande program i fönstret : .
Public Sub roundUpANumber ( )
Dim a1 , a2 , s
a1 = CDbl ( InputBox ( " Skriv in numret du vill runda " ) ) katalog
a2 = CInt ( InputBox ( " Ange antalet decimaler som du vill avrunda talet du just angett . " ) ) katalog
s = " = Roundup ( " & A1 & " , " & A2 & " ) "
Range ( " A1 " ) . Formula = s
Range ( " A1 " ) . Beräkna
MsgBox ( Range ( " A1 " ) . Value ) katalog
End Sub
Kör programmet genom att klicka på en av sina uttalanden , sedan klicka på " Run " -menyn är " Kör " -kommandot . När Excel frågar efter funktionens argument , skriver dem och tryck på " Enter . " Ditt program visa resultatet av den " Roundup " -funktion för de argument som du angav .
