VBAで指定したブックを前面に表示するには

質問

ブックAとブックBがあります。

ブックAのマクロの途中、InputBoxでブックBのセルを選択させて
処理終了後に再びブックAを前面に表示するには
どうしたら良いでしょうか？

下記コードを実行したところ、
ブックBが前面になって終了してしまいます。

InputBoxの挙動が関係している気がするのですが、原因がわかりませんでした。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Sub テスト()

'※このマクロはブックAに書かれてます

Dim rng As Range

On Error Resume Next
Set rng = Application.InputBox( _
Prompt:="ブックBのセルを選択してください。", _
Type:=8)
On Error GoTo 0
If rng Is Nothing Then Exit Sub

'～
'～　ここで処理をする
'～

MsgBox "処理完了"

ThisWorkbook.Activate 'ここでブックAを前面に出したい

End Sub
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

ExcelはOffice365（バージョン 1902）です。
よろしくお願いします。

回答No.2

kkkkkm · ベストアンサー

A、B、両方開いてブックBのセルを選択した後にInputBoxのOKを押した途端にブックAが前面になり、MsgBox "処理完了"が出ます。

途中の処理に何かあるのかもしれません。

MsgBox "処理完了"
の前後か
ThisWorkbook.Activate
の前後に
AppActivate Application.Caption

を入れてみてはいかがでしょう。

参考にしたサイトのリンクを張っていたのですが、リンクを張ると監査が入って回答が即表示されないサイトだったのでリンクを外して再回答します。

お礼

ありがとうございます！
AppActivate Application.Caption
で解決しました！

補足

『VBA ブックを前面に』などのキーワードで探したつもりだったのですが見つけられませんでした。
AppActivateは調べてたのですが、ウィンドウ名の指定を誤ったのか うまく動かず。。

Application.Captionで動的に持ってこれるんですね。

もし良ければ後学のため、
参考サイトのリンクを（時間かかっても構わないので）教えてもらえませんが？

回答No.4

kkkkkm

> 参考サイトのリンクを（時間かかっても構わないので）教えてもらえませんが？

私が検索した語句は
vba 前面に表示
で、Googleで上から4つ目にありました。

ExcelVBAで他のアプリを起動したあとに、マクロ動かしてるExcelを手前にもってきたい件

で検索すると一番上に出てくると思います。
URLを以下のような書き方にしたら通るかもしれないので
https://qii??.com/ditflame/items/9ca1fb78de4dbba7bc4c
?にアルファベットを入れてください。??=ta

お礼

ありがとうございます！勉強します！

回答No.3

kkkkkm

No2の
の前後に
は
の前後のどちらかに
です。

回答No.1

kkkkkm

2013ですが、質問のコードのままVBEの画面で実行するとVBEに戻りブックBがAより前になっていますが、VBEの画面を非表示にし、ブックAを前面に表示した状態でタブのマクロの実行をするとブックAが最後に前面に来ます。

念のためにブックAのセルを最後に選択するようにしてみてはいかがでしょう。

お礼

早々の回答ありがとうございます。
バージョンによって挙動が変わるのでしょうか・・。

補足

コードの最後に
ThisWorkbook.Worksheets(1).Range("A1").Select
を加えて、VBE画面を×で閉じて、開発タブのマクロ実行してみましたが、
変わらずブックBが前面に表示されます。
（ちなみにブックAは隠れたままでしたが、想定通りにA1セルが選択されました）

念のため補足ですが、
ブックA、ブックBを両方開いた状態で、マクロを実行しています。