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 1930
Tıklama 0
Öne Çıkarma

1. sayfa

Excel'de Sayaç Yapmak

Cevap Yaz

Netsinerji

3 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 >

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

Cevap Yaz

1. sayfa

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