Descargar Calendario 2017 en Excel: Calendario 2017 Ecuador
Segundo ejemplo de un Calendario 2017 Ecuatoriano: Calendario Ecuador 2017
En este ejemplo se realizó un Calendario 2017 para Ecuador en el Excel, en el que primero se inserta los botones de comandos (4) que se encuentran en la pestaña desarrollador --> Controles, luego haciendo doble click en ellos nos llevará a VBA.
Dónde se crearon comandos para las siguientes funciones:
– Mostrar feriados: en donde se sombreará a los días en los que son feriados y se le cambiará en color y tipo de letra.
(Para mayor visualización de la imagen, hacer click en la misma)
Para la realización se usará el siguiente lenguaje de programación:
Private Sub CommandButton1_Click() Range("k9,n13,i21,m19,o22,p30,i41,p39,q39,u43").Select
Selection.Interior.Color = RGB(255, 167, 167)
Selection.Font.Color = RGB(255, 255, 255)
Selection.Font.Name = "cooper std black"
Range("a1").Select
End Sub
– No mostrar feriados: en donde se desactivará la función de mostrar feriados
(Para mayor visualización de la imagen, hacer click en la misma)
Para la realización de ello se empleó el siguiente código:
Private Sub CommandButton2_Click() Range("k9,n13,i21,m19,o22,p30,i41,p39,q39,u43").Select Selection.Interior.Color = RGB(255, 255, 255)
Selection.Font.Color = RGB(0, 0, 0)
Selection.Font.Name = "Calibri"
Range("A1").Select
End Sub
– Diferenciar sábados y domingos: en donde se pondrá de un color y tipo de letra a los días sábados y domingos para diferenciarlos.
(Para mayor visualización de la imagen, hacer click en la misma)
Para la realización se usó lo siguiente:
Private Sub CommandButton3_Click() Range("j10:j13,j19:j23,j29:j33,j40:j43,r9:r12,r19:r22,r29:r32,r39:r42,z9:z12,z19:z22,z29:z33,z39:z43").Select
With Selection.Font
.Name = "cooper std black"
.Color = RGB(228, 90, 221)
.Bold = True
End With
Range("k9:k13,k19:k23,k29:k33,k39:k43,s9:s12,s19:s22,s29:s32,s39:s42,aa9:aa12,aa19:aa22,aa29:aa32,aa39:aa43").Select
With Selection.Font
.Name = "arial black"
.Color = RGB(97, 97, 221)
.Bold = True
End With
Range("A1").Select
End Sub
– Mostrar semana: donde se desactivará toda función ya antes mencionada y solo se mostrará el calendario tal y como tal.
(Para mayor visualización de la imagen, hacer click en la misma)
Para ello se empleó la siguiente macro:
Private Sub CommandButton5_Click() Range("j10:j13,j19:j23,j29:j33,j40:j43,r9:r12,r19:r22,r29:r32,r39:r42,z9:z12,z19:z22,z29:z33,z39:z43").Select
With Selection.Font
.Name = "Calibri" .Color = RGB(0, 0, 0)
.Bold = False
End With
Range("k9:k13,k19:k23,k29:k33,k39:k43,s9:s12,s19:s22,s29:s32,s39:s42,aa9:aa12,aa19:aa22,aa29:aa32,aa39:aa43").Select
With Selection.Font
.Name = "Calibri"
.Color = RGB(0, 0, 0)
.Bold = False
End With
Range("A1").Select
End Sub
Así mismo se pueden mezclar para ver los feriados junto con los sábados y domingos
(Para mayor visualización de la imagen, hacer click en la misma)
Descargar Calendario 2017 en Excel: Calendario 2017 Ecuador
Segundo ejemplo de un Calendario 2017 Ecuatoriano: Calendario Ecuador 2017