Excel2007 VBA初心者です。 削除
Message#1 2014年12月15日(月)17時41分 From: くっくるー |
Excel2007 VBA初心者です。 2400とセルに入力したら隣のセルに24:00と表示されるようにしたいです。いろいろやってみたのですが、23:59までだったりとうまくいきません。 どなたか教えて下さい。 Function 時間入力(入力文字) 時間入力 = "" If 入力文字 = "" Then Exit Function If Not IsNumeric(入力文字) Then Exit Function 時間長 = Len(入力文字) If 時間長 > 2 Then 時間文字 = Mid(入力文字, 1, 時間長 - 2) & ":" & Mid(入力文字, 時間長 - 1, 2) Else 時間文字 = "0:" & 入力文字 End If If IsDate(時間文字) Then 入力時間換算 = CDate(時間文字) End Function 今回は4桁ですが、場合によっては 32400(324:00)とか22(00:22) のようなものも出てくる可能性があります。 できればそういうものにも対応できるものだと助かります。 VBAでなくてもこの際、関数でも構いません。 (関数だと99:99とかできたのですが、5桁になるとダメだったので・・・) |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。