自動日付入力方法

質問

エクセルで
Ａ列１行に「ｎ」と入れれば、
Ｂ列１行に今日の日付「Ｃｔｒｌ+；」を表示させるようにしたいのですが
どうすればいいでしょうか？

Ａ３に入れれば、Ｂ３
Ａ６に入れれば、Ｂ６

です。

「ｎ」は人の名前が１０種類くらい入ります。

よろしくお願いします。

回答No.4

NCU · ベストアンサー

とりあえず。

Private Sub Worksheet_Change(ByVal Target As Range)
　　Set Target = Intersect(Target, Columns("A:A"))
　　If Target Is Nothing Then Exit Sub
　　Dim r As Range
　　For Each r In Target
　　　　If r.Value = "" Then
　　　　　　r.Offset(, 1).ClearContents
　　　　Else
　　　　　　r.Offset(, 1).Value = Date
　　　　End If
　　Next
End Sub

お礼

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

マクロを試してみます。

回答No.3

mshr1962

A列に名前（文字列）が入るとB列に今日の日付ですか？
マクロ（Worksheet_Change）ならできますが...
下記のコードを、シート見出しを右クリックして「コードの表示」で出てくる場所に貼り付けて確認してください。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then '入力セルがA列の場合処理を実行
If IsNumeric(Target) Then Exit Sub '入力値が数値の場合、処理を中止
Target.Offset(0, 1) = Date '右隣(B列)に今日の日付をセット
End If
End Sub

お礼

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

マクロを試してみます。

回答No.2

noname#187541

こんにちは。

Excelの一般機能で自動で日付を入力するには　=TODAY()　とするしかないです。

ところがこれでは、日付が変われば当然変わってしまいます。

「Ctrl+;」は日付を文字列で手入力するショートカットキーで変化あはしません。

ですので、変化しても良いのであれば　=TODAY()　で良いでしょうが、そうでなければマクロを使うしかないと思います。

補足

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

すいません。間違えました。
Ａ列に入るのは、文字列の数字で、
隣のＢ列にＡ列に数字を入れた時の日付けを自動入力したいのです。

なので、日付がかわっていいんです。

ご回答いただいた「　=TODAY()」は
どういう風に使えばいいんでしょうか？
カッコに何をいれればいいんでしょうか？

よろしくお願いします。

回答No.1

trick_fate

B1の計算式
=if($A1="n",today(),0)
B1の書式設定で、数値表示方法を「#,###」にすれば、0は表示されない。

お礼

今試してみたんですが
使い方がよくわかりませんでした。

それで、質問を間違えたのですが、

Ａ列に入るのは、文字列の数字で、
隣のＢ列にＡ列に数字を入れた時の日付けを自動入力したいのです。

よろしくお願いします。