DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Her dakida bir artıyor ama aktif olması için herhangi bir hücrede değişilkik yapmak yani tetiklemek gerekiyor. Benim isteğim örneğin saat 17:53 - 1754 olduğunda değer değişsin.=Şİ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