VBA

質問

VBEの標準モジュール（例Ｍｏｄｕｌｅ１）にＶＢＡのプログラムを書き、
実行した時、ワークシート（例Ｗｏｒｋｓｈｅｅｔｓ（”ｓｈｅｅｔ１”）のウインドウを自動的に開くには（前面に持ってくるには）どのようにコーディングすれば良いのでしょうか。今は実行後確認するため、プロジェクトのＳｈｅｅｔ１で右クリックして「オブジェクトの表示」でＳｈｅｅｔ１を出したり、タスクバーをクリックしていますが。まずＳｈｅｅｔ１を前面に出して処理をしたい。Ａｃｔｉｖａｔｅ，Ｓｅｌｅｃｔ、Ｓｈｏｗなど試しても効果がありません。

回答No.5

baka · ベストアンサー

ブックやシート間での問題ではなく、Excel のウィンドウそのものを VBE のウィンドウの手前に表示したい、ということでしょうか？
だとすれば手動で切り替えるはごくあたりまえのように思います。
一応次のような方法が考えられます。違っていたら補足してください。

・VBE からではなく Excel のウィンドウからマクロを実行する
・VBE のウィンドウを最小化する (もちろん自動で元には戻りません)
Application.VBE.MainWindow.WindowState = vbext_ws_Minimize
・SetWindowPos で Excel のウィンドウを最前面にする (ただし最前面になりっぱなし)

お礼

ご解答有難うございました。２番目の方法もコピーし
実行しましたが、ＶＢＥの画面のままでした。
今後も勉強して行きます。

回答No.4

O_cyan

Moduleはコンパイルしたんですよね？

回答No.3

O_cyan

Selectで表示できるのでは？

Sub ?????()
　　　Sheets("Sheet1").Select
End Sub

単純に上記で良いと思いますが。

お礼

早速ご解答有難うございました。以前からご解答のようにもテストしているのですが、Ｍｏｄｕｌｅのコードの画面が、実行をクリックしても、ワークシートの画面に切り替わりません。どこか設定を変える必要が有るのでしょうか。今回もテストしましたがワークシートの画面になりません。エクセル２０００です。

回答No.2

yu-mizu123

Sheets("Sheet1").Select
〈Select〉または〈Activate〉でもよいです。
例　シート３のＣ１２のセル選択
Sheets("Sheet3").Activate
Range("C12").Activate
〈Select〉または〈Activate〉でもよいです。

お礼

早速ご解答有難うございました。解答のようにテストしましたが、実行をクリックしても、ワークシートの画面に切り替わりません。どこか設定を変える必要が有るのでしょうか。思い当たる節があれば教えてください。

回答No.1

baka

Activate メソッドで表示されるはずですが。

ThisWorkbook.Sheets("Sheet1").Activate

対象となるオブジェクトがきちんと指定されていないのでは？

お礼

ご回答有難うございました。お礼が送れて失礼しました。
ただ教えていただいたとおりやって、実行をクリいクしましたが、ＶＢＥの画面のままです。今後もこの件につき勉強していきます。有難うございました。