findメソッドで、10:00:01 を検索をして、メッセージボックスにセル番地と時間が表示できない

以下をコードをご覧ください
e1セルに　佐々木　と入力すると
メッセージボックスの

resul⇒佐々木
result.Address⇒A11

を表示します
佐々木という単語が、A1-A100のどこのセルにあるか検索するコードです

上記はうまくいくのですが


e1セルに　10:00:01　と入力すると
書式設定はみると　h:mm:ss　となっています

MsgBox key⇒0.416678240740741　と表示される

その後、以下はコードいずれもエラーとなります
結果、メッセージボックスには何も表示されません


MsgBox result

MsgBox result.Address


Q1.e1セルに　10:00:01　と入力しても、検索をして、セル番地をメッセージボックスに表示したいです
Q2.MsgBox key⇒0.416678240740741　と表示されるところを　10:00:0　と表示したいです

ご存じの方、宜しくお願いします



【コード】
Sub 特定()

key = Range("e1")

MsgBox key

Set result = Range("a1:a100" & LstRow2).Find(What:=key, lookat:=xlWhole)

MsgBox result

MsgBox result.Address


End Sub

No.2 回答者： tatsumaru77 回答日時： 2025/04/06 23:46

以下のようにしてください。

これで、こちらでは正しく検索できています。

Option Explicit

Sub 特定()
Dim key As String
Dim result As Range
key = Range("e1").Text
MsgBox key
MsgBox Format(key, "hh:nn:ss")

Set result = Range("a1:a100").Find(What:=key, LookIn:=xlValues, lookat:=xlWhole)

If result Is Nothing Then
MsgBox "該当時刻無し"
Exit Sub
End If

MsgBox result.Text
MsgBox result.Address

End Sub

この回答へのお礼

お礼日時：2025/04/07 01:59

No.1 回答者： tatsumaru77 回答日時： 2025/04/06 19:16

MsgBox result

を
MsgBox result.Text
にしてください。

この回答へのお礼

回答ありがとうございました

うまくいきませんでした
e1セルに佐々木　と入力すると全てうまくいきますが

e1セルに、10:00:01（書式：h:mm:ss）と入力すると
以下コードのタイミングにて、エラーとなります

やりたい事は、佐々木　等の単語ではなく、時間の秒表示
の検索なのです

何かアドバイスありましたら、宜しくお願いします

【コード】
Sub 特定()
key = Range("e1")
MsgBox key
MsgBox Format(key, "hh:nn:ss")

Set result = Range("a1:a100").Find(What:=key, lookat:=xlWhole)

ここから下がエラーとなります
F8にて調べたら、resultには何も、データが入りませんでした

MsgBox result.Text
MsgBox result.Address
End Sub

お礼日時：2025/04/06 23:02