EXCEL VBA如何清空立即窗口啊

游乐缘

试试ClearImmediateWindow，其中使用API GetKeyState检查数字键盘的状态，防止数字锁定被Application.Sendkeys取消。

1. Option Explicit
   
2. 
   
3. Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
   
4. 
   
5. Private Sub ClearImmediateWindow()
   
6.     Const NUMLOCKKEYCODE = 144
   
7.     Dim NumLockState As Integer
   
8.    
   
9.     NumLockState = GetKeyState(NUMLOCKKEYCODE)
   
10.     Call Application.SendKeys("^g^a{DEL}{F7}", True)
    
11.     If NumLockState <> GetKeyState(NUMLOCKKEYCODE) Then Call Application.SendKeys("{NUMLOCK}", True)
    
12. End Sub
    
13. 
    
14. Sub Test_ClearImmediateWindow()
    
15.     Dim x As Integer
    
16.     For x = 1 To 10
    
17.         Debug.Print String(20, Chr(64 + x))
    
18.     Next x
    
19. 
    
20.     ClearImmediateWindow
    
21. End Sub
    

复制代码

opel-wong

游乐缘 发表于 2022-9-22 10:53
试试ClearImmediateWindow，其中使用API GetKeyState检查数字键盘的状态，防止数字锁定被Application.Sendk ...

模块中测试了下，可用！

peter199083

游乐缘 发表于 2022-9-22 10:53
试试ClearImmediateWindow，其中使用API GetKeyState检查数字键盘的状态，防止数字锁定被Application.Sendk ...

这个方法在我的VBA下面也存在F8单步结果和运行结果不一样的情况：F8单步执行时，可以实现功能。

smiletwo

     全选+删除