A continuación, veremos un programa en Excel VBA que convierte 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.

Dim rng As Range, cell As Range

2. Inicializamos el objeto Range rng con el rango seleccionado.

Set rng = Selection

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:

For Each cell In rng

Next cell

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).

If Not cell.HasFormula Then

End If

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:

4/5 Completado! Obtenga más información sobre la manipulación de cadenas>
Siguiente capítulo: fecha y hora