|
>新規ブックにて ユーザーフォームを一つ作成してください(UserForm1)。
>このUserForm1にコマンドボタンを二つ配置してください。
> CommandButton1 ----本当にUserForm1を非表示にしてよいか確認する
> CommandButton2 -----確認なしにUserForm1を非表示にする
>
>このUserForm1のモジュールには、
Option Explicit
'=============================================
Public Disp_sw As Boolean
'=============================================
Private Sub CommandButton1_Click()
Me.Hide
If MsgBox("本当に終了しますか", vbYesNo) = vbNo Then
Disp_sw = True
End If
If Disp_sw = False Then MsgBox "終了します"
End Sub
'=============================================
Private Sub CommandButton2_Click()
Me.Hide
End Sub
'=============================================
Private Sub UserForm_Activate()
Disp_sw = False
End Sub
>
>標準モジュールに
>
'========================================================
Sub test1()
UserForm1.Disp_sw = True
Do While UserForm1.Disp_sw = True
UserForm1.Show
Loop
Unload UserForm1
End Sub
これで試してください。
確認できたら、本来問題にしているコードに応用してください。
|
|