[[20060415031921]]　『午前０時以降の時刻入力を、自動的に４８時間制に』（楽々夜勤）　ページの最後に飛ぶ

『午前０時以降の時刻入力を、自動的に４８時間制に変換したい』（楽々夜勤）

 よろしくお願い致します。
 夜勤者の行動時刻を入力するために、
 入力した結果の表示を48時間制にしたいと思っています。

 例として
 00:20 → 24:20    01:20 → 25:20    02:20 → 26:20
 08:20 → 32:20    10:20 → 34:20
 といった具合にです。最大で36:00です。
 ただし、午前０時以前は
 23:59 の様に入力して、23:59 と表示させます。

 手書きで提出される報告書の時刻記入欄には、
 00:00 から 23：59 までの時刻帯で書かれているのですが、
 エクセルにそのまま入力しても 00:00 から 36:00 の時刻帯に
 自動的に変換表示をさせたいのです。
 日勤者と夜勤者にはそれぞれ区分フラッグをたてますので、
 日勤者には24時間制を、夜勤者には48時間制の表示方法を適用させます。

 できれば、入力セルへ変換後の時刻を表示させたく。
 スタートとエンドまでの所要時間の計算の対象とさせますが、
 日付表示に関しては不問です。

 Excel2000, WindowsME

 こういうことでしょうか。
	 [A]	 [B]
 [ 1]	区分	時間
 [ 2]	日勤者	15:00
 [ 3]	夜勤者	27:00
 [ 4]	日勤者	6:00
 [ 5]	日勤者	5:00
 [ 6]	日勤者	11:00
 [ 7]	夜勤者	29:00

 シートモジュールに
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Column <> 2 Then Exit Sub
    If .Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If .Offset(0, -1).Value = "夜勤者" Then
        .NumberFormatLocal = "[h]:mm"
        .Value = .Value + 1
    End If
End With
Application.EnableEvents = True
End Sub

 （川野鮎太郎）

 ありがとうございます。
 早速テストをしてみます。

 (楽々夜勤)

コメント返信：

[ 一覧(最新更新順) ]

[[20060415031921]] 『午前０時以降の時刻入力を、自動的に４８時間制に』（楽々夜勤） ページの最後に飛ぶ

[[20060415031921]]　『午前０時以降の時刻入力を、自動的に４８時間制に』（楽々夜勤）　ページの最後に飛ぶ