Moderatori: Anthony47, Flash30005
If Round(Foglio1.Range("m5"), 10) = Round(19 / 24 / 60, 10) Then
Eh, Excel e' piu' preciso di un cucu' svizzero1E-18, chiamarlo poco è un eufemismo!
Sub stoptimer()
On Error Resume Next
istante = Int(Now()) + Timer / 60 / 60 / 24
Foglio1.Range("o1") = istante
Application.OnTime Now + TimeValue("00:00:01"), "nexttick", , False
Foglio1.Range("m2") = Foglio1.Range("o2") + Foglio1.Range("m1") - Foglio1.Range("o1")
Foglio1.Range("o2") = Foglio1.Range("m2")
End Sub
Function CheckPenality()
DoEvents
If Round(Foglio1.Range("P11"), 10) = Round(Foglio1.Range("M5"), 10) Then
If Foglio1.Range("N15") <> "" Then
Foglio1.Range("N15:O15").Cut Destination:=Foglio1.Range("N11:O11")
Foglio1.Range("P11") = Foglio1.Range("P11") + Foglio1.Range("O11") / 24 / 60
GoTo prossimo1
End If
If Foglio1.Range("N16") <> "" Then
Foglio1.Range("N16:O16").Cut Destination:=Foglio1.Range("N11:O11")
Foglio1.Range("P11") = Foglio1.Range("P11") + Foglio1.Range("O11") / 24 / 60
End If
End If
prossimo1:
If Round(Foglio1.Range("P12"), 10) = Round(Foglio1.Range("M5"), 10) Then
If Foglio1.Range("N15") <> "" Then
Foglio1.Range("N15:O15").Cut Destination:=Foglio1.Range("N12:O12")
Foglio1.Range("P12") = Foglio1.Range("P12") + Foglio1.Range("O12") / 24 / 60
GoTo prossimo2
End If
If Foglio1.Range("N16") <> "" Then
Foglio1.Range("N16:O16").Cut Destination:=Foglio1.Range("N12:O12")
Foglio1.Range("P12") = Foglio1.Range("P12") + Foglio1.Range("O12") / 24 / 60
End If
End If
prossimo2:
If Round(Foglio1.Range("V11"), 10) = Round(Foglio1.Range("M5"), 10) Then
If Foglio1.Range("T15") <> "" Then
Foglio1.Range("T15:U15").Cut Destination:=Foglio1.Range("T11:U11")
Foglio1.Range("V11") = Foglio1.Range("V11") + Foglio1.Range("O11") / 24 / 60
GoTo prossimo3
End If
If Foglio1.Range("T16") <> "" Then
Foglio1.Range("T16:U16").Cut Destination:=Foglio1.Range("T11:U11")
Foglio1.Range("V11") = Foglio1.Range("V11") + Foglio1.Range("O11") / 24 / 60
End If
End If
prossimo3:
If Round(Foglio1.Range("V12"), 10) = Round(Foglio1.Range("M5"), 10) Then
If Foglio1.Range("T15") <> "" Then
Foglio1.Range("T15:U15").Cut Destination:=Foglio1.Range("T12:U12")
Foglio1.Range("V12") = Foglio1.Range("V12") + Foglio1.Range("O12") / 24 / 60
GoTo prossimo2
End If
If Foglio1.Range("T16") <> "" Then
Foglio1.Range("T16:U16").Cut Destination:=Foglio1.Range("T12:U12")
Foglio1.Range("V12") = Foglio1.Range("V12") + Foglio1.Range("O12") / 24 / 60
End If
End If
End Function
Foglio1.Range("N11:O11").Value = Foglio1.Range("N15:O15").Value
Foglio1.Range("N15:O15").ClearContents
If Foglio1.Range("N15") <> "" Then
Foglio1.Range("N11:O11").Value = Foglio1.Range("N15:O15").Value
Foglio1.Range("N15:O15").ClearContents
Foglio1.Range("P11") = Foglio1.Range("P11") + Foglio1.Range("O11") / 24 / 60
EsleIf Foglio1.Range("N16") <> "" Then
Foglio1.Range("N11:O11").Value = Foglio1.Range("N16:O16").Value
Foglio1.Range("N16:O16").ClearContents
Foglio1.Range("P11") = Foglio1.Range("P11") + Foglio1.Range("O11") / 24 / 60
End If
Torna a Applicazioni Office Windows
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 7 |
[EXCEL] controllo corrispondenza tra valori con un vincolo Autore: sbs |
Forum: Applicazioni Office Windows Risposte: 9 |
Visitano il forum: Nessuno e 17 ospiti