Historie úprav

anonym

Odpověděl/a – 14.srpen 23:52

Klikni pravým tlačítkem myši na záložku (karta dole) ve které chceš, aby to fungovalo a z kontextového menu vyber možnost „Zobrazit kód“. Do bílého okna napravo nakopíruj tuto proceduru:

Private Sub Worksheet_Chan­ge(ByVal Target As Range)
If Target.Address = „$A$1“ Then
Cells(1, 2) = Now
End If
If Target.Address = „$A$2“ Then
Cells(2, 2) = Now
End If
End Sub
Pokud se změní hodnota v buňce A1 (A2), do buňky B1(B2) se automaticky vepíše datum a čas změny.
Chápeš to, že jo.

anonym

Odpověděl/a – 15.srpen 0:20

Klikni pravým tlačítkem myši na záložku (karta dole) ve které chceš, aby to fungovalo a z kontextového menu vyber možnost „Zobrazit kód“. Do bílého okna napravo nakopíruj tuto proceduru:

Private Sub Worksheet_Chan­ge(ByVal Target As Range)
If Target.Address = „$A$1“ Then
Cells(1, 2) = Now
End If
If Target.Address = „$A$2“ Then
Cells(2, 2) = Now
End If
End Sub
Pokud se změní hodnota v buňce A1 (A2), do buňky B1(B2) se automaticky vepíše datum a čas změny.
Chápeš to, že jo.

Doplňuji:
Nejjednodušší, ale máš jen datum, bez času.
Ještě si dej formát buněk. Klik pravým myčítkem na sloupec B a v kontextovém menu vyber „Formát buněk“, v něhlém okně – karta – číslo a v něm druh „Datum“ a vyber si jaké zobrazení chceš v pravém náhledu.

=KDYŽ(A1>0;DNES())