Excel&VBA - DoEvents Metodu

Makro Çalışırken Excel'i Kullanmaya Devam Edin!

 

DoEvents komutunun kullanımı:

Her VBA programcısı, bir VBA makrosu çalıştığı sürece Excel'in donacağını bilir. Bu çok büyük bir sorun değil ama kullanıcının üretkenliğini (makronun sonunu beklemek zorunda kalacak) düşüren ve rahatsız edici bir durum. İşte bunun bir çözümü mevcut.

Aşağıdaki küçük kodu koşturduğunuz takdirde Excel'iniz birkaç saniye donacaktır. Makro çalışırken Excel'i ve hatta bilgisayarınızı dahi etkili bir şekilde kullanamayacağınızı görebilirsiniz. Ta ki makro sona erinceye veya durduruluncaya kadar.

Sub test()
    For i = 1 To 1000000
           toplam = toplam + i
           Range("A1").Value = toplam
    Next i
End Sub

Şimdi bu kod parçasını DoEvents komutuyla hafifçe değiştiriyoruz. Makro çalıştığı esnada her döngüden geçtiğinde DoEvents komutu çağrılır. Bu sayede Excel'i kullanabildiğinizi, menülere ve hücrelere tıklayabildiğinizi, şeritte, sayfalarda hareket edebildiğinizi gözlemleyebilirsiniz.

 Sub test()
    For i = 1 To 1000000
        toplam = toplam + i
        Range("A1").Value = toplam
        DoEvents
     Next i
End Sub