02-09-17, 11:30
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού 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
| |
Καλημέρα
Μπορούμε να έχουμε, μια time stamp, με vba.
Ο κώδικας στο φύλλο (συμβάν Change) Κώδικας: Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Sh1.Range("g18")) Is Nothing Then
Exit Sub
Else
Sh1.Range("g23").NumberFormat = "hh:mm"
Sh1.Range("g23").Value = Time
End If
End Sub Σε κάθε αλλαγή στο κελί g18, το g23, θα εμφανίζει την ώρα αλλαγής (εισαγωγής) Σημειώσεις
1
To βιβλίο μας, σε μορφή .xlsm
2
To κωδικό όνομα του φύλλου Sh1
3
Στην γραμμή:
Sh1.Range("g23").NumberFormat = "hh:mm"
αλλάξτε το format, σε ό,τι θέλετε...
|