Excel VBA質問箱 IV

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

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


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

75896 / 76807

←次へ　｜　前へ→


	【5343】こっちでも問題なしですが・・・

つん

- 03/5/7(水) 14:11 -


	引用なし

	パスワード

１２３さん、こうさん、こんにちは
横から失礼します。

私の方でも、試してみましたが、
特にエラーは発生しませんでした。
こちらもExcel2002です。

>If Userform1.Visible = True　Then

この形もしてみましたけど、特に問題なかったなあ～

>実は、Worksheet1とをActiveにすると、UserForm1が表示され、
>Worksheet2をActiveにすると、UserForm2が表示されるように
>したいのです。
>従って、Worksheet2にも、逆パターンでコードを記述しています。

それやったら、単純に

Private Sub Worksheet_Activate()
　　UserForm1.Show vbModeless
End Sub

Private Sub Worksheet_Deactivate()
　　 Unload UserForm1
End Sub

とやったらどうでしょうか？

Private Sub Worksheet_Deactivate()
　　Unload Userform1
　　Userform2.Show
End

これやったら、例えばSheet2以外のシートに飛んだ場合でも、
Userform2が表示されてしまうと思いますが・・・・

問題解決にならないレスですみません。
でも、こうさんとこでも、私の所でも再現しないっちゅーことは、
なにか別の所に問題があるのでは？？？？

こうさん
お忙しいのですね。お疲れさんどす。
風邪はやってるし、お体に気を付けてくださいまし～

9 hits

▼

【5325】ユーザーフォームが表示されていなかったら １２３ 03/5/6(火) 21:28