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:
- 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 adjunto: Calendario de Camerún 2018