• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Belirli Zamanda Hücre Değerinin Değişmesi

  • Konbuyu başlatan Konbuyu başlatan clawee
  • Başlangıç tarihi Başlangıç tarihi
Katılım
2 Şubat 2010
Mesajlar
25
Excel Vers. ve Dili
2007
Arkadaşlar merhaba ;

Excelde belirli zaman aralıklarında hücredeki değerin 1 er artmasını istiyorum.

Örneğin her dakikada hücre değeri 1 er artsın istiyorum nasıl yapabilirim.
 
=Şİ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.
 
=Şİ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.

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.
 
Boş bir modüle uygulayıp deneyiniz.

Kod dosya açıldığında devreye girecektir.

Ben süreyi değişimi görmeniz için 1 saniye olarak ayarladım. Siz dilediğiniz gibi değiştirebilirsiniz.

Kod:
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
 
Teşekkür ederim tam istediğim gibi (y)
 
Geri
Üst