Calcolatrice vendite in Excel VBA
Di seguito vedremo un programma in Excel VBA che calcola il totale delle vendite di ciascun dipendente nel corso di un periodo di tre anni.
Situazione:
Gli altri due fogli hanno la stessa messa a punto, ma con diverse combinazioni di mesi e dipendenti, e diversi numeri di vendita. Ci sono diversi modi per calcolare il totale delle vendite di ciascun dipendente in Excel, ma vedremo che si può fare in Excel VBA molto facilmente.
Posizionare un pulsante di comando nel foglio di lavoro e aggiungere le righe di codice che segue:
-
In primo luogo, si dichiara tre variabili e un oggetto foglio di lavoro. Una variabile di tipo String chiamiamo dipendente, una variabile di tipo Integer che chiamiamo totale, un oggetto foglio chiamiamo foglio, e una variabile di tipo integer chiamiamo i.
Dim employee As String, total As Integer, sheet As Worksheet, i As Integer
-
si inizializza due variabili. Inizializziamo totale variabile con valore 0. Usiamo la funzione InputBox per ottenere il nome del dipendente da parte dell’utente.
total = 0
employee = InputBox("Enter the employee name (case sensitive)")
-
Dopo che l’utente ha immesso un nome del dipendente, vogliamo calcolare le vendite totali di questo dipendente. La cartella di lavoro è costituito da tre strati.
Vogliamo un programma che può ancora essere utilizzato se vengono aggiunti fogli in futuro. Quindi usiamo la seguente riga di codice:
For Each sheet In Worksheets
-
Avviare un’altra ciclo For Next.
For i = 2 To 13
-
Se il nome del dipendente immesso corrisponde al nome del dipendente nella colonna B, Excel VBA aggiunge il numero di vendite al totale variabile. Aggiungere le seguenti righe di codice:
If sheet.Cells(i, 2).Value = employee Then total = total + sheet.Cells(i, 3).Value End If
-
Non dimenticare di chiudere entrambi i loop.
Next i Next sheet
-
Infine, visualizzare le vendite totali del lavoratore utilizzando un msgbox.
MsgBox "Total sales of " & employee & " is " & total
-
Test del programma.
Risultato David:
