Excel2013で複数のブックの表示を切換たい

質問

Excel2013で複数のブックを開いている時、フォームのボタンで表示するブックを切り替えたいのですが・・・。

Excel2013で複数のブック１~５を開いているときにVBA（ブック５.Activate）を使って、ブック5を前面に持ってきたいのですがうまく行きません。

詳細は、ブック１~５が既に開いている状態で、「ブック1の作業を終了しますか？」というフォームの「終了」ボタンを押すと新しいフォーム（ブック５で行う作業内容や手順の書かれたもの）を最前面に表示し、その背面にブック５を表示したいのですが、現状は、新しいフォームは最前面に表示されるのですが、ブック５は、ちゃんと新しいフォームの背面に表示されるときもあれば、ブック１~４のさらに背面に表示されたり、ブック１の背面に表示されたりとランダムな位置に表示されてしまいます。何か良い方法がございましたら教えて頂きますようお願い致します。

回答No.5

kkkkkm · ベストアンサー

> 何か考えることがありましたら、引き続きよろしくお願いします。

こちらの環境ではうまくいかないことがないので、これで直りますという実証が出来ないのですが

AppActivate "Book5.xlsm - Excel"
や
VBA.AppActivate Excel.Application.Caption
などのコードを
Workbooks("Book5.xlsm").Activate
の前に入れるという方法があるようです。

他のアプリからエクセルに戻す場合には
DoEvents
を前に入れておくというのもありました。

このあたりのコードを入れてみてはいかがでしょう。

お礼

Excel2013ではフォームがメモリに読み込まれた時点でのExcel表の上にフォームが表示されるようです。
編集するブックを開く毎に、操作するフォームを読み直す事で解決できました。

ご協力ありがとうございました。

回答No.4

tsubu-yuki

少々前の話題に横から失礼します。

私も　ScreenUpdating = False　が悪戯してると思う口です。
ま、正直なところ
>現在のコード
>Private Sub CommandButton1_Click()
>Application.ScreenUpdating = False
>Workbooks("Book5.xlsm").Activate
>ActiveWindow.WindowState = xlMaximized
>フォーム２.Show vbModeless
>Application.ScreenUpdating = True
>End Sub
この程度の処理であればウィンドウのちらつきも気にならないと思いますし。
ボタンを押してからフォーム２を表示するまでに何らかの別処理をしているなら別ですけどね。

どうしても、というなら　ScreenUpdating = True　のあとに
改めてブック５をアクティベート、最大化したらいかがでしょう？

お礼

編集するブックを開く毎に、操作するフォームを読み直す事で解決できました。

ご協力ありがとうございました。

回答No.3

kkkkkm

こちらでkuku008110さんのコードを現状開いているファイルの表示順を変えて10回程度試してみましたが、異常な動きはありませんでした。Win10Excel2013
試しに
Application.ScreenUpdating
をやめてみてはいかがでしょう。
古い記述のようですが、下記のページにApplication.ScreenUpdatingの問題点が記載されています。
http://excel-ubara.com/excelvba4/EXCEL252.html
ThisWorkbook.Activateとかで、ウインドウが正しく切り変わりません。
という記述も見られます。

補足

大変お世話になっております。
早速試してみましたが、１０回に１回ぐらいしか正常に動作しません
でした。
何か考えることがありましたら、引き続きよろしくお願いします。

回答No.2

kkkkkm

> 元のフォームは手順等表示用のブックで、ブック１~５は作業ごとに作られるブックですのでご教授頂いた方法は使えないと思います。

そうですか、それで kuku008110さんは現状どのような仕様やコードで作られているのでしょうか？

補足

現在のコード
Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Workbooks("Book5.xlsm").Activate

ActiveWindow.WindowState = xlMaximized

フォーム２.Show vbModeless

Application.ScreenUpdating = True
End Sub

回答No.1

kkkkkm

元のフォームがどこで作られてコードがどのようになっているのかわからないですが、とりあえず

新しいフォーム（ブック５で行う作業内容や手順の書かれたもの）はBook5のユーザーフォームで作成してください。以下のコードでは仮にフォームの名前をManualFormとしたものとして記述してます。
Book5の標準モジュールに
Public Sub ManualFormShow()
ManualForm.Show
End Sub

ブック１の「ブック1の作業を終了しますか？」の終了ボタン(CommandButton1として)に以下のコードを記載します。
Private Sub CommandButton1_Click()
Unload Me
Workbooks("Book5.xlsm").Activate
Application.Run "Book5.xlsm!ManualFormShow"
End Sub

補足

早速ありがとうございます。
元のフォームは手順等表示用のブックで、ブック１~５は作業ごとに作られるブックですのでご教授頂いた方法は使えないと思います。