Bu dosya, bir UserForm üzerinde 10 dakikadan geriye doğru sayan bir sayaç içerir. Sayaç sayfadaki bir şekle tıklanarak başlatılır; süre dolduğunda form kapanır ve çalışma kitabı da kapatılır. Zaman sınırlı sınav, sunum ya da çalışma oturumları için kullanılabilir.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- exceldestek.com | exceldepo.com sayfası: A1:E11 aralığındaki çalışma sayfasıdır. Sayfada formül bulunmaz; sayacı açan şekil bu sayfa üzerindedir.
- UserForm1: Geri sayımın gösterildiği formdur. İçinde CommandButton1 düğmesi ile Label1 ve Label2 etiketleri bulunur.
- Module2: Sayfadaki şekle atanmış açılış makrosunu barındırır.
Makrolar
- Rectangle1_Tıkla: Sayfadaki dikdörtgen şekle tıklandığında UserForm1 formunu açar. Form, 0 parametresiyle gösterildiği için açıkken çalışma sayfası da kullanılabilir.
- CommandButton1_Click: Başlangıç zamanını Timer değerine 600 saniye (10 dakika) ekleyerek belirler. Döngü içinde kalan süre hesaplanır ve Label1 etiketine dakika:saniye biçiminde yazılır. Kalan süre 300 saniyeye (5 dakika) düştüğünde Label2 etiketine uyarı metni yazılmaya başlar. Süre dolunca form kapatılır ve ThisWorkbook.Close ile çalışma kitabı kapanır.
- UserForm_QueryClose: Form kullanıcı tarafından kapatıldığında sayacın durmasını sağlar.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Sayfadaki dikdörtgen şekle tıklayarak sayaç formunu açın.
- Formdaki düğmeye tıklayarak geri sayımı başlatın; kalan süre dakika:saniye olarak görüntülenir.
- Süreyi değiştirmek için VBA editöründe UserForm1 kodundaki 600 değerini saniye cinsinden güncelleyin.
- Sayacı durdurmak için formu kapatın; süre bitince çalışma kitabı kendiliğinden kapanır.