[VBA]変数を利用して時間を検索する方法が・・・

質問

エクセルで表示形式が「hh:mm:ss」に設定されているセルの中から
指定のセルを検索するマクロを作ろうとしているのですが、
上手くいきません。

検索する数字を変数にして変えられるようにしたいです。

Sub Macro1()
Dim temp As Double
temp = Range("A1").Value 'A1には0:00:01を入れる

Cells.Find(What:=temp, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
End Sub

上の記述だと、実行時エラー91「オブジェクト変数またはWithブロック・・・」が出ます。
> temp = "0:00:01"
これに書き替えると「型が違います。」になり、「""」をはずすとコンパイルエラーになります。
「What:="0:00:01"」というように、直接入れると上手くいきます。

どなたか、お力をお貸しください。
よろしくお願いします。

回答No.1

watabe007 · ベストアンサー

こんばんは、これでは？
>Dim temp As Double
　　↓
Dim temp As Date

>LookIn:=xlValues
↓
LookIn:=xlFormulas

お礼

回答ありがとうございます。
解決しました。

回答No.3

mu2011

No2です。
余計な事を記述した様ですので以下の記載は無視して下さい。

> temp = "0:00:01"
　⇒変数の属性がDoubleだからです。

回答No.2

mu2011

> temp = "0:00:01"
　⇒属性がDoubleだからです。

>「What:="0:00:01"」というように、直接入れると上手くいきます。
　⇒日付の検索もそうなんですが、文字列とすれば検索できますよ。

　　一例です。
　　変数に代入でもよいがDimも変更しないといけないので、直接指定してみました。
　　Cells.Find(What:=Range("A1").Text, After:=ActiveCell, LookIn:=xlValues, _

お礼

回答ありがとうございます。
直接指定でも、いいんですね。