|
bykinさん、はじめましてこんにちは。
早速のご回答ありがとうございます。
ただ、自分の説明が足らなかったようで、補足させていただきます。
Sheet1.Cell(1,1) に入れるのは、"2:50 AM"といった作動させたい目標時刻です。
ただ、表示は"2:50 AM"でも、実際にはその10分後とかに作動させたいので、
+ TimeValue("00:10:00")を付けています。
確かに、bykinさんの教えていただいたように、今を基準に何分後といった引用は動くのですが、
Sub timer()
Application.OnTime EarliestTime:=Sheet1.Cell(1,1).Value + TimeValue("00:10:00") , Procedure:="test", LatestTime:=Now + TimeValue("00:10:30")
End Sub
のようにセルの値を基準に持ってくると、やはり動きませんでした。
っと、ここまで書いているうちにひょっとしてと思い、セルに”2007/7/15 13:00:00"と入力したところ、無事に動きました。
ありがとうございました。
>※プロシージャ名に Timer をお使いやけど、VBA の Timer 関数と競合するんで
> 別の名前に変更することをお勧めします。
> それと、Value プロパティも省略せず書くことをお勧めしておきます。
こちらも、教えてくれてありがとうございます。全く気がつきませんでした。
これから気をつけます。
また、分からないことがあったらお願いします。
|
|