Excel çalışma sayfasında nasıl kronometre oluşturulur?
Excel çalışma sayfanızda bir kronometreye ihtiyacınız varsa, görevlerinizi tamamlamak için harcadığınız süreyi kolayca takip edebilirsiniz. Aşağıdaki ekran görüntüsünde gösterildiği gibi, kronometrenizi Başlat, Durdur ve Sıfırla düğmeleriyle kontrol edebileceğinizi düşünün: Başlat düğmesine tıkladığınızda zamanlayıcı çalışmaya başlar, Durdur düğmesiyle zamanlayıcıyı duraklatabilir, Sıfırla düğmesiyle de süreyi sıfırlayabilirsiniz. Bu makalede, Excel’de VBA kodu kullanarak basit ama işlevsel bir kronometre oluşturmanın adım adım nasıl yapıldığını göstereceğiz.
VBA kodu kullanarak üç düğmeli bir kronometre oluşturun
VBA kodu kullanarak üç düğmeli bir kronometre oluşturun
Başlat, Durdur ve Sıfırla düğmelerine sahip bir kronometre oluşturmak için lütfen aşağıdaki adımları sırayla izleyin.
İlk olarak, üç adet komut düğmesi ekleyin.
1. "Geliştirici" > "Ekle" > "Komut Düğmesi" seçeneğine tıklayın; ekran görüntüsüne göz atın:
2. Ardından, fareyi sürükleyerek bir düğme çizin. Düğme eklendikten sonra başlığını değiştirebilirsiniz. Bunun için **Geliştirici** > **Özellikler** seçeneğine tıklayın. Açılan **Özellikler** iletişim kutusunda, **Caption** (Başlık) alanına bu düğme için “Başlat” yazısını girin. Ekran görüntülerine göz atın:
 |  |  |
3. "Durdur" ve "Sıfırla" başlıklı diğer iki düğmeyi eklemek için yukarıdaki iki adımı tekrarlayın. Ekran görüntüsüne göz atın:
4. Düğmeleri ekledikten sonra, tasarım modundan çıkmak için "Geliştirici" > "Tasarım Modu" seçeneğine tıklayın.
İkinci olarak, bir VBA kodu oluşturun.
5. Ardından Geçerli Çalışma Sayfası sekmesine sağ tıklayıp "Kodu Görüntüle" seçeneğini seçin. Açılan "Microsoft Visual Basic for Applications" penceresinde, aşağıdaki kodu "Sayfa Kodu" bölümüne kopyalayıp yapıştırın:
Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
StartTime = Timer
PauseTime = 0
LastTime = 0
Else
StartTime = 0
PauseTime = Timer
End If
StartIt:
DoEvents
If StopIt = True Then
LastTime = TotalTime
Exit Sub
Else
FinishTime = Timer
TotalTime = FinishTime - StartTime + LastTime - PauseTime
TTime = TotalTime * 100
HM = TTime Mod 100
TTime = TTime \ 100
hh = TTime \ 3600
TTime = TTime Mod 3600
MM = TTime \ 60
SS = TTime Mod 60
Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
If ResetIt = True Then
Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
PauseTime = 0
End
End If
GoTo StartIt
End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
StopIt = True
End Sub
Private Sub CommandButton3_Click()
Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
ResetIt = True
End Sub
Not: Yukarıdaki kodda "C2", kronometre süresinin ekleneceği hücredir; "CommandButton1", "CommandButton2" ve "CommandButton3" ise düğmelerin adlarıdır. Gerçek düğme adlarını "Ad Kutusu"ndan görüntüleyebilirsiniz. Ekran görüntüsüne göz atın:
Üçüncü olarak, kronometre süresini gösteren hücreyi biçimlendirin.
6. Ardından zaman hücresini "Metin Biçimi" olarak biçimlendirmelisiniz. İhtiyacınıza göre hücre boyutunu, yazı tipini, yazı tipi rengini ve arka plan rengini özelleştirebilirsiniz. Ekran görüntüsüne bakın:
7. Yukarıdaki adımları tamamladıktan sonra artık "Başlat" düğmesine her tıkladığınızda süre başlayacak, "Durdur" düğmesine tıkladığınızda duracak ve "Sıfırla" düğmesi süreyi sıfırlayacaktır. Ekran görüntüsüne göz atın:
Demo: VBA kodu kullanarak üç düğmeli bir kronometre oluşturun
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