Otomatik Zaman ve Kronometre Hk

[petsiye]

Merhaba Arkadaşlar ,

Ek' te bulunan dosyada , bu site aracılığıyla bulduğum bir kronometre uygulaması bulunmakta. Dosyada göreceğiniz üzere Kaydet butonuna bastığınızda aşağıda zamanı kaydederek ilerliyor. Benim istediğim , aşağıya kaydedilen sürelerin sol tarafındaki sarı renkli sütuna o anki Tarih ve Saati otomatik atması ve o anki zamanı SABİTLEMESİ.

Ayrıca dikkatimi çeken bir konu , Bu kronometre normal bir kronometre hızından yaklaşık 1 sn gibi bir süre geri kalıyor. Bu süre , ölçülen zaman miktarı arttıkça daha açılıyor. Bunun sebebi ve normal bir hıza döndürülmesi, mümkünmüdür ?

Yardım ve Desteğiniz için şimdiden Teşekkür Ederim.

 

[Muzaffer Ali]

Merhaba.

"Modüle1" de Kaydet" prosedürü altında aşağıdaki kod satırını bulun.

ActiveWorkbook.Sheets("Kronometre").Cells(say, "E").Value = [A1]

Hemen altına aşağıdaki satırı ekleyin

ActiveWorkbook.Sheets("Kronometre").Cells(say, "A").Value = Format(Now, "dd mmmm yyyy hh:mm")

 

[petsiye]

Merhaba,
Cehalet çok zor zanaat gerçekten Cevabınız için Çok Teşekkür Ederim. Sorun Çözüldü. Fakat bu Kronometrenin neden gerçek kronometre ile farklı olduğunu ve nasıl sorunun çözüleceğini de halen bilmiyorum

 

[Muzaffer Ali]

Sorun hücre biçiminden kaynaklanıyor.
A1 hücresindeki zaman sayacında kronometre görünmediği için yukarı yuvarlıyor.
Zaman "00:00:02,62" ise yukarı yuvarlayıp "00:00:03" şeklinde görünüyor.

Gerçek zamanı görmek için A1 hücresini sağ tıklatın / Hücreleri Biçimlendir / Soldaki listeden İsteğe uyarlanmış seçip
Tür kısmına ss:dd:nn,00 yazın. Tammaı tıklatın.

Şimdi A1 hücresinde yazan gerçek zamanı göreceksiniz.

 

[petsiye]

Gerçekten bu da oldu Çok Teşekkür ederim

 

[petsiye]

Pardon , Oldu diye cevap yazdım ama yine geriden geliyor süre :-(

 

[Muzaffer Ali]

Dediğim şekilde yapınca oluyor.
Dosyanız ekte.

 

[petsiye]

Merhaba Tekrar.
Evet Ek' teki dosyanız oluyor gerçekten. Emeğiniz için Teşekkür Ederim.