Excel'de Sayaç Yapmak

Aşağı Git Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel Ofis Uygulamaları Excel'de Sayaç Yapmak

Bu konudaki kullanıcılar: 1 misafir

0
Cevap 1889
Tıklama 0
Öne Çıkarma

1. sayfa

Excel'de Sayaç Yapmak

Cevap Yaz

Netsinerji

2 yıl

Çavuş

Konu Sahibi

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

< Resime gitmek için tıklayın >

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

< Resime gitmek için tıklayın >

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

< Resime gitmek için tıklayın >
Geri sayıp yapmak istediğimiz zamanı giriyoruz.

< Resime gitmek için tıklayın >

ALT + F11 ile Microsof Visual Basic açıyoruz.
Ekle > Modül seçiyoruz ve aşağıdaki kodu yapıştırıyoruz

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.

< Resime gitmek için tıklayın >

Sonuç

< Resime gitmek için tıklayın >

Cevap Yaz

1. sayfa

Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel Ofis Uygulamaları Excel'de Sayaç Yapmak