EXCELer

Um calendário básico:



Em O6 - o mês

Em O7 - o ano

Em M9:
=WEEKDAY($O$6&"-"&$O$7)

Em N9:
=M9+1

Em O9:
=N9+1

O mesmo até S9.

Para mostrar o dia corrente noutra cor, como no exemplo, marca-se a tabela com os 31 algarismos correspondentes aos dias do mês:



Escolhe-se Formatar Condicionalmente:



e, no terceiro campo da condição, coloca-se a fórmula:

=DAY(TODAY())


Agora, para que os dias do mês coincidam com o mês em causa, ou seja, meses com 30 dias, meses com 31 dias e Fevereiro com 29 ou 28 dias, conforme seja ano bissexto ou comum, teremos que construir a seguinte fórmula, no exemplo, em S6:

=DAY(DATE(O7;MONTH(DATEVALUE(O6&"-"&O7))+1;0))

Por último, na célula onde deve ficar o algarismo 29, ou seja, no exemplo, em M14, colocamos a seguinte fórmula:

=IF(S6=28;"";29)

Na célula correspondente a 30:

=IF(S6<30;"";30)

E na célula correspondente a 31:

=IF(S6=31;31;"")