セルの現在時刻表示の更新間隔をセルから入力したい

質問

セルの現在時刻表示の更新間隔をセルから入力したい
マクロは以下を使用してますが更新間隔変更のtimevalue(c3)とするとエラー１３が出ます。
どなたかお教え下さい。

********************************************
Sub Auto_Open()
Dim TargetTime, WaitTime
TargetTime = Now + TimeValue("00:00:01")
WaitTime = TimeValue("00:00:10")
Application.OnTime TargetTime, "Macro1", WaitTime
End Sub

Sub Macro1()
Dim TargetTime, WaitTime
Calculate
TargetTime = Now + TimeValue("00:00:01") 'ココをセルにするとエラー１３がでる
WaitTime = TimeValue("00:00:10")
Application.OnTime TargetTime, "Macro1", WaitTime
End Sub

Sub auto_close()
Dim i As Integer, TargetTime
On Error Resume Next
For i = 1 To 10
TargetTime = Now + TimeValue("00:00:" & Application.Text(i, "00"))
Application.OnTime TargetTime, "Macro1", , False
Next i
End Sub
**********************************************

回答No.2

okormazd · ベストアンサー

C3が，時刻表示で，「00:00:01」などと入力したのなら，実際のデータはシリアル値なので，TimeValue関数は必要ありません。
すなわち，
TargetTime = Now + Range("c3").Value
でいいです。
C3の表示が，1秒後などという意味で，「1」などと入力したのであれば，時刻表示，「00:00:01」の文字列に直すため，「"00:00:" & Range("C3").Value」として，TimeValue関数をつかいます。
すなわち，
TargetTime = Now + TimeValue("00:00:" & Range("c3).Value)
で，いいでしよう。

お礼

文字型、数値型どちらも動作しました大変参考になりました。excelが少し身近になってきました。ありがとうございました。

回答No.1

NMZ1985

調べてみるとエラー１３は型変更エラーのようです。

c3では、文字列"c3"が入っているため
TimeValue関数で変換できないと予想されます。

Worksheets("シート名").Activate
の後に
TargetTime = Now + TimeValue(ActiveSheet.Range("C3").Value）

これで、アクティブにしたシート名のC3の値を取得できます。

シートが一枚しかないなら、必然的にそのシートがアクティブなので
上の宣言は必要ないです。

補足

回答頂いた記述書き直して実行してみましたがやはりエラー１３が出ます。セルｃ３のほうは数値で１をいれています。シートは１枚だけです。なにが悪いのでしょうか？