Excel Avanzado

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

Excel Avanzado

Calendario 2018 Camerún

| 0 comments

Se utilizó el grabador de macros como ayuda para formular los códigos necesarios aplicados en el calendario de Camerún del 2018.

Se tiene las siguientes fechas festivas en este país:

Día Mes Celebración
1 Enero Año Nuevo
11 Enero Día de la juventud
14 Febrero Dia de San valentín
19 Febrero Ascensión del Monte Cameroun
27 Febrero Lunes de carnaval
8 Marzo Dia de la mujer
12 Marzo Tour de camerun
25 Marzo Dia Nacional Griego
13 Abril Viernes Santo
20 Mayo Día internacional de los trabajadores
28 Mayo Día nacional
25 Junio Fin del ramadán
15 Agosto Asunción de María
31 Agosto Tabaski
25 Diciembre Navidad

Se realizo lo siguiente:

  1. Resaltar todas las fechas festivas

Añadir un Command Button e ingresar lo siguiente:
Range(“d6,g7,c14,f14,d15,e16,g19,d20,c22,h25,e30,c33,d34,d40,f50,h52,e77”).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.Color = -18935960
.TintAndShade = 0
End With
Selection.Font.Bold = True
Selection.Font.Size = 13
End Sub

2. Limpiar todas las fechas festivas

Añadir un Command Button e ingresar lo siguiente:

Range(“d6,g7,c14,f14,d15,e16,g19,d20,c22,h25,e30,c33,d34,d40,f50,h52,e77”).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
End Sub

3. Resaltar sábados y domingos con un formato distinto

Añadir un Command button e ingresar lo siguiente:

Range(“i6:i9,c7:c10,c13:c16,i12:i15,c19:c22,i18:i22,c24:c28,i24:i27,c31:c34,i30:i33,c37:c40,i36:i40,c42:c46,i42:i45,c49:c52,i48:i51,c55:c59,i54:i58,c62:c65,i61:i64,c68:c71,i67:i70,c74:c78,i73:i77”).Select
With Selection.Font
.ThemeColor = xlThemeColorLight2
.TintAndShade = -0.249977111117893
End With
Selection.Font.Bold = True
Range(“i6:i9,c7:c10,c13:c16,i12:i15,c19:c22,i18:i22,c24:c28,i24:i27,c31:c34,i30:i33,c37:c40,i36:i40,c42:c46,i42:i45,c49:c52,i48:i51,c55:c59,i54:i58,c62:c65,i61:i64,c68:c71,i67:i70,c74:c78,i73:i77”).Select
With Selection.Font
.Color = -14773831
.TintAndShade = 0
End With
Selection.Font.Bold = True
End Sub

4. Restablecer los formatos de sábados y domingos

Añadir un Command Button e ingresar lo siguiente:

Range(“i6:i9,c7:c10,c13:c16,i12:i15,c19:c22,i18:i22,c24:c28,i24:i27,c31:c34,i30:i33,c37:c40,i36:i40,c42:c46,i42:i45,c49:c52,i48:i51,c55:c59,i54:i58,c62:c65,i61:i64,c68:c71,i67:i70,c74:c78,i73:i77”).Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Selection.Font.Bold = False
Range(“i6:i9,c7:c10,c13:c16,i12:i15,c19:c22,i18:i22,c24:c28,i24:i27,c31:c34,i30:i33,c37:c40,i36:i40,c42:c46,i42:i45,c49:c52,i48:i51,c55:c59,i54:i58,c62:c65,i61:i64,c68:c71,i67:i70,c74:c78,i73:i77”).Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Selection.Font.Bold = False
End Sub

Archivo adjuntoCalendario de Camerún 2018

Deja un comentario

Required fields are marked *.


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