Pedro Wave Blog Spot

Ahora propongo un Mini Calendario Bianual con días festivos automáticos en Excel que he publicado en AyudaExcel.com - CALENDARIO (De 1900 a 9999) en dos versiones:

• MiniCalendarioFestivosPW1.xls en Excel 2003 con 22 reglas de formato condicional.
• MiniCalendarioFestivosPW1.xlsx en Excel 2007 y 2010 con 6 reglas de formato condicional.

Los que tenéis instalado Excel 2003 podéis mejorar esa versión, ya que con sus limitaciones en el formato condicional es más complicado conseguir marcar los sábados y el día de hoy y no lo he intentado lo suficiente, cosa que es muy fácil en versiones posteriores de Excel.


Características de este minicalendario:

• Es bianual desde 1900 a 9999 como indica el tema.
• Es bilingue en español e inglés.
• En español la primera letra de los meses en mayúsculas.
• Los nombres de los meses y los días en múltiples idiomas cambiando la Configuración Regional de Windows.
• Comienzo de la semana en lunes (español) o en domingo (inglés).
• Listado de festivos programables o festivos automáticos para dos años.
• Cálculo automático de la Semana Santa hasta el año 2202.

En A1 se comprueba si el signo decimal es una coma (,) o un punto (.)

=IZQUIERDA(DERECHA((B2+SI(ES.PAR(B2);1;0))/2;2);1)

A2 es igual a A1 y si se escribe:
- una coma, las semanas empiezan en lunes.
- un punto, las semanas empiezan en domingo.

En A2 se genera un año aleatorio al inicio:

=ALEATORIO.ENTRE(1900;2200)

Aunque se puede cambiar por el año actual:

=AÑO(HOY())

B2 es igual a A2 y es dónde se escribe el año.

En B18 se genera el año siguiente o 1900 si es 9999:

=SI(B2<9999;B2+1;1900)

B19 es igual a B18 y se puede escribir otro año cualquiera.

En AP40 se cálcula el Domingo de Pascua de la Semana Santa para años menores que 2203 con:

=SI($B$2>2203;"";TRUNCAR(FECHA($B$2;7;-CODIGO(EXTRAE("NYdQ\JT_LWbOZeR]KU`";RESIDUO($B$2;19)+1;1)))/7)*7+8)

En AP58 lo mismo con esta fórmula más corta y muy premiada:

=SI($B$19>2203;"";MONEDA(("4/"&$B$19)/7+RESIDUO(19*RESIDUO($B$19;19)-7;30)*14%;)*7-6)

NOTA: En Excel 2010 la función EXTRAE se llama MED y la función RESIDUO se llama RESTO.

Todas las celdas en el rango de días C3:AM14 tienen el formato de celdas personalizado d;; para ocultar los días inferiores al 1-01-1900, excepto en la última semana de diciembre en el rango AE14:AM14 con formato [<2958466]d;; para ocultar los días superiores al 31-12-9999.

Lo más interesante es que este minicalendario se basa en una única fórmula en C3 para saber cuál es el primer día del mes que es lunes (español) o domingo (inglés):

=A3+1-DIASEM(A3;SI($A$2=".";1;2))

D3=A3+1 y se arrastra hacia la derecha hasta AM3.
Ya sólo basta arrastrar hacia abajo el rango C3:AM3 para construir el minicalendario de un año.

Para poder verlo los que no tengan instalado Excel 2007 o 2010 lo he publicado en mi disco virtual SkyDrive de ExcelWebApp que no permite validaciones de datos ni alineación vertical de los textos en las celdas pero se puede cambiar el año del calendario en la celda B2 e introducir festivos en la columna AP:

Mini Calendar Holidays PW1.xlsx



Download la versión Excel 2003 aquí:

MiniCalendarioFestivosPW1.xls



Os doy las gracias anticipadas por compartir vuestros comentarios sobre estos calendarios conmigo.