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 dell'articolo venduto seguito dal nome del prodotto. Vogliamo trovare l'articolo totale venduto da ciascun 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 quindi il ciclo dal primo carattere all'ultimo carattere nella stringa. Quindi troviamo e aggiungiamo i valori numerici trovati nella stringa per ottenere la somma delle cifre.
Spiegazione del codice
Metà(Numero, i, 1)
La funzione Mid viene utilizzata per estrarre la sottostringa dalla stringa principale. Il codice sopra estrarrà un carattere alla volta dalla stringa principale.
IsNumeric(Valore)
La funzione IsNumeric viene utilizzata per verificare se il valore specificato è numerico.
Val(Valore)
La funzione Val viene utilizzata per convertire la stringa in un valore numerico.
Si prega di seguire sotto per il codice
Opzione Funzione esplicita 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. Inoltre, puoi seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica