Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50149 / 76732

←次へ　｜　前へ→


	【31478】Re:５秒ごとにフォームを出す方法

あゆ - 05/11/22(火) 15:33 -


	引用なし

	パスワード

お礼を書いた後ですが、また質問があります。
実行１フォームは、問題文と、４選択の解答ボタンから成る学習システムのパーツなのですが、（次の問題へ・前の問題へ・採点・ヒントボタンもあります）一問を解く時間を５秒としたいため、時間切れですとでる仕方を聞いていたのですが、今は「一問とく時間が」ではなく、「実行１が起動してから」５秒経ったら、ブーという音とメッセージが出てきます。そこで
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の部分を解答ボタンのところに追加していったのですが、
次の問題にいくと５秒経っても何の反応もありません。どうしたらよいのでしょうか？教えてください。

0 hits

▼

【31279】５秒ごとにフォームを出す方法 あゆ 05/11/16(水) 15:40