Sommare i numeri cifre in una cella utilizzando la funzione VBA personalizzata in Microsoft Excel
In questo articolo, creeremo una funzione personalizzata per calcolare la somma delle cifre in una cella.
I dati di esempio per questo esempio sono costituiti da dati di vendita. Ogni agente ha venduto un prodotto diverso. In una cella abbiamo il conteggio degli articoli venduti seguito dal nome del prodotto. Vogliamo trovare l’articolo totale venduto da ogni agente.
Abbiamo creato la funzione “SumDigits” per calcolare la somma delle cifre nella cella. Questa funzione accetta l’intervallo di celle come input e restituisce la somma delle cifre nella cella.
Spiegazione logica
Abbiamo creato la funzione personalizzata “SumDigits” per calcolare la somma delle cifre in una cella. In questa funzione, troviamo la lunghezza della stringa nella cella e poi ripetiamo dal primo carattere all’ultimo carattere della stringa. Quindi troviamo e aggiungiamo i valori numerici trovati nella stringa per ottenere la somma delle cifre.
Spiegazione del codice
Mid (Numero, i, 1)
La funzione Mid viene utilizzata per estrarre la sottostringa dalla stringa principale.
Il codice precedente estrarrà un carattere alla volta dalla stringa principale.
IsNumeric (Value)
La funzione IsNumeric viene utilizzata per verificare se il valore specificato è numerico.
Val (Value)
La funzione Val viene utilizzata per convertire la stringa in un valore numerico.
Segui sotto per il codice
Option Explicit Function SumDigits(Number As Variant) Dim i As Integer For i = 1 To Len(Number) If IsNumeric(Mid(Number, i, 1)) Then SumDigits = SumDigits + Val(Mid(Number, i, 1)) End If Next i End Function
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook e Facebook.
Ci piacerebbe sentire la tua opinione, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici a [email protected]