Ho Office 2003 che ha 250 colonne (fino alla colonna IV e non JA) comunque
usa questa formula in E1
- Codice: Seleziona tutto
=SE(VAL.ERRORE(CERCA.VERT(E1;$JA:$JA;1;0));FALSO;VERO)
e Copia Formato con icona pennello (in office 2003) sposti il cursore del mouse sulle celle che devi formattare e il riferimento colonna JA rimarrà invariato.
----------------
Festività-
Ho visto che hai fatto l'elenco delle festività nel foglio1 e foglio2 e vanno bene per le festività con date fisse ma Pasqua cambia ogni anno, quindi, se ti può interessare, esiste una funzione (presa da post precedenti) che inserirai in un modulo (copia l'intero codice che segue)
- Codice: Seleziona tutto
Function Pasqua(Anno As Integer) As Date
Dim a, b, c, d, e, M, n As Integer
Dim Giorno, Mese As Integer
Select Case Anno
' Case 1583 To 1699
' M = 22
' n = 2
' Case 1700 To 1799
' M = 23
' n = 3
' Case 1800 To 1899
' M = 23
' n = 4
Case 1900 To 2099
M = 24
n = 5
Case 2100 To 2199
M = 24
n = 6
Case 2200 To 2299
M = 25
n = 0
Case 2300 To 2399
M = 26
n = 1
Case 2400 To 2499
M = 25
n = 1
Case Else
Pasqua = False
Exit Function
End Select
a = Anno Mod 19
b = Anno Mod 4
c = Anno Mod 7
d = (19 * a + M) Mod 30
e = (2 * b + 4 * c + 6 * d + n) Mod 7
If d + e < 10 Then
Giorno = d + e + 22
Mese = 3
Else
Giorno = d + e - 9
Mese = 4
End If
If Mese = 4 And Giorno = 26 Then
Giorno = 19
ElseIf Mese = 4 And Giorno = 25 And d = 28 And a > 10 Then
Giorno = 18
End If
Pasqua = DateSerial(Anno, Mese, Giorno)
End Function
Ora nella cella Q1 (del foglio1 o foglio2) digita l'anno 2009 (invece di Festività) poi nella cella Q4 mettendo la formula
- Codice: Seleziona tutto
=Pasqua(Q1)
avrai come risultato 12 aprile (per 2009 e 23 marzo per 2008 etc)
nella cella Q5 metterai la formula
- Codice: Seleziona tutto
=Q4+1
e avrai automaticamente il giorno di Pasquetta
Un'ultima cosa, mi sembra che manchi la festa del Santo Patrono della tua città
Ciao
Registrazione
