Dim bOPen_UserForm1 As Boolean: bOPen_UserForm1 = False Dim f As UserForm For Each f In UserForms If TypeOf f Is UserForm1 Then bOPen_UserForm1 = True 'MsgBox "開かれている" End If Next If bOPen_UserForm1 = False Then Exit Sub End If 'ダイ…