エクセルでの、日付の自動入力について

質問

エクセルで、週間の業務日報を作ろうと思っています。

そこでなのですが、
B列のセルに、業務内容（文字列）を入力すると、
自動的に、隣のA列のセルに、「日付」が入力されるようにしたいのですが、
どうすれば良いでしょうか…。

※また、翌日そのファイルを開いた際には、
　前日の日付は「そのままの状態(前日の日付のまま)」
　になっているようにしたいのですが…

＜完成イメージ＞
2/1 事務処理　１時間
2/1 PC設定　30分
2/2 事務処理　2時間
2/2 ミーティング　1時間
といった感じで、作りたいと思っています。

アドバイスを頂けると助かります。
よろしくお願い致します。m(_ _)m

回答No.1

KenKen_SP · ベストアンサー

単純にIF関数とTODAY関数の組み合わせとイメージしてしまいますが、これでは日が変わることでセルの内容が変わってしまいますね。そこで、関数ではなく、値としてセルに日付を書き込む必要があるわけですが、これを「自動で」という話になってくるとVBAで実現するしかありません。

下記はサンプルコードです。ご参考までに。

【手順】

1.　EXCEL画面下のシート選択タブで、対象シートを選択し右クリック
2.　[コードの表示]をクリック
3.　開いた画面右のスペースに下記コードを貼り付け
4.　ウインドウを閉じ、EXCELに戻ります

【以下コード】

Private Sub Worksheet_Change(ByVal Target As Range)

　　'変数の宣言
　　Dim R As Long, C　 As Integer

　　'設定------------------------------
　　R = 5　'処理対象の行番号　5行目以降
　　C = 2　'処理対象の列番号　B列＝2
　　'----------------------------------

　　'Target = このイベントにおいて変化のあったセルを表す
　　With Target
　　　　'開始行以降で、B列であれば処理実行
　　　　If .Row >= R And .Column = C Then
　　　　　　'セルへアクセスすることによるイベント2重発生停止
　　　　　　Application.EnableEvents = False
　　　　　　If .Value <> "" Then
　　　　　　　　'セルが空でなければ、B列の1つ右側＝A列に今日の
　　　　　　　　'日付を書き込み
　　　　　　　　.Offset(0, -1).Value = Date
　　　　　　Else
　　　　　　　　'セルが空ならば、B列の1つ右側＝A列も空にする
　　　　　　　　.Offset(0, -1).ClearContents
　　　　　　End If
　　　　　　'イベント発生停止を解除
　　　　　　Application.EnableEvents = True
　　　　End If
　　End With

End Sub

お礼

ありがとうございます！
希望通りの結果が得られました。

じつは今、VBAを勉強し始めたばかりなのですが、
アドバイス頂いたコードの書き方、とても参考になりました。

わかりやすく書くことの重要性も、すごく良くわかりました。(^^)