採点結果を集計し、合否の判定を表示した後、10秒後にファイルが閉じる、マクロ

お世話になります。

○×問題をエクセルで作り、別シートでＩＦ関数で採点するように設定しました。（Hiddenで隠していますので受験者にはすぐには見られません）
そして、フォームボタンで「送信」ボタンを作成し、そのボタンを押すと、私のメールアドレスに添付ファイルで送られる、というマクロを組んでいます。

これに、追加したい項目があります。
(1)フォームボタンを押すと、80点以上なら「合」、それ未満なら「否」というのを10秒ほど表示させ、受験者に合否をその場で知らせたい。（合否は、イラスト（gif等）を挿入させるようなので考えています）
(2)合否の表示がされ、メールが送信されたら、内容を保存しないで、ファイルを閉じたい。

以上の2点のようなことは可能でしょうか？
何分初心者のもので、、、ご教示いただけると助かります！

No.1 ベストアンサー 回答者： chibita_papa 回答日時： 2008/08/01 10:48

可能です。

> 10秒ほど表示させ
Dim start As Date
start = Now

Do Until Now > start + TimeSerial(0, 0, 10)
DoEvents
Loop

又は、

Application.OnTime　を使い１０秒後にプログラムを動かす

> 内容を保存しないで、ファイルを閉じたい
Application.DisplayAlerts = False
Application.Quit

>メールが送信されたら
BASP21を使う
http://www.hi-ho.ne.jp/babaq/basp21.html

この回答へのお礼

早速のご返答ありがとうございます！！
おかげでマクロを組むことができました。
合否はＩＦ関数で文字をいれ、色を変えて表示することで解決したので、望みの形に１００％作ることができました。

本当に本当に感謝します。
ありがとうございました！

お礼日時：2008/08/01 12:33