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_Change(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_Change(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())