|
▼Kein さん:
返事遅くなりましてすみません。
できました。ありがとうございました。
わたしにはとても思いつかないコードです。
また解らないこと相談にのって下さい。
>メッセージはちゃんと出ているのに、自動的に消えないのでしょーか ?
>残念ながらそれだと原因は分かりません。バグとしか言いようがないので。
>いちおう↓のマクロでテストしてみて下さい。これはSet_Scdを任意の
>タイミングで実行できます。実行してから30秒後にMyScd2が呼び出されます。
>
>Sub Set_Scd()
> Application.OnTime Time + TimeValue("00:00:30"), "MyScd2"
> Worksheets(2).Range("IV1").Value = Time + TimeValue("00:00:40")
>End Sub
>
>Sub MyScd2()
> Dim WshShell As Object
>
> Set WshShell = CreateObject("WScript.Shell")
> With Worksheets(2).Range("IV1")
> If Time < .Value Then
> WshShell.Popup "終了時間ですよ", 7, , 64
> End If
> .Clear
> End With
> Set WshShell = Nothing
>End Sub
>
>こちらでテストしたかぎりでは、問題なく動作しましたが。
|
|