エクセルで勤務時間計算における条件式をつくりたいのですが…

質問

エクセルでタイムシートを作成しています。２つ教えて頂きたくお力添えお願い致します。
(1)下記　＊例えば部分の【カッコ内】
８時間以上（８時間までが時間内）の労働になると、時間外の欄に８時間を越える時間数を表示することは可能でしょうか？
区分：出社、退社、始業時間、終業時間、休憩、時間内実働時間、時間外実働時間（８時間を越えた分）
があります。15分きざみでの計算です。
＊例えば
出社9:16　退社20:47 始業9:30 終業20:45　休憩1:30【時間内8:00　時間外1:45】
出社9:18　退社18:05 始業9:30 終業18:00　休憩1:30【時間内7:00　時間外 】
(2)時間を入力する際、テンキーで４桁の数字ex.1800と入力すれば、18:00と表示する方法はありますか？
1800と入力すると0:00になってしまいます。
よろしくお願いします。

回答No.2

i_september

多分VBA(マクロ)を使わないと上手く出来ないと思います。
入力シートVBEへ下記を複写してみて下さい。
VBEの使い方はatl+pf11で起動して
⇒オブジェクトエクスプローラを表示させ
⇒入力するシートをダブルクリックです。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim strW As String

'文字はスキップ
If Not IsNumeric(Target.Value) Then
Exit Sub
End If

'時間外はスキップ
If Target.Value < 0 Or Target.Value > 2359 Then
Exit Sub
End If

'５文字以上はスキップ
If Len(Target.Value) >= 5 Then
Exit Sub
End If

' イベントを停止
Application.EnableEvents = False

'桁合わせ
Select Case Len(Target.Value)
Case 1
strW = "000" & Target.Value
Case 2
strW = "00" & Target.Value
Case 3
strW = "0" & Target.Value
Case 4
strW = Target.Value
End Select

'時間編集
strW = Left(strW, Len(strW) - 2) & ":" & Right(strW, 2)

'データセットとエラー表示
If IsDate(strW) Then
Target.Value = strW
'
'時間値セットの確認
If InStr(Target.Text, ":") = 0 Then
MsgBox "入力値は時間に変更できませんでした。" & strW
Target.Value = Null
End If
'
Else
MsgBox "入力値は時間に変更できません。" & strW
Target.Value = Null
End If

' イベントを開始
Application.EnableEvents = True

End Sub

お礼

i_september様
ありがとうございます。お礼がおそくなり申し訳ありません。
只今、別件でバタバタしておりましてこちらの作業に手が回らないでいます。初めての言葉?技?で目をパチパチさせていますが、じっくり勉強しトライさせて頂こうと思います。