Excel Avanzado

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

Excel Avanzado
mix

Calendario 2017 Ecuador

| 0 comments

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.

Captura de pantalla 2016-09-03 a las 12.24.35

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.

feriado

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

sin nada

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.

sab y dom

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.

sin nada

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

mix

Descargar Calendario 2017 en Excel: Calendario 2017 Ecuador

Segundo ejemplo de un Calendario 2017 Ecuatoriano:  Calendario Ecuador 2017

Deja un comentario

Required fields are marked *.


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