hwc2ycy

http://www.excelpx.com/?284853

立即窗口

热度 6已有 1962 次阅读2012-7-29 19:56 |个人分类:VBA

论坛上看到的，先存这，很实用的。

Sub ClearImmediate()
Debug.Print "this is atest"
With Application.VBE.Windows("立即窗口")
.Visible = True
.SetFocus
VBA.SendKeys "^{a}"
VBA.SendKeys "{del}"
' .Visible = False'关闭立即窗口！
End With
End Sub

刚表态过的朋友 (0 人)

收藏邀请举报

全部作者的其他最新日志

发表评论评论 (2 个评论)

回复 guogongyi 2013-8-7 07:22: 很好

回复香川群子 2014-4-4 13:39: 要存就存个简单一点的：
Sub ClearImmediate() '彻底清空立即窗口
Application.VBE.Windows("立即窗口").SetFocus
VBA.SendKeys "^{a}": VBA.SendKeys "{del}"
End Sub

注意，本代码只能单独使用，不可以写入过程代码或被调用作为中间清空用。

即，该代码被调用运行以后，直到主过程代码结束、立即窗口不再能写入Debug.Print记录

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-4-25 15:29 , Processed in 0.289603 second(s), 8 queries , Gzip On, Yac On.

		自动登录	找回密码
密码			注册

hwc2ycy

立即窗口

刚表态过的朋友 (0 人)

全部作者的其他最新日志

发表评论 评论 (2 个评论)

发表评论评论 (2 个评论)