Moderatori: Anthony47, Flash30005
ricky53 ha scritto:Ciao,
nelle celle "A2:A400" metti la formattazione condizionale che hai messo in "A1" per far diventare "A1" rossa.
Ciao da Ricky53
=GIORNO.SETTIMANA(A1;1)>6
=GIORNO.SETTIMANA(A$1;2)>6
=GIORNO.SETTIMANA(B$1;2)>6
Flash30005 ha scritto:Nella cella A1 metti la formattazione condizionale (come formula)
- Codice: Seleziona tutto
=GIORNO.SETTIMANA(A$1;2)>6
poi copi verso il basso questa formattazione e così in B1 tenendo presente che la formula sarà
- Codice: Seleziona tutto
=GIORNO.SETTIMANA(B$1;2)>6
Il simbolo $ evita di variare la riga che rimarrà sempre A1
Ciao
P.s. nel GIORNO.SETTIMANA come tipo restituito (dopo il ; ) devi mettere il 2 e non 1 altrimenti la settimana inizia di domenica e il 7 corrisponde a sabato
Flash30005 ha scritto:Nella cella A1 metti la formattazione condizionale (come formula)
- Codice: Seleziona tutto
=GIORNO.SETTIMANA(A$1;2)>6
poi copi verso il basso questa formattazione e così in B1 tenendo presente che la formula sarà
- Codice: Seleziona tutto
=GIORNO.SETTIMANA(B$1;2)>6
Il simbolo $ evita di variare la riga che rimarrà sempre A1
Ciao
P.s. nel GIORNO.SETTIMANA come tipo restituito (dopo il ; ) devi mettere il 2 e non 1 altrimenti la settimana inizia di domenica e il 7 corrisponde a sabato
=SE(VAL.ERRORE(CERCA.VERT(E1;JA:JA;1;0));FALSO;VERO)
ricky53 ha scritto:Ciao,
quando copi la formattazione la "E1" diventa:
1. se copiata in basso "E2"
2. se copiata a destra "F1"
3. se copiata a sinistra "D1"
Stessa situazione per la colonna "JA" che, se copiata a destra, diventa "JB:JB"
Forse ti occorrono i "$" ma non avendo a disposizione la tua struttura non posso esserne sicuro.
"E1" cosa contiene?
la colonna "JA" contiene le festività?
Ciao da Ricky53
=SE(VAL.ERRORE(CERCA.VERT(E1;$JA:$JA;1;0));FALSO;VERO)
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
=Pasqua(Q1)
=Q4+1
Flash30005 ha scritto: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 formulae avrai automaticamente il giorno di Pasquetta
- Codice: Seleziona tutto
=Q4+1
Un'ultima cosa, mi sembra che manchi la festa del Santo Patrono della tua città
Ciao
Flash30005 ha scritto: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 formulae avrai automaticamente il giorno di Pasquetta
- Codice: Seleziona tutto
=Q4+1
Un'ultima cosa, mi sembra che manchi la festa del Santo Patrono della tua città
Ciao
=SE(VAL.ERRORE(CERCA.VERT($E$1;$JA:$JA;1;0));FALSO;VERO)
carlodag ha scritto:Ok Flash seguito alla lettera ho dovuto solo modificare la seguente formattazionecon questo
- Codice: Seleziona tutto
=SE(VAL.ERRORE(CERCA.VERT(E1;$JA:$JA;1;0));FALSO;VERO)
per fa si che tutte le celle selezionate usassero questa formattazione.
- Codice: Seleziona tutto
=SE(VAL.ERRORE(CERCA.VERT($E$1;$JA:$JA;1;0));FALSO;VERO)
carlodag ha scritto:Hai consigli in merito???? com'è strutturato va bene??? sai deve gestire circa 400 dipendenti.
Torna a Applicazioni Office Windows
inserisci valore in celle a seguito di condizione Autore: ucame |
Forum: Applicazioni Office Windows Risposte: 10 |
Importare immagini a seconda del testo in una cella Autore: Paolo67met |
Forum: Applicazioni Office Windows Risposte: 4 |
Codice per popolare celle con condizione Autore: ucame |
Forum: Applicazioni Office Windows Risposte: 3 |
Inserire valore di una cella in altra cella con testo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 17 |
Visitano il forum: Nessuno e 11 ospiti