Le parole sono normalmente associate a un word processor, come Microsoft Word. Tuttavia, molte persone lavorano anche con le parole nel loro programma di fogli di calcolo. (Una volta ho avuto un collega che utilizzava Excel per scrivere promemoria tutto il tempo.) A volte potresti voler contare il numero di parole in un foglio di lavoro che ricevi da qualcuno. Esistono capacità native per eseguire tale attività in Word, ma non in Excel.

Una soluzione, ovviamente, è caricare la cartella di lavoro in Word, eseguire il conteggio delle parole e quindi chiudere il file. Tuttavia, non è così flessibile come creare una macro per contare le parole all’interno di Excel stesso. La seguente macro, CountWords, conta il numero di parole in qualsiasi intervallo selezionato in un foglio di lavoro:

Sub CountWords()

Dim MyRange As Range     Dim CellCount As Long     Dim TotalWords As Long     Dim NumWords As Integer     Dim Raw As String

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)

TotalWords = 0     For CellCount = 1 To MyRange.Cells.Count         If Not MyRange.Cells(CellCount).HasFormula Then             Raw = MyRange.Cells(CellCount).Value             Raw = Trim(Raw)

If Len(Raw) > 0 Then                 NumWords = 1             Else                 NumWords = 0             End If             While InStr(Raw, " ") > 0                 Raw = Mid(Raw, InStr(Raw, " "))

Raw = Trim(Raw)

NumWords = NumWords + 1             Wend             TotalWords = TotalWords + NumWords         End If     Next CellCount     MsgBox "There are " & TotalWords & " words in the selection."

End Sub

Notare che la macro passa attraverso ogni cella dell’intervallo selezionato.

Quindi ignora qualsiasi cella che contiene una formula. In tutte le altre celle conta essenzialmente il numero di spazi nella cella. (Si presume che uno o più spazi separino le parole.) Il conteggio delle parole viene quindi visualizzato in una finestra di messaggio per la tua modifica.

La macro è abbastanza veloce su intervalli relativamente piccoli. Se scegli un intervallo ampio (come l’intero foglio di lavoro), la macro può richiedere molto tempo per completare il suo lavoro. Il punto è assicurarsi di selezionare solo l’intervallo effettivo che si desidera analizzare prima di richiamare la macro.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (2105) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui:

Counting Words.