A continuación vamos a ver un programa en Excel VBA que convierte el texto en caso apropiado. Es decir, la primera letra de cada palabra en mayúscula, y todas las demás letras en minúsculas.

Situación:

Convert to Proper Case in Excel VBA

  1. En primer lugar, declaramos dos objetos Range. Llamamos a la gama de objetos RNG y celular.

Dim rng As Range, cell As Range

  1. inicializar el generador de números aleatorios objeto Range con el rango seleccionado.

Set rng = Selection

  1. Queremos comprobar cada celda de un rango seleccionado al azar (de este intervalo puede ser de cualquier tamaño). En Excel VBA, puede utilizar el siguiente bucle For Each para esto. Añadir las siguientes líneas de código:

For Each cell In rng

Next cell

Nota: RNG y la célula se eligen al azar aquí, se puede usar cualquier nombre.

Recuerde hacer referencia a estos nombres en el resto de su código.

  1. Para ignorar una celda que contiene una fórmula, agregue la línea de código siguiente para cada uno y entre siguiente (sólo si cell.HasFormula es falso que sigue).

If Not cell.HasFormula Then

End If

  1. A continuación, queremos convertir cada palabra en este rango de ‘caso adecuado’.

Puede utilizar la función de hoja adecuada para esta tarea. Agregue la siguiente línea de código en su sentencia if.

cell.Value = WorksheetFunction.Proper(cell.Value)

Prueba 6. el programa.

Resultado:

Convert to Proper Case Result