laskuri

harjottelua

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.

2

103

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Päivän Sanna: Nvidia sijoittaa miljardi dollaria Nokian osakkeisiin

      Nvidia merkitsee osakkeet 6,01 Yhdysvaltain dollarin osakekohtaisella merkintähinnalla tavanomaisten toteutumisehtojen t
      Maailman menoa
      41
      5236
    2. Palkansaajilta kupattiin 27,5 mrd euroa työeläkkeisiin

      Jo pelkän himmelin toimintakulut olivat 400 miljoonaa euroa, jolla olisi mukavasti tuottanut myös sote-palveluja hyvinvo
      Maailman menoa
      73
      3142
    3. Suomessa Pohjoismaiden tyhmimmät demarit......aijaijai..

      Lasse Lehtinen sanoo suoraan, että Ruotsissa on fiksummat demarit kuin Suomessa. Ja Tampereella fiksummat demut kuin Hel
      Maailman menoa
      18
      2998
    4. HS: persujen v. 2015 turvapaikanhakijoista alle puolet töissä

      Aikuisina Suomeen tulleista ja myönteisen päätöksen saaneista vain 42 prosenttia oli vuonna 2023 töissä, vaikka he ovat
      Maailman menoa
      143
      2881
    5. Nepotismi jytkyttää porvaristossa

      Taas uutisoidaan, että useampi perussuomalainen kansanedustaja on palkannut oman perheenjäsenensä eduskunta-avustajaksi
      Maailman menoa
      38
      1691
    6. Martina Aitolehti podcastissa: Ero

      Martina Aitolehti podcastissa: Ero Martina Aitolehti kertoi BFF-podcastin https://www.iltalehti.fi/viihdeuutiset/a/696
      Kotimaiset julkkisjuorut
      227
      1613
    7. Persut muuten hyväksyvät 2 + 8 mrd. euron maatalous- ja yritystuet

      Vaikka molemmat tukimuodot tiedetään haitallisiksi, koska ovat käytännössä pelkkää säilyttävää tukea, eivätkä kannusta k
      Maailman menoa
      89
      1598
    8. Kaikki ovat syntisiä!!!

      Näin täällä koko ajan vakuutellaan uskovaisten toimesta. Myös Päivi Räsänen on toistanut tätä samaa matraa jatkuvasti. N
      Luterilaisuus
      427
      1323
    9. Persut palkkaavat verorahoilla

      avustajikseen lapsiaan ja naisystäviään. Juuso on palkannut avustajakseen oman poikansa. Hänen koulutustaustastaan ei
      Maailman menoa
      238
      1181
    10. Haluaisitko sinä

      Että välimme selkeäisivät vai tämäkö riittää sinulle?
      Ikävä
      68
      1150
    Aihe