[Cesarz_Polski]

Siema, mam takie makro w excelu. Jak tu dodać datę, żeby oprócz czasu ona też się zmieniała?

Dim SchedRecalc As Date

Sub Recalc()

With Sheet1.Range("A1")

.Value = Format(Time, "hh:mm:ss AM/PM")

End With

Call SetTime

End Sub

Sub SetTime()

SchedRecalc = Now + TimeValue("00:00:01")

Application.OnTime SchedRecalc, "Recalc"

End Sub

Sub Disable()

On Error Resume Next

Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False

End Sub

#excel #vba #pytaniedoeksperta #pytanie

[JanKremovski]

@Cesarz_Polski: .Value = Format(Time, "dd.mm.yyyy hh:mm:ss AM/PM") dla polskiego zapisu daty. Dla amerykańskiego .Value = Format(Time, " mm.dd.yyyy hh:mm:ss AM/PM")

[Cesarz_Polski]

@JanKremovski: jak dałem tak, to mi datę pokazuje 31 stycznia 1899

Dim SchedRecalc As Date

Sub Recalc()

With Sheet1.Range("A1")

.Value = Format(Time, "dd.mm.yyyy hh:mm:ss AM/PM")

End With

Call SetTime

End Sub

Sub SetTime()

SchedRecalc = Now + TimeValue("00:00:01")

Application.OnTime SchedRecalc, "Recalc"

End Sub

Sub Disable()

On Error Resume Next

Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False

End Sub

[Cesarz_Polski]

@JanKremovski: ok, już mi śmiga. Dałem tak:

.Value = Format(Now + Time, "dd.mm.yyyy hh:mm:ss AM/PM")

[JanKremovski]

@Cesarz_Polski: Git :)