Excel'e nasıl geri sayım zamanlayıcısı eklenir?
Belirli bir süre boyunca bazı verilerle çalışmak istiyorsanız, veri çalışma sayfanıza bir geri sayım zamanlayıcısı ekleyebilirsiniz. Süre dolduğunda size hatırlatma yapan bir iletişim kutusu açılacaktır. İşte Excel’e geri sayım zamanlayıcısı eklemek için kullanabileceğiniz VBA kodu:
Excel’e geri sayım zamanlayıcısı ekleme
Excel’e geri sayım zamanlayıcısı ekleme
Excel, kendi başına geri sayım yapamaz; ancak zamanı geriye doğru sayması için aşağıdaki VBA kodunu kullanabilirsiniz.
1. Bir hücre seçin, sağ tıklayıp Hücre biçimini ayarlar seçeneğini tıklayarak hücreyi saat biçimine dönüştürün. Açılan iletişim kutusunda Saat seçeneğine tıklayın, ardından Tür listesinden 13:30:55 biçimine uygun olanı seçin ve son olarak iletişim kutusundan çıkmak için Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:
 |
 |
 |
2. Geri sayım süresini biçimlendirilmiş hücreye girin. Ekran görüntüsüne göz atın:
3. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
4. Ekle > Modül seçeneğine tıklayın ve ardından aşağıdaki VBA kodunu yeni pencereye kopyalayın.
VBA: Geri Sayım Zamanlayıcısı
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("E1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
MsgBox "Countdown complete."
Exit Sub
End If
Call Timer
End Sub
İpucu: Yukarıdaki kodda E1 hücresi, 2. adımda girdiğiniz saat hücresini gösterir.
5. Çalıştır düğmesine tıklayın ya da F5 tuşuna basarak geri sayım zamanlayıcısını başlatın. Artık süre geriye doğru sayılır.
6. Geri sayım tamamlandığında, size hatırlatma yapmak üzere bir iletişim kutusu açılacaktır.
İpucu: Çalışma kitabını kapatmadığınız sürece çalışan geri sayımı durduramazsınız.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar