人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルVBAで、4択クイズプログラムを作っています。解説の表示の仕方を教えて下さい。
エクセルVBAで4択クイズを出すプログラムを作っています。元になる問題およびフォームは画像のようになっています。VBAのプログラムは、以下の通りです。
https://gist.github.com/cpsaku/bfb052ea8c41c4c7d4c2a6509139a05c
このプログラムでは、4つのトグルボタンを押すことで、回答を求め、正答であれば○、誤答であれば×のフィードバックが表示されます。私としては、このときに、下のテキストボックスに解説を表示したいのですが、やりかたが分かりません。
どのように修正すれば良いか教えていただければ幸いです。
よろしくお願いいたします。

1527834127
●拡大する

●質問者: サク
●カテゴリ:コンピュータ ウェブ制作
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● いっし?
●200ポイント ベストアンサー

https://gist.github.com/isshii0612/f94c3b09cd717945751e77598b54bdc3

『○正解/×不正解』の部分の文章を変更(Captionプロパティの変更)する際に、
下の方のテキストボックスのTextプロパティを変更させる必要があります。

そのためには、setQuizDataプロシージャ実行時に
補足説明文を格納する必要があります。
(プロシージャ間で変数を利用することになるので、新たにパブリック変数Supplementを追加しました)

なお、『次の問題に進みますか?』のメッセージボックスで『はい』を押下後に
下部テキストボックスのTextプロパティの内容を""(空白、削除)にすれば、より自然な挙動となるでしょう。


サクさんのコメント
修正ありがとうございます。 いくつか、うまくいかない点があるので試行錯誤してみます。 1.次の問題に進みますか?にたいして「はい」を選択すると、再びMsgboxがあらわて問題が飛ばされてしまう。 2.蓄積されるデータが2列あるのですが、左の列に問題ナンバーを記録させるのですが、それも記録されていません。

サクさんのコメント
その他の回答もお待ちしております。

サクさんのコメント
試行錯誤した結果CmntRowという変数を作って、問題の行番号を一時的に保存しておくことで、求めていた動作を実現することができました。コードは以下のようになりました。ありがとうございました。 https://gist.github.com/cpsaku/8ca9e1ba8f3daa6266290d2ddb73d914
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ