http://tanimoto.to/lifelong_education/EXcelVBA/index.html
上記のHPを参考に、エクセルに問題と回答選択肢を入力してクイズを解くマクロを作成しています(上記サイトでは、選択肢の数が5つですが、私は4つです)。
Sheet1には、A列に問題ナンバー、B列に問題、C列に正答、D,E,Fに正答以外の回答選択肢が入力されています。
私は画像のように、フォームを作成して、以下のGitHubに公開しているコードを作成しましたが、エラーがでます。
https://gist.github.com/cpsaku/73cd1ca9973ff556913089df1e6a821c
エラーは以下です。
・問題を提示するテキストボックスの文字の折り返しを WordWrap で True にしているのに、折り返されない。
・選択肢ボタンに、回答選択肢が上手く配置されない(同じ行の空欄セルが割り当てられることがある)
・正答/誤答の判定が間違っている
どの点を修正したら良いかご指摘をいただければ幸いです。
よろしくお願いいたします。
コメント(2件)
→「MultiLine」もon
選択肢
→乱数が(0~4)+1→1~5だから空欄になる事がある。
また同じ値が続く可能性を考慮する必要がある。
一旦順番通りに設定した後、乱数を使って入れ替える方が良い。
(とりあえずは正解と乱数で決めた項目を入れ替えるとか…)
正誤判定
→乱数の結果次第で62行目に到達しなかったり何度も到達する可能性がある。
また68行目の「CorrectAns = 1」で1番が正解扱いになってる。
折り返し
→ 教えて頂いた方法で解決しました。
正誤判定
→ 当該のコードを削除することで上手くいきました
選択肢
→ 66行目のコードを64行目に置くべきでした。そこを修正すると解決いたしました。
この度は本当にありがとうございました。