Calendario 2017 Venezuela

En el siguiente ejemplo del Calendario 2017 -  Venezuela se puede marcar los días festivos, los sábados y domingos y luego se puede restablecer el formato original.

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

Descargar: Calendario 2017 Venezuela
Para facilitar este ejercicio se puede recurrir al grabador de macros.Además para presentar los fechas festivas, marcar los días sábados y domingos nos ayudaremos de los CommandButton1. A continuación se mostrará los días festivos para Venezuela

(Para mayor visualización de la imagen, hacer click en la misma)
Este primer macro lo utilizaremos para marcar las fechas festivas, en nuestro caso contamos con 15fechas y lo único que se modificará será el range("..."), dependiendo la celda que se indique.Vamos a describir las macros que utilizaremos para obtener el formato del ejemplo del calendario de Venezuela 2017.

Private Sub CommandButton1_Click()
ActiveSheet.Range("B4").Select
With Selection.Font
.Name = "COMIC SANS"
.FontStyle = "Bold Italic"
.Size = 16
.Underline = xlSingle
.ColorIndex = 11
End With

Para señalar los días sábado y domingo se utilizará el siguiente macro:

Range("H4:H7").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 26367
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Igualmente lo que varía sería el range.

Posteriormente para eliminar los macros anteriores nos apoyaremos de la siguiente macro:

Private Sub CommandButton3_Click()
Range("H4:H8").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Y en este mismo macro se le añadirá lo siguiente:

Range("B8").Select
Selection.Font.Underline = xlUnderlineStyleNone
Selection.Font.Italic = False
Selection.Font.Bold = False
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With

*En este caso utilizamos un auto forma ,en este caso solo se inserta la auto forma> clic derecho> asignar macro y se transcribe la macro anterior.

Se hace esto con el fin de que se borre lo anterior tanto las fechas festivas como los sábados y domingos marcados.

-Para personalizar nuestro calendario podemos agregarle un formato a los meses, cambiarle la fuente del nombre de los meses.

Formato de meses:

Sub formato_meses()

' formato_meses Macro
'Range("B3:H8").Select
Selection.Style = "Salida"
'

Calendario 2017 Venezuela