Calendario de Estados Unidos 2017 en Excel
(Para mayor visualización de la imagen, hacer click en la misma)
Descargar Calendario 2017 Estados Unidos --> Calendario 2017 Estados Unidos
Este trabajo se realizó utilizando Microsoft Excel y representa al calendario de Estados Unidos el año 2017, para su realización se utilizo el grabador de macros, luego de ello se fue modificando el código obtenido y asignado a botones de comando con los cuales se puede saber los días feriados del 2017, se puede resaltar los fines de semana y restablecer los formatos del calendario.
Programa empleado para el Calendario 2017 de Estados Unidos
Los códigos agregados a cada botón son los siguientes:
1.- Par mostrar los días feriados:
Código para resaltar los días feriados del calendario:
Range("h5,b16,j8,h16,j18,c24,r24,b34,n33,m35,r36").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.Font.Bold = True
Selection.Font.Size = 13
2.- Restablecer o quitar los días feriados:
Código para restablecer los formatos de los días feriados del calendario:
Range("h5,b16,j8,h16,j18,c24,r24,b34,n33,m35,r36").Select
With Selection.Font
.Size = 11
.ThemeFont = xlThemeFontMinor
End With
Selection.Font.Bold = False
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
3.- Para mostrar los fines de semana:
Código para mostrar los fines de semana del calendario:
Range("G5:G10,o5:o10,w5:w10,g23:g28,o23:o28,w23:w28,g14:g18,o14:o18,w14:w18,g32:g37,o32:o37,w32:w37").Select
With Selection.Font
.ThemeColor = xlThemeColorLight2
.TintAndShade = -0.249977111117893
End With
Selection.Font.Bold = True
Range("H5:H10,p5:p10,x5:x10,h23:h28,p23:p28,x23:x28,h14:h18,p14:p18,x14:x18,h32:h37,p32:p37,x32:x37").Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.Font.Bold = True
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:
Range("G5:G10,o5:o10,w5:w10,g23:g28,o23:o28,w23:w28,g14:g18,o14:o18,w14:w18,g32:g37,o32:o37,w32:w37").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Selection.Font.Bold = False
Range("H5:H10,p5:p10,x5:x10,h23:h28,p23:p28,x23:x28,h14:h18,p14:p18,x14:x18,h32:h37,p32:p37,x32:x37").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Selection.Font.Bold = False
Para la creación de este calendario fue necesario el grabador de macros para ayudarnos con las palabras reservadas que tiene el programa y poder utilizarlo en las macros asignadas a cada uno de los botones.
Descargar Calendario 2017 Estados Unidos --> Calendario 2017 Estados Unidos