Excelで、セルに'1'が入力されたら、そのセルに今日の日付を入れる

質問

Excelで、セルに'1'が入力されたら、そのセルに今日の日付を入れる方法。
をしらべているのですが、分かりません。A1セルに
=IF(A1="1",=TODAY(),"")
と入力すると、循環参照でエラーになってしまいます。
どのようにすればよいのでしょうか？

回答No.3

MackyNo1 · ベストアンサー

基本的に数式を入力してあるセルに値を入力すれば、当然のことですが数式はなくなってしまいます。

どのような目的で、わざわざ「１」と入力して今日の日付を表示させたいのでしょうか？

また、数式で表示した今日の日付は、たとえば明日になると自動的に明日の日付が表示されてしまいます。

単に、その日の日付を簡便に入力したいだけなら、Ctrl+;のショートカットが実戦的です。

あまりお勧めできませんが、入力セルと表示セルを同じセルにして、入力値と別の値を入力させたいなら以下のようなイベントマクロを利用することになります。

たとえばA1セルに１を入力したときに今日の日付を入力するなら、シート名を右クリックして「コードの表示」から以下のコードを貼り付けて、A1セルに１と入力してみてください（このような場合でも、わざわざ「１」と入力するのではなく、他の列にあるデータが入力されたら、日付の列に自動的に日付を入力するようにするのが一般的ですが・・・）。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value = 1 Then
Target.Value = Date
End If
End Sub

お礼

回答ありがとうございます。

目的ですが、入力をすばやくするためでした。

Ctrl;のショートカットで入力します。

マクロも参考になりました。

ありがとうございました。

回答No.2

KURUMITO

Ａ1セルに入力してＡ1セルに今日の日付を出すことを式を使って行うことはできません。式を入力しても'1'と入力することで入力した式は消えてしまいますね。次のようにすれば今日の日付が表示されますよ。
例えばＡ1セルでCtrlキーを押しながら ; のキーを押すことで今日の日付が表示されます。

お礼

回答ありがとうございます。
Ctrl;のショートカットで入力します。だいぶ楽になりました。
ありがとうございました。

回答No.1

f_tekki

A1セルに　１を入れて　A1セルに今日の日付と言うわけには行きません

A1に　1を入れて　B2セルに今日の日付を出すのであれば
B2セルに　　=IF(A1=1,TODAY(),"")
です

お礼

回答ありがとうございました。
やはり、循環参照は無理なのですね。