ToggleButton ile Sayı Saymayı Başlatma

Bu dosya, sayfadaki bir ToggleButton denetimiyle sayım işlemini başlatmayı ve durdurmayı gösterir. Düğmeye basıldığında A2 hücresinde 1'den başlayarak sayılar hızla artar; düğmeye tekrar basıldığında sayım durur. Makro ile döngü kontrolü öğrenmek isteyenler için uygulamalı bir örnektir.

Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Tek çalışma sayfası vardır; sayfa B2:F13 aralığını kullanır. Üzerinde sayımı yöneten ToggleButton denetimi bulunur.
• Sayfada formül, grafik, tablo ya da veri doğrulama yoktur; işlem tamamen makro ile yürütülür.

Makrolar​

Makro, sayfa koduna yazılmış tek bir olay prosedüründen oluşur: ToggleButton1_Click. Düğmeye her tıklandığında çalışır.

• Düğme basılı hale geldiğinde yazısı Durdur olur ve bir döngü başlar. Döngü her turda sayacı bir artırır ve değeri A2 hücresine yazar. Sayaç 20000 değerine ulaşınca döngü kendiliğinden biter.
• Döngü içinde DoEvents kullanıldığından Excel sayım sürerken de tıklamaya yanıt verir.
• Düğme tekrar basılı olmayan konuma getirildiğinde yazı Saydır olur ve End komutuyla çalışan kod sonlandırılır; sayım durur.
• Sayaç değişkeni sıfırlanmadığından sayım durdurulduktan sonra yeniden başlatılırsa kaldığı yerden devam eder.
• Kodda dosya silme ya da dış bağlantı gibi zararlı bir işlem yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Sayfadaki Saydır yazılı düğmeye tıklayın; A2 hücresinde sayılar artmaya başlar.
3. Sayımı durdurmak için düğmeye (yazısı Durdur) yeniden tıklayın.
4. Sayım 20000 değerine ulaşırsa kendiliğinden sona erer. Üst sınırı değiştirmek için Visual Basic düzenleyicisinde Sayfa1 kodundaki 20000 değeri düzenlenir.