Zamanı Label ile Ölçme

Bu dosya, bir UserForm üzerindeki Label nesnesinde geçen sürenin saniye olarak canlı gösterilmesini örnekler. Form açıldığı anda kronometre başlar ve süre ekranda sürekli güncellenir.

Dosyanın içeriği​

• exceldestek.com | exceldepo.com: E1:I11 aralığını kapsayan tek çalışma sayfasıdır. Sayfada formül, grafik, tablo ya da pivot tablo bulunmaz.
• UserForm1: Süreyi gösteren Label1 nesnesini barındıran kullanıcı formudur.
• Module1: Formu açan form adlı makroyu içerir.

Makrolar​

Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme ya da dışarıya bağlantı gibi zararlı bir işlem yoktur.

• form (Module1): UserForm1 formunu ekranda gösterir. Makro çalıştırılarak kronometre formu açılır.
• UserForm_Activate (UserForm1): Form etkinleştiğinde Timer değeri başlangıç olarak kaydedilir. Ardından döngü içinde geçen süre, yani anlık Timer değeri ile başlangıç değeri arasındaki fark hesaplanır ve Format fonksiyonunun "Fixed" biçimiyle (iki ondalık basamak) Label1 başlığına yazılır. Döngüdeki DoEvents komutu, form çalışırken Excel'in diğer olaylara yanıt vermesini sağlar.

Döngüde bitiş koşulu bulunmadığından kronometre form kapatılana kadar sürer. Form kapatılamazsa Esc veya Ctrl+Break tuşlarıyla çalışma durdurulabilir.

Nasıl kullanılır​

1. Dosyayı açın ve istendiğinde makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açın, form makrosunu seçip çalıştırın.
3. Form açıldığında kronometre otomatik başlar ve Label1 üzerinde geçen süre saniye olarak izlenir.
4. Ölçümü bitirmek için formu kapatın.
5. Kendi çalışmanıza uyarlamak için Alt+F11 ile VBA düzenleyicisini açıp UserForm1 içindeki kodu ve Label1 nesnesini inceleyebilirsiniz.