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
94
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
- 17611185
- 545318
Taas ryssittiin oikein kunnolla
r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html462555- 372246
Vanha Suola janottaa Iivarilla
Vanha suola janottaa Siikalatvan kunnanjohtaja Pekka Iivaria. Mies kiertää Kemijärven kyläjuhlia ja kulttuuritapahtumia131771Valtimon Haapajärvellä paatti mäni nurin
Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,421674Tiedän kuka sinä noista olet
Lucky for you, olen rakastunut sinuun joten en reagoi negatiivisesti. Voit kertoa kavereillesi että kyl vaan, rakkautta311310Känniläiset veneessä?
Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v351256Tulemmeko hyvin
Toimeen ja juttuun keskenämme? Luulen, että sopisit hyvin siihen ☀️ympäristöön, paljon kaikkea erilaista.♥️mietin tätä s61076Daniel Nummelan linjapuhe 2025
Kansanlähetyksen toiminnanjohtajan Daniel Nummelan linjapuhe tänään. Rehellistä analyysiä mm. evlut kirkosta ja piispo103995