|
▼Hirofumi さん:
>こんなでは?
>
>Sub Test()
>
> Dim strTime As String
> Dim dtmTime As Date
> Dim dtmResult As Date
>
> strTime = InputBox("時刻を入力してください。hh.mm.ss", "時刻入力")
> If strTime <> "" Then
> If IsDate(strTime) Then
> dtmTime = TimeValue(strTime)
> dtmResult = dtmTime - #12:10:00 AM#
> With Sheets("Sheet1")
> With .Range("B1")
> .NumberFormatLocal = "hh.mm.ss"
> .Value = dtmTime
> End With
> .Range("B2").Value = Hour(dtmResult)
> .Range("B3").Value = Minute(dtmResult)
> .Range("B4").Value = Second(dtmResult)
> With .Range("B5")
> .NumberFormatLocal = "hh.mm.ss"
> .Value = dtmResult
> End With
> End With
> Else
> MsgBox "時刻が入力されませんでした。最初からやり直してください"
> Exit Sub
> End If
> End If
>
>End Sub
Hirofumi 様
ありがとうございます。
早速使わせていただきました。
スッゴイです!!VBAの中身は訳が分かりませんが最高です!(笑
概ね良い感じでしたが最初の時刻入力において
午前0時台(例 00.05.10など)を入力しますとエラーとなってしまいました。
わざわざ作っていただいて恐縮ですが今一度よろしくおねがい申し上げます。
|
|