Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error GoTo xErr: Application.EnableEvents = False Worksheets(1).Range("A1").Value = Now() xErr: Application.EnableEvents = True End Sub
Užitočné (1) | 2009 |
excel - zobrazenie dátumu poslednej zmeny dokumentu v bunke A1