ユーザーフォームを使ってvbOKやvbCancel処理する

excelvba

フォームのコード

Private Sub CommandButton_No_Click()

    UserForm1.Tag = vbCancel
    UserForm1.Hide

End Sub

Private Sub CommandButton_Yes_Click()

    UserForm1.Tag = vbOK
    UserForm1.Hide

End Sub

Private Sub UserForm_Initialize()
    UserForm1.Tag = vbCancel
End Sub

呼び出し元のコード

    UserForm1.Show

    If UserForm1.Tag = vbOK Then
        MsgBox "Yesがクリックされました"
    ElseIf UserForm1.Tag = vbCancel Then
        MsgBox "Cancelがクリックされました"
    End If

    Unload UserForm1

ネタ元