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

dim myDate as Variant

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

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

と、したいのですが、

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

ご教授お願い致します。

No.3 ベストアンサー 回答者： Wendy02 回答日時： 2010/11/11 10:29

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

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

この回答へのお礼

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

お礼日時：2010/11/11 22:32

No.4 回答者： ki-aaa 回答日時： 2010/11/11 10:43

こんにちわ

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"　から　"####"に成るまで狭くすると、??です。

この回答へのお礼

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

お礼日時：2010/11/11 22:33

No.2 回答者： YON56 回答日時： 2010/11/11 09:03

myDate..NumberFormatLocal = "hh:mm:ss"

で、いけると思います。

この回答へのお礼

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

お礼日時：2010/11/11 22:33

No.1 回答者： tom04 回答日時： 2010/11/11 08:55

こんにちは！

こんな感じですかね？

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

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

この回答へのお礼

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

お礼日時：2010/11/11 22:33