ขอวิธีการออกจาก Loop Goto ครับ

[jeerawatnatmu]

Code: Select all

Sub Pick()
PickLoop:
Application.Wait(Now + TimeValue("0:00:10"))
'สูตรต่างๆในโปรแกรม
GoTo PickLoop
End Sub

ตอนแรกจะทำ

Code: Select all

Sub Pick()
PickLoop:
Application.Wait(Now + TimeValue("0:00:10"))
'สูตรต่างๆในโปรแกรม
If KeyCode = 13 Then
GoTo Outlet
Else
GoTo PickLoop
End If
Outlet:
End Sub

แต่พอกด Enter แล้วค่า KeyCode ไม่มีค่า
พอมีวิธีไหนทำให้หลุดออก Loop โดยไม่ต้องกด Esc รั่วๆ

[snasui]

กรุณาแนบไฟล์ประกอบ อธิบายว่าต้องการจะทำอะไรมาด้วย การจะออกจาก Loop จะต้องหาให้ได้ว่าเข้าเงื่อนไขใดจึงจะออกจาก Loop

การ Loop ถ้าไม่หน่วงเวลามันจะ Loop เร็ว การกดแป้นใด ๆ อาจจะไม่เกิดผล เพราะไม่สามารถแทรกเข้าไปในการ Loop ได้ แต่หากกดแช่ไว้ก็อาจจะได้ผล ฯลฯ