エクセルの四者択一で、正解判定の方法は？

エクセルで、四者択一問題を作成中です。
前回、回答していただいたお陰で、次々と問題を選択できるようになったのですが、

フォーム中の、ｔｘｔ解答欄に１～４の数字を入力し、ｃｍｄ判定ボタンをクリックすると、データシートのＮ行目の６列目にある解答欄の数字と比べ、ｔｘｔ判定欄に正解か間違いを表示しようと考えているのですが、

　If txt解答.Value = Worksheets("データ").Cells(n, 6).Value Then
txt判定.Value = "正 解"
Else
txt判定.Value = "間違い"

End If
間違いばかりが表示されて、正解が表示されません。
ちなみに、
TextBox6 = Worksheets("データ").Cells(n, 6).Value　とすると
フォーム中のTextBox6にはｔｘｔ解答欄に入力した正解の“３”が表示されています。
どこが、悪いのでしょうか？

No.3 ベストアンサー 回答者： yasheeki 回答日時： 2009/11/30 23:47

Dim text as Sting

Dim num as Long
num = StrConv(text, vbNarrow)
とすると、
全角の３でも, 半角の3でも
勝手にVisual Basic がLong型に変換してくれますね。
これを、num = Clng(StrConv(text, vbNarrow))
とすると、より良いかも。
Visual Basic では、通常 "3" は 3 に変換しますね。
他の言語では、なかなかこんな風にはいかないようです(VB は超便利です)

この回答へのお礼

すごい関数があるのですね。この関数だと
プログラムも簡潔にできると思います。
ＶＢは奥が深いことがわかったので、
これから少しずつ勉強していきたいと思います。
有り難うございました。

お礼日時：2009/12/01 21:11

No.2 回答者： myRange 回答日時： 2009/11/28 23:28

TexBoxに入力された値は、たとえ数字を入れたとしても

それは、数値ではなく文字列なので、VALやCINTなどの関数を使って、TextBoxの数字を数値に変換してやらなければいけません。

●TextBoxの数字が全角、半角どちらでも許可する場合

If CInt(txt解答.Value) = Worksheets("データ").Cells(n, 6).Value Then

●TextBoxの数字が、必ず半角の場合は、VALでもいい

If Val(txt解答.Value) = Worksheets("データ").Cells(n, 6).Value Then

以上です。

この回答へのお礼

早速回答を頂き有り難うございました。
３は数字ばかりと思っていました。TextBoxなので文字列なのですね。
教えていただいたとおり、Ｖａｌ関数でくくってやると、"正解"の２文字が出ました。本当に「正解」を教えていただき、有り難うございました。

お礼日時：2009/11/29 15:11

No.1 回答者： hana-hana3 回答日時： 2009/11/28 21:53

＞TextBox6 = Worksheets("データ").Cells(n, 6).Value　とすると

フォーム中のTextBox6にはｔｘｔ解答欄に入力した正解の“３”が表示されています。

この文章では”ｔｘｔ解答欄”の値が正しいと検証されていませんけど・・・？
セルの回答値を取得出来ているだけですよね？

MsgBox ｔｘｔ解答欄.Value
MsgBox Worksheets("データ").Cells(n, 6).Value
とか、
MsgBox ｔｘｔ解答欄.Value & "/" & Worksheets("データ").Cells(n, 6).Value
などとして、双方の値を表示させて確認してみてはいかがですか？

この回答へのお礼

早速回答を頂き有り難うございました。
３が文字であることがわかりました。フォーム中では、数字の３の
つもりで見ていました。ＶＡＬ関数で数字にすると、正解が出ました。
うまくいきました。有り難うございました。

お礼日時：2009/11/29 15:21