エクセルで業務日報を作りたい

質問

• エクセルで下記のような日報を作りたいのです。本日の欄のみ入力すると自動的に月の累計・期の累計がでるように、また、月・期それぞれリセットできるなんらかの機能をつけたいのです。
• 本日の件数だけを入力すると月の累計欄に前日までの累計+本日の件数、期も同じく、といった感じにしたいのです。なるべく列は長くせず、シートも２つくらいまでで数式・関数などは複雑でも見た目シンプルにしたいのですが
• もう数日考え込んでいるのですが、いい方法がみつかりません。ご存知の方、どうかよろしくお願いします。

回答No.6

pc_knight · ベストアンサー

#4です。「IF文で作らないと無理でしょうか？」の回答ですが、その通りで、件数入力の対象セルをA列２～４行までとD列２～３行までと指定するにはIF分が必要です。そのため数値入力が行われたセルの行番号（Target.Row）と列番号（Target. Column）の両者について条件設定を行います。
コードの変更は、次の四つです。
（１）件数入力の行われたセルから取得した列番号を代入する変数を追加し定義
この変数を仮に”clm”と定義し、二行目に「clm = Target.Column」を追加し、「rw = Target.Row: clm = Target.Column」とします。
（２）rwとclmに「A列の２行から４行までとD列の２行から３行まで」のセル条件を付与する。
その方法は前回回答の三行目のIf～からThenの手前までの条件文を、セル条件にあうよう手直しを行います。
手直し内容は、napiiさんの楽しみのために今回の回答では割愛、やられる余地を残しておきます。頑張って下さい。もしうまく行かない場合は、回答への補足欄へご記入を！！
（３）月計／期計／本日の年月日を書き込むセルの列番号を書き換える。
Cells(rw, 2) → Cells(rw, clm+1)　
Cells(rw, 3) → Cells(rw, clm+2)
Cells(rw, 4) → Cells(rw, clm \ 4+26)
（４）前回に件数入力した時の年月日取得の変更
pdate = Cells(rw, clm \ 4+26)
以上ですが、どこかのセルに、件数をインプットした本日の年月日を書き込んでおく事が月計・期計を求める上で必須で、このコードではＡＡ列２～４行、ＡＢ２～３行を使用。「～Value = Date」が本日の年月日の書きこみです。
入力できるセルを限定するため、セルのロックとシート保護もお勧めです。

参考URL：

http://www.asahi-net.or.jp/~ef2o-inue/kihon/sub01_04.html

お礼

詳しくありがとうございます。
大いに参考にして、がんばって作ってみます。
また質問すると思うのでその際にはよろしくお願いします。

補足

お世話になってます。
頑張ってみました！

(1)こんな感じで一応動きます
が、これでいいのでしょうか？

(2)　pdate = Cells(rw, clm \ 4 + 26)
で、「￥」が入ると何が違うのですか？
また、4＋26とする意味は？clm + 30 でも同じようになると思うのですが？
年月日の列が邪魔にならないように遠くの列にしたのは意味わかります。（あれ？そうですよね）

(3)どーしてもわからないのですが、
なぜ件数をインプットした本日の年月日を書き込んでおく事が月計・期計を求める上で必須になるのでしょうか？
あほですません。
なぜか教えてください。　

Private Sub Worksheet_Change(ByVal Target As Range)
rw = Target.Row
clm = Target.Column

If Target.Column = 1 And Target.Row = 2 And IsNumeric(Target.Value) = True Or _
Target.Column = 1 And Target.Row = 3 And IsNumeric(Target.Value) = True Or _
Target.Column = 1 And Target.Row = 4 And IsNumeric(Target.Value) = True Or _
Target.Column = 5 And Target.Row = 2 And IsNumeric(Target.Value) = True Or _
Target.Column = 5 And Target.Row = 3 And IsNumeric(Target.Value) = True Then
pdate = Cells(rw, clm \ 4 + 26)
If Month(Date) = Month(pdate) Then
Cells(rw, clm + 1).Value = Cells(rw, clm + 1) + Target.Value
Else
Cells(rw, clm + 1).Value = Target.Value
End If
If Year(Date) = Year(pdate) Then
Cells(rw, clm + 2).Value = Cells(rw, clm + 2) + Target.Value
Else
Cells(rw, clm + 1).Value = Target.Value
Cells(rw, clm + 2).Value = Target.Value
End If
Cells(rw, clm \ 4 + 26).Value = Date
End If
End Sub