Calendario Uruguay 2018
Las fechas festivas del calendario uruguayo son las que se muestran en la imagen posterior.
(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.
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:
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:
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:
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:
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.