【エクセル】日付を、その都度、自動入力するには？

質問

タイトルの件、質問いたします。

下記の図の【日付】の項目に
通常は、手入力で、日付を入力します。

この作業を、もう少し、少ない工数で、自動入力できないでしょうか？？
あくまでも、空白セルに、そのつど、入力します。

入力した日付は、固定で、変わらないようにしたいです。TODAY関数のようにはならないように
したいです。

ご存知の方、いらっしゃいましたら、宜しくお願いします。

回答No.3

某HN クロメート(Chromate)（@CoalTar） · ベストアンサー

シート見出しを右クリック コードの表示
Private Sub Worksheet_Change(ByVal Target As Range)
　　 If Target.Column = 2 Then '対象がB列（2列目）
　　 If Target.Row >= 3 Then '対象が3行目以降列(追加)
　　 If Target.Value = "" Then '対象が削除された場合(変更箇所)
　　 　　 Target.Offset(0, -1) = "" 'A列の日付をクリア
　　 Else
　　 　　 Target.Offset(0, -1) = Date 'A列に日付をセット
　　 End If
　　 End If
　　 End If
End Sub
に変更したら動くようです(ちょっと追加)

マクロは詳しくないので一般機能で
[Ctrl]キーを押しながら下へオートフィルで同じ日付がコピーされます
[Ctrl]+[D]で上のセルがコピーされます。

回答No.5

imogasi

質問の場合（ケース）がよくわからないのだが。
（１）同じ日付＝操作日当日の１種類ではない。
（２）入力したら、ＴＯＤＡＹ関数のように後日変わるようでは困る
のは伝わってくるのだが。
（１）どれぐらいの日付の種類はあるのか。
（２）当月、翌月、前月ぐらいの日付のどれか１日を入れる場合なのか
がよくわからない。
ーー
ＶＢＡ絡みになるが
（１）カレンダーコントロールを使い、日付をクリックして選択する。
セットする場所（セル）はアクチブセルになるだろう。（セルを選択してアクチブにしておく必要あり）
（２）（１）と類似の仕組みをシート上で作る。
入力候補日付の一覧をシートにつくり、選択クリックで日付を決める。
（３）入力規則を使う。日付範囲が広範囲だと選択に苦労するが
などを思いつく。質問の意味と質問者のＶＢＡ経験などが判から無いので
具体的には省略するが。

回答No.4

mu2011

一例です。
セル範囲はコード内の範囲を調整して下さい。（複数セルの削除可）
対象のシートタブ上で右クリック→コードの表示→以下のコードを貼り付けてお試しください。

Private Sub Worksheet_change(ByVal Target As Range)
範囲 = "B3：B15"
If Intersect(Target, Range(範囲)) Is Nothing Then Exit Sub
For Each a In Target
If a = "" Then
a.Offset(0, -1) = ""
Else
a.Offset(0, -1) = Date
End If
Next
End Sub

回答No.2

mshr1962

当日の日付でいいなら　Ctrlキーを押しながら　;キーで日付の入力が出来ます。

それ以外だとVBAですね。B列に入力（変更含む）したらA列に日付をセットの一例です。
１．シート見出しを右クリックして、“コードの表示”を選択
２．左上の欄に下記のVBAをコピーする

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then '対象がB列（2列目）
If Target.Value Is Null Then '対象が削除された場合
Target.Offset(0, -1) = "" 'A列の日付をクリア
Else
Target.Offset(0, -1) = Date 'A列に日付をセット
End If
End If
End Sub

３．VisualBasicを閉じる

補足

VBAを教えていただき、ありがとうございます。
私のコピーの仕方が悪いのか、うまく機能できませんでした。

何か、貼り付ける時の、コツがありましたら、ご指導願います。

回答No.1

gyouda1114

入力した日を入力するなら
入力セルの表示形式を日付　3/14
ショートカットで　Ctrl+;

今日の日付を入力するショートカット－Ctrl＋;キー
http://www.relief.jp/itnote/archives/002481.php