Excel VBA質問箱 IV

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

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


32927 / 76734 ←次へ | 前へ→

【49034】Re:複数のユーザーフォーム使用時のエラー
発言  Jaka  - 07/5/21(月) 14:49 -

引用なし
パスワード
   フォーム上でロード、アンロードを繰り返して、帰る場所を見失いそうな気がするので、
こんな感じにしてみたけれど....。

標準モジュール
Public FLG As Integer

Sub mmdmmd()
UserForm1.Show
Do
 If FLG = 1 Then
   UserForm2.Show
 ElseIf FLG = 2 Then
   UserForm1.Show
 End If
Loop Until FLG = 0
End Sub

フォーム1
Private Sub CommandButton1_Click()
FLG = 1
Unload Me
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> vbFormCode Then
  FLG = 0
End If
End Sub

フォーム2
Private Sub CommandButton1_Click()
FLG = 2
Unload Me
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> vbFormCode Then
  FLG = 0
End If
End Sub
2 hits

【49011】複数のユーザーフォーム使用時のエラー びぎなぁ 07/5/21(月) 1:17 質問
【49013】Re:複数のユーザーフォーム使用時のエラー ponpon 07/5/21(月) 2:06 発言
【49015】Re:複数のユーザーフォーム使用時のエラー ichinose 07/5/21(月) 7:42 発言
【49027】Re:複数のユーザーフォーム使用時のエラー ponpon 07/5/21(月) 13:23 発言
【49034】Re:複数のユーザーフォーム使用時のエラー Jaka 07/5/21(月) 14:49 発言
【49064】Re:複数のユーザーフォーム使用時のエラー びぎなぁ 07/5/22(火) 10:41 お礼
【49093】Re:複数のユーザーフォーム使用時のエラー ichinose 07/5/22(火) 20:43 発言

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