application.onkey doesn't work when for...next... is running

[jackni]

Hello, Everyone. In my Test.xlsm Excel workbook.
thisworkbook code is :
sub workbook_open()

Application.OnKey "{ESC}", "a"​

end sub

the module code is :
sub a()

thisworkbook.close savechanges:=fasle​

end sub
sub b()

for i=1 to 1048576​

sheet1.cells(i,1)=i​

doevents​

next​

end sub

Now, here is my question,when sub b is not running, if you press {ESC}, this workbook will be closed normally.
but when sub b is running, if you press {ESC}, Excel doesn't responding.
WHY? Can someone here help me, Thank you !!!

 

[Jaafar Tribak]

The loop seems to lock the Onkey event .

Try this and see if it works for you :

#If VBA7 Then
    Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Else]#Else[/URL] 
    Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=End]#End[/URL]  If

Sub b()
    For i = 1 To 1048576
        Sheet1.Cells(i, 1) = i
        MyDoEvents
    Next
End Sub

Sub MyDoEvents()
    DoEvents: If GetAsyncKeyState(vbKeyEscape) Then Call a: End
End Sub

 

[jackni]

The loop seems to lock the Onkey event .

Try this and see if it works for you :

#If VBA7 Then
    Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
[URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Else"]#Else[/URL] 
    Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
[URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=End"]#End[/URL]  If

Sub b()
    For i = 1 To 1048576
        Sheet1.Cells(i, 1) = i
        MyDoEvents
    Next
End Sub

Sub MyDoEvents()
    DoEvents: If GetAsyncKeyState(vbKeyEscape) Then Call a: End
End Sub

Hi,Jaafar Tribak
IT WORKED!!!
THANK YOU VERY MUCH! The application.onkey finally works under any circumstances. Thank you. You are very kind.