|
メッセージはちゃんと出ているのに、自動的に消えないのでしょーか ?
残念ながらそれだと原因は分かりません。バグとしか言いようがないので。
いちおう↓のマクロでテストしてみて下さい。これは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
こちらでテストしたかぎりでは、問題なく動作しましたが。
|
|