Conta parole

[Fabrizio Caccia]

Ciao a tutti,

un'informazione su excel...

Dovrei contare il numero di parole all'interno di una cella di testo di
excel...come si può fare?

Grazie infinite
Fabrizio

[Mauro Gamberini]

Post by Fabrizio Caccia
Dovrei contare il numero di parole all'interno di una cella di testo di
excel...come si può fare?

Uhmmm... con il vba, selezionando
la cella, si potrebbe fare
una cosa tipo:

Public Sub m()

Dim cont As Long
Dim l As Long

With Selection

For l = 1 To Len(.Value)
If Mid(.Value, l, 1) = " " Then
cont = cont + 1
End If
Next

End With

MsgBox "Parole: " & cont + 1

End Sub


Le parole dovrebbero essere separate da un
unico spazio.

[Fabrizio Caccia]

Mauro Gamberini scrive nel messaggio:
[...]

Post by Mauro Gamberini
Uhmmm... con il vba, selezionando
la cella, si potrebbe fare
Public Sub m()
Dim cont As Long
Dim l As Long
With Selection
For l = 1 To Len(.Value)
If Mid(.Value, l, 1) = " " Then
cont = cont + 1
End If
Next
End With
MsgBox "Parole: " & cont + 1
End Sub
Le parole dovrebbero essere separate da un
unico spazio.

Ti ringrazio moltissimo Mauro ma di VBA non ne capisco una mazza..
Ma un conta valori non potrebbe andare?

Se ce la fai con le sole formule di Excel bene altrimenti fa lo stesso...
Grazie cmq

[Mauro Gamberini]

Post by Fabrizio Caccia
Ti ringrazio moltissimo Mauro ma di VBA non ne capisco una mazza..
Ma un conta valori non potrebbe andare?
Se ce la fai con le sole formule di Excel bene altrimenti fa lo stesso...
Grazie cmq

Da una vecchia risposta di Ivano(ciao):

Se può interessarti una soluzione by formula matriciale:
=SOMMA(--(STRINGA.ESTRAI(A1;RIF.RIGA(1:100);1)=" "))+1
che restituisce 19 anzichè 20 in quanto "l'universo" è contemplato come
unica parola


che può essere migliorata con:
=SOMMA(--(STRINGA.ESTRAI(A1;RIF.RIGA(1:100);1)="
"))+1+SOMMA(--(STRINGA.ESTRAI(A1;RIF.RIGA(1:100);1)="'"))-SOMMA(--(STRINGA.­E
STRAI(A1;RIF.RIGA(1:100);1)="' "))


conta gli spazi, ne somma gli apostrofi e decurta gli apostrofi seguiti
dallo spazio.


Tutte le formule vanno inserite con CTRL+MAIUSC+INVIO

[Ignazio]

Post by Fabrizio Caccia
Dovrei contare il numero di parole all'interno di una cella di testo di
excel...come si può fare?

Considerando che il numero di parole è dato dal numero di spazi tra le
parole +1, il numero di parole della frase scritta in A1 potrebbe essere:
=LUNGHEZZA(ANNULLA.SPAZI(A1))-LUNGHEZZA(SOSTITUISCI(ANNULLA.SPAZI(A1);"
";""))+1

La formula tiene conto di eventuali spazi in più digitati per errore, tipo:
Testo di prova, (numero parole 6).
mentre non tiene conto di altri errori di digitazione, come lo spazio tra
parole e virgole o tra parole e parentesi, tipo:
Testo di prova , ( numero parole 6 ).

[Ignazio]

Post by Ignazio
Considerando che il numero di parole è dato dal numero di spazi tra le
=LUNGHEZZA(ANNULLA.SPAZI(A1))-LUNGHEZZA(SOSTITUISCI(ANNULLA.SPAZI(A1);"
";""))+1

Siccome la formula non viene visualizzata su di una sola riga, te la
riscrivo meglio:
=LUNGHEZZA(ANNULLA.SPAZI(A1))-
LUNGHEZZA(SOSTITUISCI(ANNULLA.SPAZI(A1);" ";""))+1

[Ignazio]

Post by Ignazio
=LUNGHEZZA(ANNULLA.SPAZI(A1))-
LUNGHEZZA(SOSTITUISCI(ANNULLA.SPAZI(A1);" ";""))+1

Oops ... all'interno di SOSTITUISCI la funzione ANNULLA.SPAZI è inutile:
=LUNGHEZZA(ANNULLA.SPAZI(A1))-
LUNGHEZZA(SOSTITUISCI(A1;" ";""))+1

[Norman Jones]

Post by Fabrizio Caccia
Ciao a tutti,
un'informazione su excel...
Dovrei contare il numero di parole all'interno di una cella di testo di
excel...come si può fare?
Grazie infinite
Fabrizio

'----------------------------------------

Ciao Fabrizio,

Se fosse adatta una funzione utente (UDF - User Defined Function), potresti
provare:

'===========>>
Function NumeroParole(sStr As String) As Long
'Per xl2k+
NumeroParole = _
UBound(Split(Application.Trim(sStr), " ")) + 1
End Function
'<<===========

'-------------------------
Alt-F11 ( sei nell'editor del vba)
Inserici | Modulo | Copia Incolla il codice qui sopra.
Alt-F11 (Sei di nuovo in Excel)
'-------------------------

Si potrebbe usare così la funzione:

A1: Inter Sampdoria Juve Roma
B1: =NumeroParole(A1) ===> 4

---
Regards,
Norman

[Fabrizio Caccia]

grazie infinite a tutti