DoEvents

Söz dizimi​

DoEvents

' İşlev olarak kullanım
sonuc = DoEvents()

• Parametre: DoEvents hiçbir parametre almaz.
• Deyim biçimi: Yalnızca DoEvents yazılır, bir değer döndürülmez. En sık kullanılan biçim budur.
• İşlev biçimi: DoEvents() bir Integer değer döndürür.

Nasıl çalışır ve dönüş değeri​

• Dönüş değeri: Excel'de işlev olarak çağrıldığında her zaman 0 döner. Bu değer Excel için bir bilgi taşımaz; yalnızca söz diziminin uyumluluğu için vardır.
• Ekran güncelleme: Hücre değişikliklerinin ve Application.StatusBar metninin döngü sırasında görünmesine yardımcı olur. Application.ScreenUpdating değeri False ise ekran yine de yenilenmez.
• Kullanıcı girdisi: Döngü sürerken kullanıcı başka bir makroyu çalıştırabilir, hücre seçebilir ya da bir düğmeye basabilir. Bu özellik, "Durdur" düğmesi gibi yapıların kurulmasını sağlar.

Ne zaman ve nasıl kullanılmalı​

• İlerleme göstermek: Döngü içinde durum çubuğuna ilerleme yazıp ardından DoEvents çağırın.
• İptal bayrağı: Modül düzeyinde bir Boolean değişken tutun, başka bir makro bu değişkeni True yapsın, döngü de her turda değişkeni denetleyip Exit For ile çıksın.
• Kullanmayın: Belirli bir süre beklemek için içinde DoEvents bulunan sonsuz ya da zamanlayıcıya dayalı döngüler kurmak işlemciyi gereksiz yorar.

1. Döngüde ilerleme gösterme​

Option Explicit

Sub TutarHesapla()
    Dim ws As Worksheet
    Dim i As Long, son As Long

    Set ws = ActiveSheet
    ' A sütunundaki son dolu satırı bul
    son = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    For i = 2 To son
        ' Tutar = Adet x Birim Fiyat
        ws.Cells(i, 4).Value = ws.Cells(i, 2).Value * ws.Cells(i, 3).Value

        ' İlerlemeyi durum çubuğunda göster
        Application.StatusBar = "İşleniyor: " & (i - 1) & " / " & (son - 1)

        ' Excel'e ekranı yenileme ve olayları işleme fırsatı ver
        DoEvents
    Next i

    ' Durum çubuğunu varsayılan hâline döndür
    Application.StatusBar = False
End Sub

2. Dönüş değerini ve çağrı sayısını yazma​

Option Explicit

Sub DonusDegeriniYaz()
    Dim d As Long
    Dim i As Long
    Dim sayac As Long

    ' İşlev olarak çağrı: Excel'de her zaman 0 döner
    d = DoEvents()
    ActiveSheet.Range("B2").Value = d

    ' Deyim olarak 50 kez çağır ve çağrıları say
    For i = 1 To 50
        DoEvents
        sayac = sayac + 1
    Next i

    ActiveSheet.Range("B3").Value = sayac
End Sub

3. İptal bayrağıyla durdurulabilir döngü​

Option Explicit

' Döngüyü durdurmak için kullanılan bayrak
Private durdurBayragi As Boolean

Sub KumulatifHesapla()
    Dim i As Long
    Dim toplam As Double
    Dim ws As Worksheet

    Set ws = ActiveSheet
    durdurBayragi = False

    For i = 2 To 7
        ' Kullanıcı Durdur makrosunu çalıştırdıysa döngüden çık
        If durdurBayragi Then Exit For

        toplam = toplam + ws.Cells(i, 2).Value
        ws.Cells(i, 3).Value = toplam

        ' Bekleyen olayların (örneğin Durdur makrosunun) işlenmesine izin ver
        DoEvents
    Next i
End Sub

Sub Durdur()
    ' Bu makroyu bir düğmeye ya da kısayol tuşuna atayın
    durdurBayragi = True
End Sub

Kullanırken dikkat edin​

• ScreenUpdating etkisi: Application.ScreenUpdating değeri False iken DoEvents çağırmak ekranın yenilenmesini sağlamaz. İlerlemeyi ekranda görmek istiyorsanız bu özelliği True bırakın ya da ilerlemeyi durum çubuğunda gösterin.
• Yeniden giriş (reentrancy) riski: DoEvents sürerken kullanıcı aynı makroyu yeniden başlatabilir, hücreleri değiştirebilir ya da sayfa değiştirebilir. Bu durum beklenmedik sonuçlara yol açabilir. Kodun başında bir "çalışıyor" bayrağı kullanmak ve gerekirse Application.Interactive özelliğini geçici olarak False yapmak daha güvenlidir; ancak makro hata verirse özelliği True yapmayı unutmayın.
• Performans maliyeti: Her çağrı küçük bir gecikme getirir. Çok sayıda yinelemesi olan döngülerde DoEvents çağrısını her turda değil, belirli aralıklarla yapın; örneğin turun 100'e bölümünden kalanın sıfır olduğu durumlarda (If i Mod 100 = 0 Then DoEvents).
• Tek uzun işlemi bölmez: DoEvents yalnızca çağrıldığı noktada etki eder. Tek satırda çalışan ve uzun süren bir işlem, örneğin büyük bir aralığı kopyalamak ya da bir sıralama yapmak, bitene kadar Excel'i meşgul eder. Bu tür işlemleri parçalara bölerek aralarında DoEvents çağırabilirsiniz.
• Bekleme aracı değildir: DoEvents kodu belirli bir süre bekletmez. Zamanlanmış çalıştırma için Application.OnTime kullanılmalıdır. İçinde DoEvents bulunan bitmeyen ya da zamana bağlı bekleme döngüleri işlemciyi gereksiz yere yorar.
• Esc ve iptal tuşu: Kullanıcının makroyu Esc ya da Ctrl+Break ile kesebilmesi Application.EnableCancelKey özelliğinin ayarına bağlıdır. Kendi iptal mekanizmanızı kurmak istiyorsanız Örnek 3'teki gibi bayrak yöntemi daha denetlenebilirdir.
• İlgili konular:
  • Application.ScreenUpdating: Ekran yenilemeyi açıp kapatır.
  • Application.StatusBar: Durum çubuğuna ilerleme metni yazar.
  • Application.Interactive: Kullanıcı girdisini geçici olarak engeller.
  • Application.EnableCancelKey: Esc ile makro kesmeyi denetler.
  • Application.OnTime: Makroyu belirli bir zamanda çalıştırır.
  • Application.Calculate: Hesaplamayı elle başlatır.
  • Application.EnableEvents: Olay yordamlarını açıp kapatır.
  • For...Next ve Exit For: Döngü kurma ve döngüden çıkma deyimleri.