Moderatori: Anthony47, Flash30005
[L’estensione zip è stata disattivata e non puó essere visualizzata.]
[L’estensione zip è stata disattivata e non puó essere visualizzata.]
=MATR.SOMMA.PRODOTTO(--(GIORNO.SETTIMANA(B2+RIF.RIGA(INDIRETTO("1:"&B3-B2+1))-1;2)<6);--VAL.ERRORE(CONFRONTA(B2+RIF.RIGA(INDIRETTO("1:"&B3-B2+1))-1;Z:Z;0)))
=MATR.SOMMA.PRODOTTO(--(GIORNO.SETTIMANA(B2+RIF.RIGA(INDIRETTO("1:"&B3-B2+1))-1;2)=6);--VAL.ERRORE(CONFRONTA(B2+RIF.RIGA(INDIRETTO("1:"&B3-B2+1))-1;Z:Z;0)))
=MATR.SOMMA.PRODOTTO(--(GIORNO.SETTIMANA(B2+RIF.RIGA(INDIRETTO("1:"&B3-B2+1))-1;2)<6);--VAL.ERRORE(CONFRONTA(B2+RIF.RIGA(INDIRETTO("1:"&B3-B2+1))-1;Z:Z;0)))*720+MATR.SOMMA.PRODOTTO(--(GIORNO.SETTIMANA(B2+RIF.RIGA(INDIRETTO("1:"&B3-B2+1))-1;2)=6);--VAL.ERRORE(CONFRONTA(B2+RIF.RIGA(INDIRETTO("1:"&B3-B2+1))-1;Z:Z;0)))*360
=MATR.SOMMA.PRODOTTO(--(GIORNO.SETTIMANA(INT(B2)+RIF.RIGA(INDIRETTO("1:"&INT(B3)-INT(B2)+1))-1;2)<6);--VAL.ERRORE(CONFRONTA(INT(B2)+RIF.RIGA(INDIRETTO("1:"&INT(B3)-INT(B2)+1))-1;Z:Z;0)))*720+MATR.SOMMA.PRODOTTO(--(GIORNO.SETTIMANA(INT(B2)+RIF.RIGA(INDIRETTO("1:"&INT(B3)-INT(B2)+1))-1;2)=6);--VAL.ERRORE(CONFRONTA(INT(B2)+RIF.RIGA(INDIRETTO("1:"&INT(B3)-INT(B2)+1))-1;Z:Z;0)))*360
...
seguendo l' altro forum vedo che dopo tante elaborazioni il problema e' ancora irrisolto.
Vediamo se noi ti portiamo piu' lontano:
...
Function Sabati_Lavorativi(Data1, Data2)
For I = Data1 To Data2
If Weekday(I, vbMonday) = 6 Then
Sabati = Sabati + 1
End If
Next I
Sabati_Lavorativi = Sabati - Sabati_Festivi(Data1, Data2)
End Function
Function Sabati_Festivi(Data1, Data2)
Riga = Range("Z65536").End(xlUp).Row
For I = 1 To Riga
If Weekday(Cells(I, 26), vbMonday) = 6 And Cells(I, 26) >= Data1 And Cells(I, 26) <= Data2 Then
Sabati_Festivi = Sabati_Festivi + 1
End If
Next I
End Function
=GIORNI.LAVORATIVI.TOT($A$1;$B$1;$Z$1:$ZF$..) + Sabati_Lavorativi(A1; B1)
=GIORNI.LAVORATIVI.TOT($A$1;$B$1;$F$1:$F$12)*720 + Sabati_Lavorativi(A1; B1)*360
=GIORNI.LAVORATIVI.TOT($A$1;$B$1;$Z$1:$Z$..)*720 + Sabati_Lavorativi(A1; B1)*360
-calcoli quanti giorni Lu-Ve ci sono, escludendo i festivi elencati, con la formula
- Codice: Seleziona tutto
=MATR.SOMMA.PRODOTTO(--(GIORNO.SETTIMANA(B2+RIF.RIGA(INDIRETTO("1:"&B3-B2+1))-1;2)<6);--VAL.ERRORE(CONFRONTA(B2+RIF.RIGA(INDIRETTO("1:"&B3-B2+1))-1;Z:Z;0)))
=GIORNI.LAVORATIVI.TOT(B2;B3;$Z:$Z)*720+MATR.SOMMA.PRODOTTO(--(GIORNO.SETTIMANA(INT(B2)+RIF.RIGA(INDIRETTO("1:"&INT(B3)-INT(B2)+1))-1;2)=6);--VAL.ERRORE(CONFRONTA(INT(B2)+RIF.RIGA(INDIRETTO("1:"&INT(B3)-INT(B2)+1))-1;Z:Z;0)))*360
Sub Macro1()
[A1] = Timer
'Application.ScreenUpdating = False
Range("b2").Select
For I = 1 To 1000
ActiveCell.FormulaR1C1 = "1/15/2009"
Next I
[A2] = Timer
Application.ScreenUpdating = True
End Sub
Inizio = Timer
Macro…
Fine = Timer
MsgBox "Elaborazione Terminata. Secondi impegati per l'elaborazione: " & Round(Fine - Inizio, 3)
MsgBox ("Tempo impiegato " & Int((Fine - Inizio) / 60) & " min " & (Fine - Inizio) Mod 60 & " Sec")
Torna a Applicazioni Office Windows
Date CUP Web prenotabili su foglio excel Autore: aggittoriu |
Forum: Applicazioni Office Windows Risposte: 17 |
Calcolare percentuale con il punteggio raggiunto in torneo Autore: ricky53 |
Forum: Applicazioni Office Windows Risposte: 8 |
Stimare tempo tot di lavoro e medio per data Autore: danibi60 |
Forum: Applicazioni Office Windows Risposte: 8 |
Visitano il forum: Nessuno e 41 ospiti