VBAユーザーフォームでテキストボックスについて。

ユーザーフォームに表示された色を答えるゲームを作っています。
"赤"なら「赤」と正解が出るのですが、"あか"　と入力しても正解を出したいです。

Private Sub CommandButton1_Click()

If TextBox1.Value = "赤" Then
MsgBox "正解！ (*´?`*ﾉﾉﾞﾊﾟﾁﾊﾟﾁ"
'Unload UserForm1
'UserForm2.Show
Else
MsgBox "ちがうよ。"
End If
End Sub

ご教授お願い致します。

No.1 ベストアンサー 回答者： neKo_deux 回答日時： 2022/05/31 12:31

> If TextBox1.Value = "赤" Then

を、
If (TextBox1.Value = "赤") or (TextBox1.Value = "あか") Then
とか。


red、紅、赤色、朱、丹、緋
とかは正解にならないの？

この回答へのお礼

ご教授ありがとうございました！

red、紅、赤色、朱、丹、緋も正解ですね！

発達障がいを持った子供にもわかるように一般的な呼び方でやってみました。
状況をみて上記な色の表現も入れてみたいと思います。

お礼日時：2022/05/31 12:51