Excel Avanzado

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

Excel Avanzado
Logo Excel Avanzado

Calendario 2017 Estados Unidos

| Sin comentarios

Calendario de Estados Unidos 2017 en Excel

Calendario 2017 Estados Unidos

(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:

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:

quitar feriado

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:

Mostrar sab y dom

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:

quitar sab y dom

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

Deja una respuesta

Los campos requeridos estan marcados con *.