VBAユーザーフォームの複数のコンボボックスについて。

複数のコンドボックスがあり、それぞれに正しい文字を選んで文章は完成させるゲームを作っています。
正しい文章が成立したら「答える」を押したら「正解」と出したいです。

Private Sub UserForm_Initialize()

With ComboBox1
.AddItem "の"
.AddItem "を"
.AddItem "が"
.AddItem "は"
.AddItem "に"

End With

With ComboBox2
.AddItem "の"
.AddItem "を"
.AddItem "が"
.AddItem "は"
.AddItem "に"

End With

With ComboBox3
.AddItem "の"
.AddItem "を"
.AddItem "が"
.AddItem "は"
.AddItem "る"

End With

ここまでしか出来てないです。
ユーザーフォームの初心者ですがどうかご教示お願い致します。

No.1 ベストアンサー 回答者： mygoonickname 回答日時： 2022/04/25 08:24

おはようございます。

コマンドボタンを押した時に、ComboBox〇.Valueの値をチェックすれば
良いかと思います。

Private Sub CommandButton1_Click()
If ComboBox1.Value ="の" And ComboBox2.Value ="を" And ComboBox3.Value ="る" Then
Msgbox "正解"
Else
Msgbox "違います。"
End If
End Sub

この回答へのお礼

おはようございます。
早朝にも関わらず、ご回答頂き誠に有難う御座いました。
直ぐにコードを打ち、実行したら「あっ！」というまに出来ました。
とても分かりやすく理解出来ました！
本当に有難う御座いました。

お礼日時：2022/04/25 08:53