DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=ŞİMDİ()*24*60 formülünü yazıp hücreleri biçimlendirden Sayı seçeneğini seçin.
Bu şekilde 01.01.1900 tarihinden beri kaç dakika geçtiğini görebilirsiniz.
bu değer her bir dakikada bir artar
buradaki sayıdan belli bir sayıyı çıkararak istediğiniz sayıya çevirebilirsiniz.
çıkan sonuç da her bir dakikada artar.
Option Explicit
Sub Auto_Open()
DoEvents
Application.OnTime Now + TimeValue("00:00:01"), "Yenile"
End Sub
Sub Yenile()
DoEvents
If Range("A1") = 100 Then
Range("A1") = 1
Else
Range("A1") = Range("A1") + 1
End If
Application.OnTime Now + TimeValue("00:00:01"), "Yenile"
End Sub