自動日付入力方法

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

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

です。

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

よろしくお願いします。

No.4 ベストアンサー 回答者： NCU 回答日時： 2006/07/22 02:04

とりあえず。

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

この回答へのお礼

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

マクロを試してみます。

お礼日時：2006/07/23 10:47

No.3 回答者： mshr1962 回答日時： 2006/07/21 11:26

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

この回答へのお礼

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

マクロを試してみます。

お礼日時：2006/07/23 10:47

No.2 回答者： M-SOFT#2 回答日時： 2006/07/21 10:58

こんにちは。

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

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

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

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

この回答への補足

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

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

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

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

よろしくお願いします。

補足日時：2006/07/21 11:09

No.1 回答者： trick_fate 回答日時： 2006/07/21 10:53

B1の計算式

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

この回答へのお礼

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


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

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

よろしくお願いします。

お礼日時：2006/07/21 11:22