Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Calendario Uruguay 2018

| 0 comments

Calendario Uruguay 2018

Calendario Uruguay 2018

Las fechas festivas del calendario uruguayo son las que se muestran en la imagen posterior.

Sin título

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

Lo primero que se va a hacer es buscar, en internet, un calendario de Uruguay del 2018 y pasarlo a un archivo de excel. Luego, en la parte superior del archivo de Excel, seleccionar la ficha “Desarrollador” (excel 2013), sino “Programador” (excel 2010) y dirigirse al botón “Insertar, el cual desplegará algunos controles. Los que vamos a necesitar son los “controles ActiveX”, específicamente, el botón de comando (4 botones para cada función). Una vez seleccionado se da click en cualquier parte de la hoja y se creará el botón. Después de ello, para cambiarle el nombre al botón, se da doble click para abrir una ventana de propiedades, en donde sí se puede hacer este cambio. En “caption” se escribió “Marcar Fechas Festivas” y así se mostrará en el botón de la hoja activa.

 

Sin título

 

Lo mismo con los 3 botones restantes.

Si se desea agrandar el botón o hacer otro cambio, lo que se debe hacer es dar click al botón y dirigirse, en la parte superior, a la ficha “Desarrollador” y dar click a “Modo Diseño” para agrandarlo, achicarlo o hacer lo que se desee.

Los códigos agregados a cada botón son los siguientes:

1.- Para mostrar las fechas festivas:

Sin título

Código para resaltar los días feriados del calendario:

With ActiveSheet.Range(“B3,G3,B13,C13,E23,F23,H27,B31,C35,B38,C46,D54,G62,B77,F83,C95”)

.Font.Color = RGB(255, 0, 0)

End With

2.- Para limpiar las fechas festivas:

Sin título

 

 

Código para restablecer los formatos de los días feriados del calendario:

ActiveSheet.Range(“B3,G3,B13,C13,E23,F23,H27,B31,C35,B38,C46,D54,G62,B77,F83,C95”).ClearFormats

 

3.- Para mostrar los fines de semana:

Sin título

Código para mostrar los fines de semana del calendario:

 

With ActiveSheet.Range(“G3:H6,G11:H14,G19:H22,G23,H27,G28:H31,G35:H38,G43:H46,G47,H51,G52:H55,G59:H62,G67:H71,G75:H78,G83:H86,G91:H95”)
.Font.Color = RGB(128, 0, 128)
.Font.Size = 20
End With

 

4.- Restablecer o quitar los formatos de los días de semana:

Sin título

Código para restablecer los formatos de los fines de semana del calendario:

ActiveSheet.Range(“G3:H6,G11:H14,G19:H22,G23,H27,G28:H31,G35:H38,G43:H46,G47,H51,G52:H55,G59:H62,G67:H71,G75:H78,G83:H86,G91:H95”).ClearFormats

 

Una vez finalizada la creación de los respectivos códigos, se puede dar click para probar cada uno de los botones, obteniendo lo que cada uno de ellos muestra.

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5