Word
Excel
PowerPoint
Access
Outlook
ECDL
Poradna - Datum v tabulce
Vložení příspěvkuhlavní kategorie | zpět | + odpovědět na toto téma
| Datum v tabulce - diskuze na toto téma |
| Dobrý den, potřebuju do tabulky v Exelu zadat pole kde by se mělo po otevření souboru zobrazovat datum poslední úpravy. Je na toto nějaký vzorec nebo to musím vždy zadat ručně. Děkuji za info :-) Tohle jsem už také řešil a bohužel nevyřešil. Nejjednodušší varianta, která mi jen zrychluje vložení data je klávesová zkratka CTRL + Q Odpověď Zkus použít toto makro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = "1" Then
With Cells(Target.Row, Target.Column + 1)
.Value = Now()
.EntireColumn.AutoFit
End With
End If
End Sub
V sloupci "A" něco napiš a v "B" ti naskočí datum i s časem, nezapomeň na formát. Odpověď mne to nefungovalo tak som to trochu upravil:
Private Sub Worksheet_Change(ByVal Target As Range) /*
If Target.Column = "1" Then /*
Dim cas As Variant /*
cas = DateTime.Now /*
Cells(Target.Row, Target.Column + 1).Value = Format(cas, "General Date") /*
Cells(Target.Row, Target.Column + 1).EntireColumn.AutoFit /*
End If /*
End Sub /* Odpověď |
