Funzione di riepilogo Excel e VBA

Imparare a utilizzare la funzione "Roundup" di Excel dal suo linguaggio di programmazione integrato VBA, o Visual Basic, Applications Edition, ti aiuta a eseguire qualsiasi funzione di Excel da VBA. Questa abilità è utile perché Excel ha molte funzioni che VBA non ha e che potresti dover applicare da un programma VBA. Nota che la funzione VBA che ti consente di attingere alla funzione "Roundup" non ti avviserà di una sintassi o di un argomento errati, come farebbe quando utilizzi l'interfaccia del foglio di lavoro standard.

Scopo

La funzione "Roundup" di Excel arrotonda un numero per eccesso al numero di cifre specificato. Ad esempio, l'esecuzione di "Roundup (2.2, 0)" indica a Excel che desideri arrotondare il numero 2.2 per eccesso al numero intero successivo. Lo "0" nel secondo argomento indica a Excel che non vuoi cifre dopo il punto decimale, il che equivale a dire che vuoi una risposta intera.

Funzione Round VBA

VBA non ha una funzione "Roundup" integrata. La funzione più vicina che ha è la funzione "Round", che arrotonda per eccesso o per difetto a seconda che la cifra finale nel numero che stai arrotondando sia maggiore o minore di 5. Ad esempio, digitando "Round (2.2, 0)" nella finestra VBA "Immediato" si ottiene un 2, invece del 3 che la funzione "Roundup" di Excel arrotonda per eccesso.

Proprietà "Formula"

Sebbene VBA non disponga di una funzione "Roundup" propria, può utilizzare la funzione "Roundup" di Excel. Per istruire VBA a farlo, imposta la proprietà "Formula" dell'oggetto virtuale "Range" sulla funzione "Roundup". L'esempio seguente mostra come farlo. Aprire l'ambiente di sviluppo VBA premendo contemporaneamente "Alt" e "F11" da Excel. Fare clic con il mouse nella finestra "Immediato", quindi digitare la seguente istruzione:"Intervallo ("A1"). Formula ="=Roundup (2.2, 0)"." Tornare a Excel utilizzando la pressione del tasto "Alt-F11" appena descritto Vedrai il risultato "3" nella cella A1, a indicare che la tua istruzione ha applicato correttamente la funzione "Roundup" di Excel.

Esempio interattivo

Puoi creare un programma VBA interattivo che accetti da un utente gli argomenti per la funzione "Roundup" e visualizzi il risultato di quella funzione. Dopo aver aperto l'ambiente di sviluppo VBA, incolla il seguente programma nella finestra:

Public Sub roundUpANumber() Dim a1, a2, s a1 =CDbl(InputBox("Inserisci il numero che desideri arrotondare")) a2 =CInt(InputBox("Inserisci il numero di decimali a cui desideri arrotondare il numero appena inserito.")) s ="=Roundup(" &a1 &"," &a2 &")" Range("A1").Formula =s Range("A1").Calculate MsgBox (Range( "A1"). Valore) End Sub

Esegui il programma facendo clic su una delle sue istruzioni, quindi facendo clic sul comando "Esegui" del menu "Esegui". Quando Excel richiede gli argomenti della funzione, digitali e premi "Invio". Il tuo programma visualizzerà il risultato della funzione "Roundup" per gli argomenti che hai inserito.