|
▼Kein さん、やっちんさん:
返信が送れてすみません。
できました。ありがとうございました。
最初、やっちんさんの言葉の意味が良く分からず悪戦苦闘でしたが、
Keinさんが書いていただいたコードを見て意味を理解できました。
OnTimeメソッドの使い方を学べてよかったです。
あと、TimeValueとTimeSerialの違いも学べました。
ありがとうございました。
また何かありましたら、よろしくお願いいたします。
>テスト用として・・
>
>Sub Time_SC()
> Application.OnTime Time + TimeValue("00:00:05"), "TestPrc"
>End Sub
>
>Sub TestPrc()
> Static i As Long
>
> i = i + 1
> Cells(i, 1).Value = i
> If Time < TimeSerial(15, 40, 0) Then
> Call Time_SC
> Else
> MsgBox "終了 !"
> End If
>End Sub
>
>>TimeSerial(15, 40, 0)
> ↑この引数を、マクロ開始時刻の2分ぐらい先に変更して
>空白シートを開いて Time_SC を実行してみて下さい。
>うまくいったら、あとはどう改造すれば良いか分かりますよね。
|
|