kendi kendine saat çıksın

[ahmetvezir]

hücrede kendi kendine zamanı göstermesini istiyorum tarihi çıkarttım ama onu bir türlü ayarlayamıyorum teşekkürler

 

[Mahmut Bayram]

=bugün() olark denedin mi

 

[htsumer]

Zamandan kastınızı Saat olarak algılıyorum.
Sayfa1,Sayfa2 ve Sayfa3 varsayalım.

Sayfa2'nin kod kısmına aşağıdaki kodları yazın.

Private Sub Worksheet_Activate()
Do
    DoEvents
    [a1] = Format(Now, "hh:mm:ss")
Loop
End Sub

Kullanım amacınızı bilemiyorum ama saniyenin devamlı çalışması nedeni ile ağırlaşma yaşıyabilirsiniz.


Sayfa1 ve Sayfa3'nin kod kısmınada aşağıdaki kodları yazın.
Makronuzun durması içindir.

Private Sub Worksheet_Activate()
End
End Sub

Sadece Saatin görünmesini isterseniz.
Hücrede Hücre Biçimlendir Saat Biçimlendirden seçerek ilgili hücreye
=şimdi() yazmanız yeterli.Tabii saat güncel olmıyacaktır..

 

[NeT_MaN]

Ya benim sorunum hücreye saat girince otomatik olarak 00:00 olarak gözükmesi.
diyelimki ben hücreye 2330 girecem. Bunun otomatik olarak 23:30'ya dönmesini istiyorum.
Yardım ederseniz sevinirim....

 

[galkan]

sayın Net MaN,
yazdığın saatleri birbirinden çıkarma, toplama... gibi işlemler
yapmayacaksan
Hücreleri 00":"00 şeklinde özel biçimlendirmen yeterli olacaktır.
2330 yazıp enter'e bastığında 23:30 şekline dönüşür

 

[NeT_MaN]

ama istiyorum...

YAni ben bu Excel tablosunda toplama ve çıkarma gibi işlemleride yapmak istiyorum.

 

[Zeki Gürsoy]

Private Sub Worksheet_Activate()
Do
DoEvents
[a1] = Format(Now, "hh:mm:ss")
Loop
End Sub

Excel'i yavaşlatmadığı için kodları, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" altında kullandım.
Döngü çalışırken Excel'i de kullanmak mümkün olamaz mı? (Araç çubuklarının pasif olmaması açısından)

 

[Levent Menteşoğlu]

Döngü çalışırken Excel'i de kullanmak mümkün olamaz mı? (Araç çubuklarının pasif olmaması açısından)

Sağlıklı olmaz, Excelde işlem yaptığınızda saat duracaktır, aynı zamanda dosyanızın kilitlenip hata vermeside söz konusudur. Bu sebeple sürekli aktif çalışan bir saat uygulamasını tavsiye etmem.