Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


50149 / 76732 ←次へ | 前へ→

【31478】Re:5秒ごとにフォームを出す方法
質問  あゆ  - 05/11/22(火) 15:33 -

引用なし
パスワード
   お礼を書いた後ですが、また質問があります。
実行1フォームは、問題文と、4選択の解答ボタンから成る学習システムのパーツなのですが、(次の問題へ・前の問題へ・採点・ヒントボタンもあります)一問を解く時間を5秒としたいため、時間切れですとでる仕方を聞いていたのですが、今は「一問とく時間が」ではなく、「実行1が起動してから」5秒経ったら、ブーという音とメッセージが出てきます。そこで
Private Sub CommandButton5_Click() '解答Aボタンが押されたら'
  seikai = "A"
  Unload 問題の実行1
  If Lst <> "" Then
    Application.OnTime Lst, "MySC(Lst)", , False
  End If
  hantei (seikai)
End Sub
のように、If〜End Subの部分を解答ボタンのところに追加していったのですが、
次の問題にいくと5秒経っても何の反応もありません。どうしたらよいのでしょうか?教えてください。
0 hits

【31279】5秒ごとにフォームを出す方法 あゆ 05/11/16(水) 15:40 質問
【31289】Re:5秒ごとにフォームを出す方法 Kein 05/11/16(水) 16:49 発言
【31468】Re:5秒ごとにフォームを出す方法 あゆ 05/11/22(火) 12:07 質問
【31470】Re:5秒ごとにフォームを出す方法 Kein 05/11/22(火) 12:21 回答
【31471】Re:5秒ごとにフォームを出す方法 あゆ 05/11/22(火) 12:56 質問
【31472】Re:5秒ごとにフォームを出す方法 Kein 05/11/22(火) 13:09 回答
【31474】Re:5秒ごとにフォームを出す方法 あゆ 05/11/22(火) 13:24 お礼
【31478】Re:5秒ごとにフォームを出す方法 あゆ 05/11/22(火) 15:33 質問

50149 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free