割り込み処理

解決済

質問者：meikenpochi
質問日時：2007/09/13 22:40
回答数：3件

Application.OnTimeで一定時間後に処理をさせたいのですが
For文のループ処理を完了してからApplication.OnTimeが実行されてしまいます。
ループ処理中にApplication.OnTimeを優先して実行させることって出来るのでしょうか？

Option Explicit
Private Declare Sub Sleep Lib "KERNEL32.dll" (ByVal dwMilliseconds As Long)

Private Sub CommandButton1_Click()
Call M1
End Sub

Private Sub M1()
Dim i As Integer
Application.OnTime Now() + TimeValue("00:00:03"), "Sheet1.M2"
For i = 0 To 30
Range("A1") = i
Sleep 1000
Next i
End Sub

Sub M2()
MsgBox ("123")
End Sub

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： Wendy02
回答日時：2007/09/14 09:58

こんにちは。

>外部プログラム側から行う方法とはどんなものがあるのでしょうか？

簡単な例ですと、以下のようなスタイルです。
タイムラグは仕方がないのですが、より正確に行おうとすれば、APIを用いるしかないのですが、昨日の時点では、私は不得意なので、開いているExcelすべてが消えてしまいました。

以下は、Wscript.Sleep の3秒や、PopUpの２秒は、正確に保たれるわけではありません。
しかし、PopUpをクリックする必要はありません。

Sub M1R()
Dim i As Integer
'MySleep.vbs は、Excelデフォルトのフォルダにあること
Shell "Wscript.Exe MySleep.vbs"
'場合によっては必要かもしれません。
'AppActivate Application.Name
For i = 0 To 30
Range("A1") = i
DoEvents
Sleep 1000
Next i
End Sub

'メモ帳で作る

'mySleep.vbs
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
Wscript.Sleep(3000)
WshShell.PopUp "123", 2, "テスト"
Set WshShell = Nothing

また、mySleep.vbs の設置場所が、任意の場合は、オートメーションで、パスはショートネームにしたほうが楽です。

Dim mFolder As String
Dim mPath As String

mFolder = ThisWorkbook.Path
mPath = CreateObject("Scripting.FileSystemObject").GetFolder(mFolder).ShortPath
Shell "Wscript.Exe " & mPath & "\MySleep.vbs"

- 0
- 件

通報する

この回答へのお礼

いろんな方法があるのですね。勉強になりました。感謝感謝です。
ありがとうございました。

通報する

お礼日時：2007/09/15 14:04

No.2

回答者： Wendy02
回答日時：2007/09/14 00:48

こんばんは。

私の見る限りでは、その発想は無理だと思います。

この場合は、Macro In Macro 状態で、OnTimeメソッドが、待機モードになっているので、OnTime 側のマクロは、解放されるまで、待っているはずです。外部プログラム側から行わないと、それは無理だと思います。一度、OnTime の内容のヘルプを見てくだされば分かるはずです。

仮に、MsgBox が動いても、また、同じく、待機モードになってしまいます。