Estructura With–End With

 

En algunas ocasiones se tienen objetos sobre los cuales se aplican múltiples acciones tal y como el que se muestra a continuación:

Se crea un objeto Selection, que corresponde al rango de celdas B1:E5. A este rango se limpia y se le asigna formato negrita e itálica.

Range(“B1:E5”).Select

Selection.Clear

Selection.Locked = False

Selection.FormulaHidden = False

Selection.Font.Bold = True

Selection.Font.Italic = True

Como se observa hay cinco líneas de código que empiezan con el objeto Selection, que se refiere al rango B1:E5.

Esto puede ser modificado utilizando la estructura With – End With y evitar la repetición del objeto. En cada línea de código que comienza con un punto VBA lo evalúa como el mismo rango ya definido con With, de esta forma el rango debe ser definido una sola vez.

With Range(“B1:E5”)

.Clear

.Locked = False

. FormulaHidden = False

. Font.Bold = True

. Font.Italic = True

End With

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s