Contar palabras en Excel aplicando VBA Macros

Contar palabras en Excel aplicando VBA Macros

Elaborado y analizado por: Víctor Espichán Avila

Proyecto_004_ContarPalabrasEnVBA_vcea

Haciendo uso del código para contar palabras en VBA, se ha implementado un formulario que permita una mejor interacción con el usuario, mostrando el resultado en el mismo formulario con el apoyo de algoritmos, cuadros de textos y botones.

El procedimiento consiste en contar las palabras de la hoja activa, para cada una de las celdas, usando la estructura for each, si el contenido de la celda es diferente a nulo, se realiza el reemplazo de los espacios en blanco y se van agrupando las palabras, luego de ello el contador va agregando una unidad, teniendo finalmente el número total de palabras ingresadas en la caja de texto diseñada.

Public Palabras As String

Private Sub CommandButton1_Click()

If TextBox1.Text <> "" Then

ult = Cells(Rows.Count, 1).End(xlUp).Row

ult = ult + 1

Cells(ult, 1) = TextBox1.Text

Else

MsgBox "Por favor ingresar palabras para contabilizar"

End If

TextBox1.Text = ""

End Sub

Private Sub CommandButton2_Click()

Call CountWords

End Sub

Sub CountWords()

Dim WordCount 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

WordCount = WordCount + N

Next Rng

TextBox2.Text = Format(WordCount, "#,##0")

End Sub

Private Sub CommandButton3_Click()

Cells.ClearContents

'Application.Quit

'UserForm1.Hide

ThisWorkbook.Save

TextBox2.Text = ""

End Sub

 

(Para mayor visualización de la imagen, hacer click en la misma)