Excel VBA質問箱 IV

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

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


7938 / 13645 ツリー ←次へ | 前へ→

【35929】モードレスのユーザフォーム まふまふ 06/3/16(木) 11:25 質問[未読]
【35966】Re:モードレスのユーザフォーム ichinose 06/3/16(木) 22:13 発言[未読]
【35987】Re:モードレスのユーザフォーム まふまふ 06/3/17(金) 9:16 お礼[未読]

【35929】モードレスのユーザフォーム
質問  まふまふ  - 06/3/16(木) 11:25 -

引用なし
パスワード
   モードレスのユーザフォームを表示させるブックを作りました。
(ユーザフォーム内にオプションボタンがあり、選択により
 シート内のセルの表示・非表示を切り替えるというものです)
複数のブックを開いたときに邪魔になるので、
そのブックのActivateイベントで表示、Deactivateイベントで非表示しています。

他のブックで作業をしてこのブックを選ぶとユーザフォームが表示される訳なんですが、当然ユーザフォームがアクティブ状態になります。

この状態ではなく、ブックのシートを入力できる状態(ユーザフォームは表示されているけど、アクティブではない状態)にすることはできるのでしょうか?

現在は、一度ブック(シート)をマウスでクリックしてから作業しています。
WinXP、Excel2003 です。よろしくおねがいします。

【35966】Re:モードレスのユーザフォーム
発言  ichinose  - 06/3/16(木) 22:13 -

引用なし
パスワード
   ▼まふまふ さん:
こんばんは。


>モードレスのユーザフォームを表示させるブックを作りました。
>(ユーザフォーム内にオプションボタンがあり、選択により
> シート内のセルの表示・非表示を切り替えるというものです)
>複数のブックを開いたときに邪魔になるので、
>そのブックのActivateイベントで表示、Deactivateイベントで非表示しています。
>
>他のブックで作業をしてこのブックを選ぶとユーザフォームが表示される訳なんですが、当然ユーザフォームがアクティブ状態になります。
>
>この状態ではなく、ブックのシートを入力できる状態(ユーザフォームは表示されているけど、アクティブではない状態)にすることはできるのでしょうか?
>
>現在は、一度ブック(シート)をマウスでクリックしてから作業しています。
>WinXP、Excel2003 です。よろしくおねがいします。
2003では確認していませんが、

'=========================================================
Private Sub Workbook_Activate()
  UserForm1.Show vbModeless
  Application.Visible = True
End Sub
'=========================================================
Private Sub Workbook_Deactivate()
  Unload UserForm1
End Sub

これでどうでしょうか?

【35987】Re:モードレスのユーザフォーム
お礼  まふまふ  - 06/3/17(金) 9:16 -

引用なし
パスワード
   ▼ichinose さん:
回答ありがとうございます。
今早速やってみましたら、これでOKでした。
とても助かりました。
Applicationってこんな使い方できるんですね。
もっと勉強します。ありがとうございました。

7938 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free