02-09-17, 18:21
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Κώδικας: Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Sh1.Range("g18:h18")) Is Nothing Then
Exit Sub
ElseIf Not Intersect(Target, Sh1.Range("g18")) Is Nothing Then
Sh1.Range("g23").NumberFormat = "hh:mm"
Sh1.Range("g23").Value = Time
ElseIf Not Intersect(Target, Sh1.Range("h18")) Is Nothing Then
Sh1.Range("h23").NumberFormat = "hh:mm"
Sh1.Range("h23").Value = Time
End If
End Sub
|