Časovno spreminjanje vrednosti v celicah

[LOGITECH]

Nimam ideje, kako bi naredil, da bi se npr. v celici A1 vrednost spreminjala v odvisnosti od pretečenega časa. Torej, da se vrednost v celici A1 povečuje vsako sekundo za 5.
(Stroj dela s tempom 5 kosov/s. Torej v 10 sekundah bo vrednost v celici A1 = 50)

Prosim, če mi lahko pomagate.

[kljuka13]

VBA - makro.

Koda: Izberi vse

Sub povecaj()
Cells(1, 1).Value = Cells(1, 1).Value + 1
Application.Wait Now + TimeValue("00:00:05")
Call povecaj
End Sub

Kodo ustavite s Ctrl+Shift+Pause/Break

To je ena možnost. Druga bi bila, da bi v celico B1 zapisali začetni čas in potem vsake toliko časa pognali makro. Ta bi preračunal pretekle sekunde, delil s 5 ter število vpisal v celico A1.

[LOGITECH]

Hvala za odgovor. Deluje.
Smem vprašati še, če je mogoče makro izpeljati na način, da bi lahko še ostalo običajno delal v Excelu.

[kljuka13]

Makro je malce spremenjen in sicer v prvotnem smislu so utripale celice sedaj pa se povečuje številka.

Koda: Izberi vse

Const DolzinaUtripa As Double = 5

Dim NaslednjiZagon

Sub Utripaj()
Cells(1, 1).Value = Cells(1, 1).Value + 1

NaslednjiZagon = Now + TimeSerial(0, 0, DolzinaUtripa)
Application.OnTime NaslednjiZagon, "Utripaj"
End Sub

Sub UstaviUtripanje()
Application.OnTime NaslednjiZagon, "Utripaj", schedule:=False
End Sub

Poženite makro Utripaj() za začetek prištevanja in UstaviUtripanje() za končanje prištevanja.

Pojavi se pa problem, da ko urejate katerokoli celico se makro ne izvede !!!