エクセル VBA メッセージボックス

質問

メッセージボックスにYESとNOがあって、YESを押したら次の質問でYESとNOが出るようにしたい。
最終的にフォームが出るように。
式がわからないのでお願いします。

回答No.1

hana-hana3 · ベストアンサー

何をしたいのか意味がわかりませんが・・・。

Sub sample()
Dim ans As Long
ans = MsgBox("質問１　", vbYesNo, "TEST")
If ans = vbYes Then
MsgBox "YES!!"
Else
MsgBox "NO!"
End If
End Sub