Excel VBA質問箱 IV

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

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


75818 / 76738 ←次へ | 前へ→

【5352】Re:こっちでも問題なしですが・・・
お礼  123  - 03/5/7(水) 18:56 -

引用なし
パスワード
   ▼Jaka さん こうさん つんさん:こんばんは。

以下のコードでやってみたら、できました。

(Worksheet1にて)
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub

Private Sub Worksheet_Deactivate()
If UserForms.Count > 0 Then
Unload UserForm1
End If
End Sub

(Worksheet2にて)
Private Sub Worksheet_Activate()
UserForm2.Show
End Sub

Private Sub Worksheet_Deactivate()
If UserForms.Count > 0 Then
Unload UserForm2
End If
End Sub

Jakaさん ありがとうございました。

でも なんで できなかったのでしょうか。
原因がわかりません。

とにかく ありがとうございました。

こうさん つんさん お忙しいところ
ありがとうございました。
11 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 質問

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