Conta il numero di parole in una stringa
La seguente funzione VBA conta il numero di parole in una stringa cercando gli spazi all'interno della stringa. Utilizza la funzione MID. Potresti realizzare qualcosa di simile con le funzioni CERCA o TROVA.
| 1234567891011121314151617 | Funzione Number_of_Words(Text_String As String) As Integer'La funzione conta il numero di parole in una stringa'guardando ogni carattere e vedendo se è uno spazio o noNumero_di_parole = 0Dim String_Length As IntegerDim Current_Character As IntegerString_Length = Len(Text_String)Per Current_Character = 1 per String_LengthIf (Mid(Text_String, Current_Character, 1)) = " " ThenNumero_di_Parole = Numero_di_Parole + 1Finisci seSuccessivo Current_CharacterFine funzione |
Vale la pena notare un paio di punti:
• Questo codice deve essere inserito in un modulo cartella di lavoro: dal riquadro VBA, fare clic su Inserisci e poi modulo
• La funzione può essere chiamata da una cella della cartella di lavoro di Excel con un testo esplicito o un riferimento di cella come argomento:
A3 = Numero_di_parole ("maiale cane gatto")
A4 = Numero_di_parole(D1)
La funzione funziona attraversando la lunghezza di una stringa e vedendo se il carattere successivo è uno spazio e in tal caso aggiunge uno al numero di spazi nella stringa.
