Excelで自動的に日付の入力

質問

Excel2007を使用しています。セルB2に自動的に日付が入力される関数を教えて下さい。条件として、金額のセル、CD1のセルに金額を入力したら、自動的にB1セルに日付を入力ができればと思います。日付は、入力した日付で固定したいのです

回答No.3

tom04 · ベストアンサー

こんばんは！
TODAY関数は使用できないと思います。
そこでVBAでの一例です。

CD列すべての行に対応するようにしていますので
CD列のあるセルにデータを入力するとその行のB列に入力日に日付が入るようにしてみました。

画面左下にある操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので
↓のコードをコピー＆ペーストしてCD列にデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Intersect(Target, Columns(82)) Is Nothing Then Exit Sub
Dim i As Long
i = Target.Row
If Cells(i, 82) <> "" Then
With Cells(i, 2)
.Value = Date
.NumberFormatLocal = "yyyy/m/d" '←日付表示形式は適当に変更してください
End With
Else
Cells(i, 2) = ""
End If
End Sub 'この行まで

※　B列の表示形式を　yyyy/m/d　としていますので、好みによって表示形式は変更してみてください。
（例）　m/d　ggge/m/d 等々

以上、参考になれば良いのですが・・・m(_ _)m

回答No.2

siitakekonbu

本日の日付ならtodayとifのネストですが、それでは自動更新されてしまいます。

日付を固定したいのであれば、VBAを使う必要がありますね。

回答No.1

bin-chan

固定は難しいでしょう。

代案として、Ctrl+;キー押下で日付入力が可能です。
（Ctrl+:キー押下だと、時刻入力が可能です）