Convierta al caso apropiado en Excel VBA

Buenos días, me llamo Miguel y hoy os traigo un nuevo post.

A continuación veremos un programa en Excel VBA ese convierte el texto a 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.

Localización:

Convierta al caso apropiado en Excel VBA

1. Primero, declaramos dos objetos Range. Llamamos a los objetos Range rng y cell.

Oscuro rng Cómo Alcanzar eso Cómo Alcance

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

Colocar 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 For each next loop para esto. Agregue las siguientes líneas de código:

Para Cada ese En rng

Entonces ese

Nota: rng y cell se eligen al azar aquí, puede usar cualquier nombre. Recuerde verificar 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 la siguiente (solo si cell.HasFormula es falso, continuamos).

No. celda Tiene fórmula Entonces

Aleta

5. A continuación, queremos convertir cada palabra en este rango en "caso apropiado". Puede utilizar la función de hoja de trabajo apropiada para esta tarea. Agregue la siguiente línea de código en la instrucción if.

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

6. Pruebe el programa.

Resultado:

Convertir en resultado de caso apropiado

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Subir

Esta página utiliza Cookies. Más info