A continuación, veremos un programa en Excel VBA ese convierte el texto en mayúsculas y minúsculas. 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 Range. Llamamos a los objetos Range rng y cell.
Atenuar como rango, celda como rango
2. Inicializamos el objeto Range rng con el rango seleccionado.
Establecer rng = Selección
3. Queremos comprobar cada celda en un rango seleccionado al azar (este rango puede ser de cualquier tamaño). En Excel VBA, puede usar el ciclo For Each Next para esto. Agregue las siguientes líneas de código:
Para cada celda en rng
Siguiente celda
Nota: rng y cell se eligen al azar aquí, puede usar cualquier nombre. Recuerde hacer referencia a estos nombres en el resto de su código.
4. Para ignorar una celda que contiene una fórmula, agregue la siguiente línea de código entre For Each y Next (solo si cell.HasFormula es falso, continuamos).
Si no es cell.HasFormula, entonces
Terminara si
5. A continuación, queremos convertir cada palabra en este rango en 'caso apropiado'. Puede utilizar la función de hoja de trabajo adecuada para esta tarea. Agregue la siguiente línea de código en su declaración if.
cell.Value = WorksheetFunction.Proper (cell.Value)
6. Pruebe el programa.
Resultado:
