Excel VBA質問箱 IV

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

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


75821 / 76732 ←次へ | 前へ→

【5343】こっちでも問題なしですが・・・
発言  つん E-MAIL  - 03/5/7(水) 14:11 -

引用なし
パスワード
   123 さん、こうさん、こんにちは
横から失礼します。

私の方でも、試してみましたが、
特にエラーは発生しませんでした。
こちらも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が表示されてしまうと思いますが・・・・

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

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

0 hits

【5325】ユーザーフォームが表示されていなかったら 123 03/5/6(火) 21:28 質問
【5326】再現しないです。 こう@連休無し!! 03/5/6(火) 22:41 回答
【5333】Re:再現しないです。 123 03/5/7(水) 10:47 質問
【5337】ステップ実行で,エラーが発生する行を特定... こう@昼休みも無し!! 03/5/7(水) 12:22 回答
【5341】Re:ステップ実行で,エラーが発生する行を特... 123 03/5/7(水) 13:20 質問
【5343】こっちでも問題なしですが・・・ つん 03/5/7(水) 14:11 発言
【5344】Re:こっちでも問題なしですが・・・ Jaka 03/5/7(水) 14:22 回答
【5352】Re:こっちでも問題なしですが・・・ 123 03/5/7(水) 18:56 お礼
【5351】Re:こっちでも問題なしですが・・・ 123 03/5/7(水) 18:43 質問
【5354】論より証拠ってことで・・・ こう@夜休みも無し!! 03/5/7(水) 20:34 回答
【5355】Re:論より証拠ってことで・・・ 123 03/5/7(水) 21:17 お礼
【5356】Re:論より証拠ってことで・・・ こう@そして夜がふける... 03/5/7(水) 22:02 回答
【5394】再現しました こう 03/5/9(金) 19:10 質問

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