I Excel " Roundup " funzione arrotonda un numero al rialzo per il numero di cifre specificato . Ad esempio , l'esecuzione di " Roundup ( 2,2 , 0 ) " dice a Excel che si desidera arrotondare il numero di 2,2 fino al numero intero successivo . Lo "0" nel secondo argomento indica a Excel che non vuoi le cifre dopo la virgola , il che equivale a dire che vuoi una risposta intero.
VBA Rotondo Funzione
VBA non ha una funzione di " Roundup " costruito pollici la funzione più vicina che ha è la funzione "Round" , che giri su o giù a seconda che il finale cifra nel numero sei arrotondamento è maggiore o meno di 5 . Ad esempio, digitando "Round ( 2,2 , 0 ) " in VBA "immediato" i risultati in una finestra 2 , invece dei 3 che la funzione di Excel " Roundup " avrebbe arrotondare a .
"Formula" Proprietà
Anche se VBA non ha una funzione di " Roundup " della propria , si può utilizzare la funzione " Roundup " di Excel . Per istruire VBA per fare questo , impostare la proprietà "Formula " della " Gamma " oggetto virtuale alla funzione " Roundup " . Il seguente esempio mostra come fare questo . Aprire l'ambiente di sviluppo VBA premendo il tasto " Alt " e " F11 " contemporaneamente da Excel . Fare clic con il mouse nella finestra " immediata ' , quindi digitare la seguente dichiarazione : " Range (" A1 " ) Formula = " = Roundup ( 2,2 , 0 ) " "Return to Excel utilizzando il" Alt- F11 " pressione del tasto appena descritto . . . vedrete il risultato "3" nella cella A1 , indicando la vostra dichiarazione applicato con successo la funzione " Roundup " di Excel .
Interactive Esempio
Si può fare un sistema interattivo programma VBA che accetta da un utente gli argomenti per la funzione " Roundup " , e visualizza il risultato di tale funzione Dopo aver aperto l'ambiente di sviluppo VBA , incollare il seguente programma nella finestra : .
pubblico roundUpANumber Sub ( )
Dim a1 , a2 , s
a1 = CDbl ( InputBox ( "Inserire il numero vuoi rotonda" ) ) per
a2 = CInt ( InputBox ( " Inserisci il numero di decimali a cui vorresti arrotondare il numero appena inserito . " ) ) per
s =" = Roundup ( "& A1 & " , "& A2 &" ) "
Range (" A1") . formula = s
Range (" A1") . Calcola
MsgBox ( Range (" A1") . Valore ) per
End Sub
Avviare il programma facendo clic su una delle sue affermazioni , quindi facendo clic su comando " Esegui" del menu " Run" . Quando Excel richiede argomenti della funzione, digitare loro e premere " Invio". il programma verrà visualizzare il risultato della funzione " Roundup " per gli argomenti inseriti.
software © www.354353.com