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

• #25033 Delila_1 veterán alfa20 #25031

  Új Válasz 2015-01-15 12:57:44 #25033

  Ú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

  

  Delila_1

  veterán

  válasz alfa20 #25031 üzenetére

  Nem tudom, mit akarsz megjeleníteni (óra.perc, perc.másodperc) formában.
  A lenti makró ó:pp:mm formában írja ki a futási időt.
  A cellába való beírást megjegyzésbe tettem. Próbáld meg írással, és anélkül.

  Sub valami()
  Dim t, b As Double
  t = Now
  For b = 1 To 300000000
  ' Cells(1, 1) = b
  Next
  MsgBox Format(Now - t, "h:mm:ss"), , "Futási idő"
  End Sub

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