Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

55421 / 76738

←次へ　｜　前へ→


	【26091】Re:あるブックから別ブックのフォームを...

りん

- 05/6/23(木) 14:15 -


	引用なし

	パスワード

のんさん、こんにちわ。

>>今回の動作実験内容
>>Book1.xls,Book2.xlsをDドライブのルートに保存
>>■Book1.xlsの標準モジュールに以下を記述・・・
>動作内容は先ほどりんさんが表記してくださったとおりです。
さっきの動作実験の内容でブックを作ってみて動作させてみてください。
（保存先のドライブ、フォルダは自由にして、読込先をちゃんと指定してください）
のんさんの期待通りの動きをすれば、現在のコードに問題があるし、同様にエラーになるなら別の所に問題があると思われます。
ついでに、DoEventsを足してみてください。
Private Sub UserForm_Activate()
　 ThisWorkbook.Activate
　 DoEvents
End Sub

>>あと、気になるのは、
>>ActiveWorkbook.Windows("book2").Activate　←これがエラーにならないのが不思議です
>私としては、book2がアクティブになればいいと思いいれたのですが
Book2.xlsを開いた場合、そのウィンドウは
ActiveWorkbook.Windows("book2.xls").Activate
になると思うのですけど。

書き忘れていましたが、動作確認は Win98 & XL2Kです。

0 hits

▼

【26083】あるブックから別ブックのフォームを開く... のん 05/6/23(木) 11:50