Moderatori: Anthony47, Flash30005
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myArea As String
'
myArea = "B:G" '<<< Le colonne dedicate agli stati
'
If Not Application.Intersect(Target, Range(myArea)) Is Nothing Then
Cancel = True
Target.Value = Now - Int(Now)
End If
End Sub
=SE(MAX(B2:G2)>0;RESTO(ADESSO();1)-MAX(B2:G2);"")
Sub oneSec()
Calculate
miofoglio = "Foglio2" '<<<Il foglio di lavoro dei doppioclick
If ThisWorkbook.Sheets(miofoglio).Range("Z1") > 0 Then
Application.OnTime Now + TimeValue("00:00:01"), "oneSec"
ThisWorkbook.Sheets(miofoglio).Range("Z1") = TimeValue("00:00:01")
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myArea As String
'
If Range("Z1") = 0 Then [Z1] = 10: Call oneSec
myArea = "B:G" '<<< Le colonne dedicate agli stati
'
If Not Application.Intersect(Target, Range(myArea)) Is Nothing Then
Cancel = True
Target.Value = Now - Int(Now)
End If
End Sub
Quando manca il tempo l'effetto e' questo...Ciao anthony,
Ti sei arreso?
miofoglio = "Foglio2" '<<<Il foglio di lavoro dei doppioclick
Mi viene da pensare quando tu mi hai chiesto di schedulare e bla bla con un modulo standard , di aver aver fatto casino in quel momento! o per esempio il nome del foglio che ho dato ,che non è "foglio 2" ma "sx-carovane-miniera", che ho cambiato dove tu mi dicevi il foglio di lavoro del doppio click; non dovevo farlo? o se si avrei dovuto cambiarlo anche nel (mio foglio)?
=SE(MAX(B3:I3)>0;RESTO(ADESSO();1)-MAX(B3:I3);"")
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 |
Visitano il forum: Nessuno e 25 ospiti