Mitenkä saan tehtyä laskurin, joka tietyn ehdon täytyttyä alkaa laskea sekunteja?
Elikkä jos esim soluun E1 tulee tulokseksi 1, niin silloin solussa F1 alkaa laskuri laskea nollasta ylöspäin sekunteja.
laskuri
harjottelua
2
90
Vastaukset
ko. taulukon moduuliin...
Option Explicit
Private Sub Worksheet_Calculate()
If Range("E1") = 1 Then
Aloita
Else
Lopeta
End If
End Sub
moduuliin...
Option Explicit
Dim Ok As Boolean
Sub Aloita()
Ok = True
Application.OnTime Now() TimeValue("00:00:01"), "Ajastin"
End Sub
Sub Lopeta()
Ok = False
Worksheets("Sheet1").Range("F1").Value = 0
End Sub
Sub Ajastin()
If Ok Then
Worksheets("Sheet1").Range("F1").Value = Worksheets("Sheet1").Range("F1").Value 1
Application.OnTime Now() TimeValue("00:00:01"), "Ajastin"
End If
End Sub
KeepEXCELing
@Kunde- harjottelua
Kiitti vastauksesta!!
Täytyy illalla kokeilla vielä miten toimii.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Se oli siinä sitten
Yhdysvaltain presidentti Donald Trump on määrännyt kaiken maan Ukrainalle toimittaman sotilaallisen tuen tauolle, kertoo7272266Paljonko aikaa on kulunut siitä kun viimeksi tapasit hänet?
Päiviä? Viikkoja? Kuukausia? Vuosia?502259- 1252173
- 1272113
- 541756
Trump tekee rauhan Amerikan ja Venäjän ehdoilla
Ukraina luovuttaa Venäjän haluamat alueet Venäjälle. Ukraina luovuttaa Amerikan haluamat arvokkaat mineraalit Amerikall2411633- 311361
Syvälliset keskustelut
Olisivat tärkeintä ensisijaisesti hänen kanssaan Tulisi sellainen hetki, mutta kaikki meni pieleen201309Olisipa sitä henkisesti eheämpi ja rohkeampi
mikään maallinen mammona ei itseäni kiinnosta, eikä sen menetys kiinnostus. Mutta kun kohtaa jonkun sykäyttävän ihmisen,161195Kyllähän tämä vähän kirpaisee
Mutta oman sisäisen rauhan vuoksi jätän sinut nyt historiaan. Todennäköisesti olet jo sinäkin mennyt eteenpäin. Olipah381137