Ir al contenido principal

Seminario Macros Excel Gratuito 14 Entrega (Estructuras de programación o control 2ª parte)

Seguimos con las estructuras de control ya que el capitulo anterior era bastante extenso en el que vimos las diferentes formas de usar If's y la estructura Select Case así como el anidamiento.

Estructura End … End With

Esta estructura se usa casi siempre para no tener que repetir tantas veces el nombre de objetos cuando hacemos referencia a sus propiedades y así simplificamos su código.

La estructura tiene el siguiente aspecto:

With objeto
   . instrucciones
   …..
End With

Veamos un ejemplo:
Queremos que las lineas 1 a 3 de nuestra hoja tengan el texto en negrita de tipo Comic Sans MS, tamaño de letra 14 puntos, color de letra rojo

Si no usáramos esto las ordenes serían:

Sub Procedimiento()
  Range("1:3").Font.bold= True
  Range("1:3").Font.Name="Comic Sans MS"
  Range("1:3").Font.Size=14
  Range("1:3").Font.Color = vbRed
End Sub

Pero si usamos el With podemos hacer lo siguiente:

Sub Procedimiento2()
   With Range("1:3").Font
       .Bold = True
       .Name="Comic Sans MS"
       .Size = 14
       .Color = vbRed
   End With
End Sub

Como se ve en la estructura With primero ponemos el objeto, y luego dentro de la estructura cada elemento comienza por un punto y así no hay que repetir tantas veces el nombre del objeto.

A veces el nombre del objeto al que nos referimos es muy largo y con esto nos reduce bastante nuestro código.


Seguimos con los bucles en la próxima entrega..

Comentarios

Entradas populares de este blog

Chrome: desactivar la opción “Abrir siempre archivos de este tipo”

En Chrome, al descargar un archivo aparecen tres opciones en el desplegable de la barra de descargas:

Pérdida de móvil

En estos días de tanto viaje en medios de transporte variados, puede ser fácil perder nuestro teléfono móvil.

Combinar Correspondencia con varias cuentas en Outlook

A veces necesitamos realizar un mailing (Combinar correspondencia) y disponemos de varias cuentas de correo en nuestro Outlook. Comprobamos que no funciona el elegir una de ellas como predeterminada ya que para el envío por correspondencia usa un servicio llamado MAPI que no usa la cuenta predeterminada.  Antiguamente en versiones como la 2010 de office simplemente con cambiar el fichero de datos predeterminado de la cuenta bastaba para ello. Actualmente (nosotros usamos 365, equivalente a la 2016) la solución pasa por crear un perfil de correo en el que configuremos la cuenta que usaremos para combinar correspondencia. Adjuntamos un video en el que se explica en Windows 10 como crear un perfil de correo de una cuenta. Una vez creado ese perfil de Correo pasaríamos a realizar la combinación de Correspondencia y en el último paso cuando  realizamos la combinación de correspondencia nos solicitará el perfil a usar para poder enviar los correos y en ese caso elegiríamos el perfil asociado