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, 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, Calendario 2017 Estados Unidos

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, Calendario 2017 Estados Unidos

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, Calendario 2017 Estados Unidos

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, Calendario 2017 Estados Unidos

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 *.