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
118
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
Vihamielisyys naisia kohtaan on jo yllättävän suuri ongelma
Esiintyy laajemmassa mittakaavassa, mitä vain tällä palstalla. Mistä tuo ilmiö nyt oikein johtuu, ja saa alkuvoimansa?3822101Odotan sitä hetkeä
kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh631333Olen melko vakuuttunut
etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok831310- 1371198
- 871119
- 96999
Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!
https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro133924- 48880
- 47821
Sitä saattaa vähän hölmöillä
rakkauspäissään, jos tunteita on enemmän kuin osaa käsitellä. Alkuhölmöilyt on söpöä ja sallittavaa.60770