勤務表で勤務時間が入力されてない日は「休み」と自動表示させたい。

Question

エクセル2010で、毎日の勤務時間を1人１ファイル１か月を１シートとして１年分１２枚のシートで作成しています。　　１シートの１行を１日分としてセルＢに　勤務開始時間　セルＣに　勤務終了時間を手入力ですると　セルＤに　勤務時間が表示されるように計算式を入れています。（休憩時間は有りません）　Ａ列　縦に１日から31日までの項目が有ります。

ここで、例えば　１日　２日と仕事をして勤務時間を入力して、３日　４日　５日と休みで入力しなくて、６日仕事で勤務時間を入力した時点で、前日の休み　３日、４日、５日の空欄のセルＢに　休み
と自動で文字が表示させる方法が有れば教えていただけないでしょうか。

また、休みは、１日の時もあれば続けて５日有る時もあるし、曜日も特に決まっていません。
宜しくお願いいたします。

pooh2016 · Accepted Answer

確かにご指摘の通りです。

D6にこんな式を入れると
=IF(B6<>0,C6-B6,IF(B7<>0,"休み",IF(D7="休み","休み","")))
ご指摘の分は解決しますが、今度は月末に休むと”休み”が出てきません。

したがって、31日の次の行のB列（B37）に締め切りサイン（例えば1）を入れてもらうと、うまくいきます。
31日の月は32日のところに"締め切り"としてB列にサインを、30日の月には31日のところに"締め切り"とする
というように、各月ごとにシートを変えるようにするしかありません。

pooh2016 · Answer

>「休み」の表示を　色付きの文字例えば「赤色」で表示させる事はできないでしょうか。

「休み」だけを赤字にするのはちょっとハードルが高くなります。
条件付き書式という技を使います。
ここで説明して、理解していただけるかわかりませんが、順を追って説明します。

・D7にカーソルを置く
・上のリボン欄に「条件付き書式」というのがあります。それをクリックします。
・プルダウンメニューに「セルの協調表示ルール」の「指定の値に等しい」を選ぶ。
・左の欄に「休み」と入れて、書式：を好みの選択にして「ＯＫ」です。
・好みの色にならなければ、「ユーザー設定の書式」を選んで、色やフォント、強調条件等を選んで、「OK」です。

あとはＤ列にD7のセルをコピーすればＯＫです。

pooh2016 · Answer

No.3　です。

>Ｄ列6行目から始まっていますので、=IF(B1<>0,C1-B1,IF(B2<>0,"休み",""))を　=IF(B6<>0,C6-B6,IF(B5<>0,"休み",""))　
微妙に違ってます。　式のB5→B7　です
したがって　=IF(B6<>0,C6-B6,IF(B7<>0,"休み",""))　です。

>今、Ｂ列に　＝（Ｃ6-Ｂ6）の計算式が入力されていますので、宜しくお願いいたします。　
Ｂ列ではなくＤ列に＝（Ｃ6-Ｂ6）が入っているのですよね。

Ｄ列の内容を＝（Ｃ6-Ｂ6）から=IF(B6<>0,C6-B6,IF(B7<>0,"休み",""))　に書き換えればＯＫです。

tom04 · Answer

何度もごめんなさい。

前回の数式では月末まであらかじめフィル＆コピーしていると「0」が表示されてしまうのでは？

=IF(COUNTBLANK(B6:C6)=2,"",IFERROR(C6-B6,""))
に変更してみてください。m(_ _)m

tom04 · Answer

＞Ｄ列に「＃ＶＡＬＵＥ！」と表示されてしまいます・・・

B列が「休み」の場合、D列は空白で良いのですね？
（当然C列の入力もない。）

D6セルの数式を
=IF(COUNT(B6:C6),C6-B6,"")

またはExcel2007以降であれば
=IFERROR(C6-B6,"")

にしてみてください。m(_ _)m

tom04 · Answer

No.2です。

＞私の表では、6行目から・・・

1か所だけで大丈夫です、前回のコードの
＞If .Row > 1 Then
を
＞If .Row > 5 Then
に変更し、B列にデータを入力してみてください。m(_ _)m

pooh2016 · Answer

>勤務表のセルの追加が必要ですが、
セルの追加は必要ないと思います。
Ｄ列の勤務時間の表示部分に"休み"と表示されるだけです。

pooh2016 · Answer

簡単に作りたいのであればＢ列ではなく、Ｄ列に"休み"と表示されてはどうですか。入力セルに式を入れると、入力した際に式が消されてしまいます。それでもやろうと思えば、ほかの方の記載のように、マクロ(VBA)が必要になります。Ｄ列に下記のような関数式を入れることで、Ｄ列を勤務時間or"休み"と表示することができます。セル（Ｄ1）の数式　=IF(B1<>0,C1-B1,IF(B2<>0,"休み","")) Ｂ１がブランクで、Ｂ２に何かが入力されるとＤ１に"休み"と表示される。どこかに”休み”と表示されていても、集計に影響しません。

tom04 · Answer

こんにちは！

VBAになりますが、一例です。
各シートとも1行目は項目行で2行目以降にデータを入力するとします。

画面左下の操作したいシート見出し上で右クリック　→　コードの表示　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻り（VBE画面を閉じて）普通通り操作してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) '//この行から//
    Dim c As Range, myRng As Range
    If Intersect(Target, Range("B:B")) Is Nothing Or Target.Count > 1 Then Exit Sub
        With Target
            If .Row > 1 Then
                If .Value <> "" Then
                    Set c = .End(xlUp)
                    Set myRng = Range(Cells(c.Row, "B"), Cells(.Row, "B"))
                    On Error Resume Next
                        myRng.SpecialCells(xlCellTypeBlanks).Value = "休み"
                End If
            End If
        End With
End Sub '//この行まで//

※　標準モジュールにコードを記載し、各シートのChangeイベントで標準モジュールのマクロを呼び出しても良いのですが、
結局、各シートにChangeイベントの同じコードをコピー＆ペーストする必要があるので
上記コードを各シートのシートモジュールとしてコピー＆ペーストしても
効率としてはあまり変わりないと思いまので、単純にシートモジュールとしてみました。m(_ _)m

fujillin · Answer

こんんちは

＞自動で文字が表示させる方法が有れば教えていただけないでしょうか。

入力対象のセルの値を制御しようという時点で、通常は関数は使えません。
（入力すると、設定してあった関数が上書きされてしまうので）
それなので、ご質問のような処理は通常はマクロ（VBA)で行うことになります。
「対象のセルの値が変わったら」というChangeイベントの発生に応じて処理をするようなタイプのマクロを設定しておくことで可能でしょう。

一方で、入力時にセル位置を間違えないという条件を設けても良いのであれば、関数でも実現は可能だと思います。
A列の対象範囲に以下の関数を設定しておくことでも実現可能だと思います。
　自身より下方のセルに、「休み」及び空白以外の値があれば「休み」を表示し、それ以外は空白を表示

勤務表で勤務時間が入力されてない日は「休み」と自動表示させたい。

確かにご指摘の通りです。

>「休み」の表示を 色付きの文字例えば「赤色」で表示させる事はできないでしょうか。

No.3 です。

何度もごめんなさい。

＞Ｄ列に「＃ＶＡＬＵＥ！」と表示されてしまいます・・・

No.2です。

>勤務表のセルの追加が必要ですが、

簡単に作りたいのであればＢ列ではなく、Ｄ列に"休み"と表示されてはどうですか。

こんにちは！

こんんちは

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

>「休み」の表示を　色付きの文字例えば「赤色」で表示させる事はできないでしょうか。

No.3　です。