Excel'de Sayaç Yapmak

Bir hücre seçip hücre biçimlendirmesi olarak beçimlendirin.

Hücreye tıklayıp hücreleri biçimlendiri seçiyoruz.

Açılan ekranda resimdeki seçenekleri seçiyoruz.

Geri sayıp yapmak istediğimiz zamanı giriyoruz.

ALT + F11 ile Microsof Visual Basic açıyoruz.

Ekle > Modül seçiyoruz ve aşağıdaki kodu yapıştırıyoruz

Kod 
Yığını:
Dim gCount As Date
'Updateby20140925
Sub Timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "ResetTime"
End Sub
Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("G6")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
    MsgBox "Countdown complete."
    Exit Sub
End If
Call Timer
End Sub

Dikkat edit ben G6 hücresinde işlem yaptığım için “Set xRng = Application.ActiveSheet.Range("G6")” yazdım siz çalışmak istediğiniz hücreyi yazınız.

Kodu çalıştırmak için VBA açık iken F5 basın ve sayaç çalışmaya başlar.

Sonuç