Ejemplo de With aplicado a dar formato a una base de datos de colegios

Ejemplo de With aplicado a dar formato a una base de datos de colegios de varios distritos de Lima

En este caso se Usa la función With para dar formato a una base de datos, tarea que todos los días un practicante tiene que realizar en su centro de trabajo, Debido a que se le asignan la tarea de diseñar una lista de colegios para que sean evaluados por autoridades, y esta lista tiene que tener un formato predeterminado.

Inicialmente la base de colegios le llega la practicante de la siguiente manera:

(Para mayor visualización de la imagen, hacer click en la misma)

Usando la Función Whit y seleccionando la primera columna y primera fila que se dará formato , se obtiene:

Sub FormatoColegios()
With Selection.Font
.Name = “Arial”
.Size = 18
.Color = 16711680
Cells.Select
Cells.EntireColumn.AutoFit
End With
End Sub

(Para mayor visualización de la imagen, hacer click en la misma)

Ejemplo de With aplicado a dar formato a una base de datos de colegios de varios distritos de Lima

Elaborado por: Verónica Ballón