MACROS DE EXCEL

Contar palabras de hoja activa en Excel (macro)

Contar palabras de hoja activa en Excel (macro)

Contar palabras de hoja activa en Excel

驴C贸mo podemos contar la cantidad de palabras que contiene una hoja generado por una macro en Excel?

La siguiente macro nos permite generar un mensaje que detalla la cantidad de palabras contenidas dentro de una hoja en Excel. Cuenta tanto palabras individuales de una celda como m煤ltiples palabras dentro de una misma celda. Podemos asignarla a la ejecuci贸n de un bot贸n o comando para de esta forma ejecutarla mucho m谩s r谩pido, o bien desde la opci贸n Macros del men煤 芦Programador禄. Debemos copiar la siguiente instrucci贸n dentro de un nuevo m贸dulo en la ventana de Visual Basic:

 

CONTAR PALABRAS DE HOJA ACTIVA EN EXCEL

Sub ContarPalabrasHoja()
Dim WordCnt As Long
Dim rng As Range
Dim S As String
Dim N As Long
For Each rng In ActiveSheet.UsedRange.Cells
S = Application.WorksheetFunction.Trim(rng.Text)
N = 0
If S <> vbNullString Then
N = Len(S) - Len(Replace(S, " ", "")) + 1
End If
WordCnt = WordCnt + N
Next rng
MsgBox "La hoja activa tiene " _
& Format(WordCnt, "#,##0") & _
" palabras"
End Sub

 

Como podemos ver nombramos a la funci贸n 芦ContarPalabrasHoja禄. Si buscamos desde la opci贸n Macros del men煤 芦programador禄, podremos encontrarla con dicho nombre para poder ser ejecutada.

De esta forma podemos obtener la cantidad de palabras de una hoja en cuesti贸n de segundos gracias a la macro generada.

 

Te recomiendo ver el siguiente link con m谩s videos de Macros 煤tiles de Excel聽AQU脥.

驴No sab茅s como instalar esta macro? 隆No te preocupes!聽 Aqu铆 est谩 la soluci贸n:

Salvo aclaraci贸n, todas las f贸rmulas y macros de este sitio est谩n configuradas para aplicarse sobre la celda A1.聽Algunas f贸rmulas se encuentran encerradas entre llaves {} debido a que son f贸rmulas matriciales. Estas llaves no deben introducirse tecle谩ndolas, sino que se generan autom谩ticamente al aceptar la f贸rmula pulsando Control+Shift+Enter al mismo tiempo.聽Las f贸rmulas de este sitio son compatibles con versiones de Microsoft Excel庐 2010 o superiores.聽