【VBA】イミディエイトウィンドウをクリアする

VBA

イミディエイトウィンドウをクリアする

VBA実行時、イミディエイトウィンドウをきれいにしてから実行したいという人もいると思います。大きく①Debug.Printで改行を200回やる方法と、②SendKeyを使う方法とあるのですが、①Debug.Printだとうまく消えきらなかったため（前回のが残ってしまう）、SendKeyでやることにしました。SendKeyもどうかいう意見もあると思いますが、私の環境では問題なく使えているので是非使ってみてください。

 

'=========================================================
'[概  要] イミディエイトウィンドウ内をクリアする
'[引　数] なし
'[戻り値] なし
'[備　考]
'=========================================================
Sub ClearImmediate()
   
    '誤動作防止：イミディエイトウィンドウが非表示だったら終了
    If Not Application.VBE.Windows("イミディエイト").Visible Then
        Exit Sub
    End If
   
    SendKeys "^g"          'イミディエイトウィンドウにフォーカス
    SendKeys "^a"          '全選択
    SendKeys "{Del}"       'Delete

End Sub