Új hozzászólás Aktív témák

• #31372 Fferi50 Topikgazda huliganboy #31371

  Új Válasz 2016-04-24 11:37:08 #31372

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz huliganboy #31371 üzenetére

  Szia!

  Először is egy javaslat:
  Az időzítőben levő időt érdemes változóba tenni, így egyértelműen meg lehet határozni a leállításnál a paraméterét (a NOW + time... folyamatosan változik, ezért nem biztos, hogy pont annyi lesz leállításkor, mint induláskor volt )
  pl
  Public ido as date
  Sub StartTimer()
  ido = Now + TimeValue("00:00:01")
  Application.OnTime ido, "Increment_count"
  Sub stopTimer()
  Application.OnTime ido, "Increment_count", Schedule:=False
  End Sub

  Számláló érték resetelés vagy új érték adása:
  Private Sub CommandButton1_Click()
  Range("B10").value=0 ' ez reseteli a számlálót, Range("B10").value= 40 ez így 40 másodpercről folytatja a számolást (persze ez utóbbi nem azt jelenti, hogy 40 másodperc telt el az indítástól...)
  StartTimer
  End Sub

  Miután a számláló a B10 cellában van, ezért a B10 cellaformátumát egyedi számformátumban [pp]:mm ként kell megadni, akkor nem fordul át a perc órára - viszont ekkor a számlálót másként kell állítanod, mert dátumformátum esetén 1 az egy egész napot jelent, a dátumformátumú B10 cella értéket így kell növelni:
  Range("B10").value=Range("B10").value + TimeValue('00:00:01")

  Üdv.

Új hozzászólás Aktív témák