VBE 画面で SendKeys を実行すると、コードペインに文字が出力されてしまう。

VBE に出力されてしまう

VBE（Visual Basic Editor）から SendKeys を含んだマクロを実行すると、 VBE のコードペイン（マクロを打ち込む画面）に SendKeys で送った文字が出力されてしまいました。

今回の投稿では、 VBE の画面から SendKeys を含んだマクロを実行して、ワークシートに出力出来るようにマクロを修正してみたいと思います。

目次まで戻る

ご注意ください

私の場合、 SendKeys ステートメントを使用したマクロを実行する度に「NumLock」が OFF になってしまいます。

原因は不明ですが、「NumLock」キーを押すと ON に戻ったので、そのままにしています。

目次まで戻る

再現

VBE の画面に文字が出力される状態を再現してみます。

以下のマクロを VBE から実行してみます。エクセルのワークシートから以下のマクロを実行すると VBE に文字が出力される事はありませんでした。

文字の入力カーソルは「Sub」の前「1 行 1 桁」に合っています。

「VBE アプリ > 実行メニュー > Sub/ユーザーフォームの実行（F5）」で実行してみます。

Sub VBE画面でSendKeys実行()
    SendKeys "a{ENTER}", True
End Sub

マクロ実行前の VBE の画面は以下のようになっていました。

上記マクロを実行してみると、以下の画像のようになりました。「Sub」の前に「a」と出力さています。入力カーソルのあった位置に文字が出力されたようです。

目次まで戻る

マクロの一例

色々と試してみた結果、 VBE を非表示にして DoEvents を追加する事で、ワークシートに文字を出力する事が出来ました。

Sub DoEvents_VBE非表示_VBE画面でSendKeys実行()

  DoEvents 'SendKeys 以外の VBA の命令の前に入れてみました
  Application.VBE.MainWindow.Visible = False 'VBE 非表示

  SendKeys "a{ENTER}", True

  DoEvents
  Application.VBE.MainWindow.Visible = True 'VBE 表示

End Sub

「Application.VBE.MainWindow.Visible = False」で VBE を一旦非表示にして「.Visible = Ture」で再表示する処理を追加しました。

SendKeys 以外の VBA の命令の前に「DoEvents」を追加してみました。

私の場合、 DoEvents のフロー制御の仕組みは分かっていませんが、この一文がないと、コードペインに文字が出力されてしまいました。

以下のワークシートの状態で VBE から上記マクロを実行してみます。「B2」セルが選択状態になっています。