In VBAcode, se devi fare riferimento a determinate funzioni del foglio di lavoro come Sum, Vlookup, ecc., Puoi usarle direttamente utilizzando l’oggetto Application. Quindi useremo le funzioni come – Application.WorksheetFunction.Sum o Application.WorksheetFunction.Vlookup dove WorksheetFunction è il metodo dell’oggetto Application.

Considerando che abbiamo questa macro di test, se digitiamo Application.WorksheetFunction.

Otterremo un popup che mostra la formulaerefer sotto l’immagine

IMG1

Quindi, per esempio, se vuoi sommare i valori di questo intervallo nella colonna A usando vba –

sample

Abbiamo una variabile chiamata SalesTotal che salverà la somma in essa. Per ottenere il totale in SalesTotal useremo il seguente codice VBA nel modulo standard:

_Sub macro4 ()

Dim SalesTotal As Long SalesTotal = Application.WorksheetFunction.Sum (Range (“A2: A6”))

MsgBox SalesTotal End Sub_ Per copiare il codice sopra nel tuo file, * Premi Alt + F11 sulla tastiera.

  • Sul lato sinistro, vedrai gli oggetti di Microsoft Excel.

  • Fare clic con il tasto destro e selezionare Inserisci.

  • Quindi fare clic su Modulo.

  • Copia il codice nella finestra del codice a destra.

Quando utilizziamo questa macro di esempio, verrà visualizzato un messaggio che mostra il valore memorizzato nel totale delle vendite e può essere utilizzato in ulteriori righe di codice nella macro.

L’output che otterremo è –

IMG3

Se desideri che SalesTotal venga visualizzato nella cella A7, puoi modificare la codeline da Msgbox SalesTotal a Worksheets (“Sheet1”). Intervallo (“A7”). Value = SalesTotal Considerando che abbiamo bisogno anche delle vendite medie per queste cifre nella cella A9.

Possiamo usare il codice sottostante __Sub macro5 ()

Dim SalesTotal As Long With Worksheets (“Sheet1”)

SalesTotal = Application.WorksheetFunction.Sum (.Range (“A2: A6”))

Range (“A7”). Value = SalesTotal .Range (“A9”). Value = Application.WorksheetFunction.Average (.Range (“A2: A6”))

End With End Sub__ Ci sono lievi modifiche a questo codice rispetto al precedente.

  • Invece di utilizzare una variabile per la media, ho compilato direttamente quel valore dopo il calcolo nella cella A9. Quindi, vedrai la riga .Range (“A9”). Value = Application.WorksheetFunction.Average (.Range (“A2: A6”))

  • La riga msgbox è stata rimossa.

  • Il valore nella variabile SalesTotal va alla cella A7.

  • Idealmente, puoi ripetere la stessa riga di codice che è stata utilizzata per la media, per la riga di codice Sum sostituendo SalesTotal = Application.WorksheetFunction.Sum (.Range (“A2: A6”)) _ _.Range (“A7 “) .Value = SalesTotal With _.Range (” A7 “). Value = Application.WorksheetFunction.Sum (.Range (” A2: A6 “)) _ Tuttavia, è stato mantenuto in modo da poter comprendere i diversi modi di codificare lo stesso compito. Allo stesso modo, possiamo usare altre funzioni mentre usiamo Application.WorksheetFunction. Tutte quelle funzioni che possiamo usare direttamente nel foglio di lavoro, possiamo usarle qui.

Ciò semplifica l’utilizzo delle funzioni nel codice in modo da poter calcolare le formule richieste senza dover creare un codice per la formula.

image 48

_ _Se i nostri blog ti sono piaciuti, condividili con i tuoi amici su Facebook. E anche tu puoi seguirci su Twitter e Facebook.

_ Ci piacerebbe sentire la tua opinione, facci sapere come possiamo migliorare, integrare o innovare il nostro lavoro e renderlo migliore per te. Scrivici a [email protected]_ __