Döngü Durdurma

Bu dosya, çalışmakta olan bir VBA döngüsünün klavyeden F10 tuşuna basılarak nasıl durdurulacağını gösteren örnek çalışmadır. Uzun süren makrolarda kullanıcıya kesme imkanı vermek isteyenler için hazırlanmıştır.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1, Sayfa2, Sayfa3: Üç sayfa da boştur; veri ve formül içermez. Makro, etkin sayfanın A sütununa yazar.
• Module1: Döngü ve tuş denetimi için gereken kodu barındıran standart modüldür.

Makrolar​

• evn: Ana makrodur. 1'den 1.000.000'a kadar giden bir döngü kurar. Her turda Application.Wait ile çok kısa bir bekleme yapar, F10 tuşuna basılıp basılmadığını denetler ve basılmadıysa A sütununda döngü sayısına karşılık gelen satıra "x" yazar. F10'a basıldığında döngüden çıkılır ve yazma işlemi sona erer.
• Durdur: Belirtilen tuşun o anda basılı olup olmadığını döndüren yardımcı fonksiyondur. Windows'un User32 kütüphanesindeki GetAsyncKeyState fonksiyonunu kullanır.

Kodda dosya silme veya dışarıya bağlantı gibi işlem yoktur; makro yalnızca hücrelere "x" yazar.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açın, evn makrosunu seçip çalıştırın.
3. A sütununda aşağı doğru "x" işaretleri yazılmaya başlar.
4. Döngüyü durdurmak için F10 tuşuna basılı tutun; makro kısa süre içinde sonlanır.
5. Kendi işleminizde kullanmak için döngü içindeki Cells(i, 1) = "x" satırı yerine kendi kodunuzu yazın, Durdur denetimini olduğu gibi bırakın.

Not: GetAsyncKeyState bildirimi Windows'a özgüdür; dosya Windows üzerindeki Excel için uygundur.