[[20130314151529]]　『時間になるとダイアログが表示』（窓際おやじ）　ページの最後に飛ぶ

『時間になるとダイアログが表示』（窓際おやじ）

 こんにちは、ＶＢ勉強しようとしましたがチンプンカンプンで
 この学校で御教授出来ないかと相談させて貰いました

 ＰＣ起動と同時にタスクトレイに格納され時間が来たら表示される
 時間は、01時30分と11時50分と17時と21時です

 ダイアログのタイトルは「お知らせ」で中のメッセージは「時間です」
 （ダイアログの中は黒色で、文字は白色の太字）
 日付と曜日もメッセージのしたに表示させたいです（文字色＝白色）

 ユーザフォームは、ラベルを使用するのでしょうか
 不躾な相談ですみません

 OS=XP  Excel2003   C#2005

とりあえず簡単なメッセージ出力例です。
時間の設定はExcel起動時にセットします（Personal.xlsm等のブックで）。

OnTime　をヘルプで調べて下さい。
あと Userform　は　Labelで良いと思います。
MsgBox??　の名前は何でも良いのですが、時間が来たときに呼び出されるプログラム名になります。
中身は自由ですので Label　に文字をセットして表示になりますが、まずMsgbox　あたりで
表示の確認をされればいかがでしょうか。

結構時間待ちが多いテストになりますので、まず分や秒設定で4つのメッセージが出るかどうかの
確認されればいかがでしょうか。

（Cod）

'**********　ThisWorkBookのModuleに
Private Sub Workbook_Open()

    Application.OnTime TimeValue("07:59:00"), "MsgBox03"        '適度に時間とプログラム名は変更
    Application.OnTime TimeValue("08:59:00"), "MsgBox04"
    Application.OnTime TimeValue("09:53:00"), "MsgBox01"
    Application.OnTime TimeValue("12:58:00"), "MsgBox02"
End Sub

'**********　標準のModuleに
Sub Msgbox01()

    MsgBox "10時7分前ですよう"
End Sub
Sub Msgbox02()
    MsgBox "昼休みおしまいですよう"
End Sub

Sub Msgbox03() 'Msgbox03の事例

    MsgBox "出勤ですよう"
End Sub
Sub Msgbox04()
    MsgBox "仕事ですよう"
End Sub

 （Cod）さん有難う御座います
 早急に試したいと思います

コメント返信：

[ 一覧(最新更新順) ]

[[20130314151529]] 『時間になるとダイアログが表示』（窓際おやじ） ページの最後に飛ぶ

[[20130314151529]]　『時間になるとダイアログが表示』（窓際おやじ）　ページの最後に飛ぶ