【excel vba】 時刻データのチェック

質問

dim myDate as Variant

myDate = activesheet("xxx.xls").range("A1")

if <<<myDateが、"hh:mm::ss"形式のデータかどうか？ >>> then
処理１
end if

と、したいのですが、

<<<・・・・・>>> の記述内容がわかりません。

ご教授お願い致します。

回答No.3

Wendy02 · ベストアンサー

そのままで出来るわけがないと思いますね。

Dim myDate As Variant
Set myDate = ActiveSheet.Range("A1")
If myDate.NumberFormatLocal Like "hh:mm:ss*" Then
　　　' 処理１
Else
　 MsgBox myDate.NumberFormatLocal & vbCrLf & "違います。", 48
End If

お礼

参考になりました。
ありがとうございました。

回答No.4

ki-aaa

こんにちわ

Sub test111()
　　Dim myDate As Variant

　　myDate = ActiveSheet.Range("A1").Text

　　If myDate Like "##:##:##" Then
　　　　MsgBox "hh:mm:ss"
　　Else
　　　　MsgBox "no"
　　End If
End Sub

ただこれにも少し問題がありまして、テストされる列の幅を変更して、
時間の表示が"hh:mm:ss"　から　"####"に成るまで狭くすると、??です。

お礼

参考になりました。
ありがとうございました。

回答No.2

米沢 栄蔵（@YON56）

myDate..NumberFormatLocal = "hh:mm:ss"
で、いけると思います。

お礼

参考になりました。
ありがとうございました。

回答No.1

tom04

こんにちは！
こんな感じですかね？

If myDate.NumberFormatLocal = "hh:mm:ss" Then
処理1
End If

参考になれば良いのですが・・・m(__)m

お礼

参考になりました。
ありがとうございました。