セルに入力した時刻をTimeValueに設定する際「型が一致しません」が表示される
ユーザーにマクロ起動時刻をセルに入力してもらいたい場合があります。
例えば、
ユーザーには「11:00:00」と入力をしてもらう→11時00分をマクロ起動時刻としたいが、エラーが発生してしまう。
「型が一致しません」のエラーが表示される原因
セルに時刻を入力すると見た目は時刻のようだが、実際の値は「シリアル値」のため、
型が一致しないためのエラーが発生します。
Public Sub sample()
Cells(1, 1).Value = "11:00:00"
'■Valueを省略しようがしなかろうが、実行時エラー13 型が一致しませんエラー発生
Debug.Print TimeValue(Cells(1, 1))
Debug.Print TimeValue(Cells(1, 1).Value)
'■セルのシリアル値を変換かけて文字列にすることでエラーは発生しなくなる。
Debug.Print Format(Cells(1, 1), "hh:mm:ss")
Debug.Print Format(Cells(1, 1).Value, "hh:mm:ss")
End Sub
コメント