Tabla de contenido
Contar el número de palabras en una cadena
La siguiente función de VBA cuenta el número de palabras en una cadena buscando espacios dentro de la cadena. Utiliza la función MID. Puede lograr algo similar con las funciones BUSCAR o ENCONTRAR.
| 1234567891011121314151617 | Función Number_of_Words (Text_String como cadena) como entero'La función cuenta el número de palabras en una cadena'mirando cada carácter y viendo si es un espacio o noNúmero_de_palabras = 0Dim String_Length como enteroAtenuar Current_Character como enteroString_Length = Len (Text_String)Para Current_Character = 1 a String_LengthIf (Mid (Text_String, Current_Character, 1)) = "" EntoncesNúmero_de_palabras = Número_de_palabras + 1Terminara siSiguiente Current_CharacterFunción final |
Vale la pena señalar un par de puntos:
• Este código debe insertarse en un módulo de libro de trabajo: desde el panel de VBA, haga clic en Insertar y luego en el módulo
• La función se puede llamar desde una celda de un libro de Excel, ya sea con un texto explícito o una referencia de celda como argumento:
A3 = Número_de_palabras ("Cerdo Perro Gato")
A4 = Número_de_palabras (D1)
La función funciona atravesando la longitud de una cadena y viendo si el siguiente carácter es un espacio y, de ser así, agrega uno al número de espacios en la cadena.
