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

フォームのコード

---

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

---

ネタ元

• http://www.moug.net/tech/exvba/0090001.html