A continuación veremos un programa en Excel VBA que convierte el texto en el caso propio . Es decir, la primera letra de cada palabra en mayúsculas, y todas las demás letras en minúsculas.
Situación:
1. Primero, declaramos dos objetos de rango. Llamamos a los objetos Range rng y cell.
Dim rng As Range, cell As Range
2. Inicializamos el objeto Range rng con el rango seleccionado.
Set rng = Selección
3. Queremos comprobar cada célula en un rango seleccionado al azar (este rango puede ser de cualquier tamaño). En Excel VBA, puedes usar el bucle For Each Next para esto. Añade las siguientes líneas de código:
Para cada célula en el rng La siguiente celda
Nota: el rng y la celda son elegidos al azar aquí, puedes usar cualquier nombre. Recuerda referirte a estos nombres en el resto de tu código.
4. Para ignorar una celda que contiene una fórmula, añade la siguiente línea de código entre Para cada uno y Siguiente (sólo si la celda.HasFormula es falsa continuamos).
Si no es una célula, tiene una fórmula, entonces… Finalizar si
5. A continuación, queremos convertir cada palabra de este rango en «caso apropiado». Puedes usar la función de la hoja de trabajo «Caso apropiado» para esta tarea. Añada la siguiente línea de código en su declaración if.
celda.Valor = Hoja de trabajoFunción.Propia(celda.Valor)
6. Pruebe el programa.
Resultado:
