日付を入力すると何故か今日の日付に

質問

いつもお世話になります。
WINDOWS7 EXCELL2010 です。

参照図で言うと、
B2 に例えば　1/4　と入力すると　今日の日付になります。
何故なんでしょうか。

影響しているのかどうかわかりませんが参考に下記のようなコードを使用しています。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 2 And Target.Address = Cells(Rows.Count, "C").End(xlUp).Address Then
Target.Offset(0, -1).Value = Date
End If

Dim c As Integer
If Target.Column <> 2 Then Exit Sub
If Target.Value = "" Then
c = 0
Else
On Error GoTo line
Select Case Month(Target.Value)
Case 1: c = 46
Case 2: c = 4
Case 3: c = 39
Case 4: c = 6
Case 5: c = 7
Case 6: c = 8
Case 7: c = 43
Case 8: c = 3
Case 9: c = 44
Case 10: c = 24
Case 11: c = 40
Case 12: c = 17
End Select
End If
Target.Offset(0, -1).Interior.ColorIndex = c
Target.Offset(0, -1).Font.ColorIndex = IIf(c = 1, 2, 0)
Exit Sub
line:
Target.Offset(0, -1).Interior.ColorIndex = 0
Target.Offset(0, -1).Font.ColorIndex = 0
End Sub

回答No.2

mt2008

B2の日付が今日の日付になるのは、B2に日付を入れた時ではなく、C2を変更した時だと思いますが違いますか？

で、あればそういうマクロだからとしか言いようがありません。
どうなって欲しかったのでしょう？

お礼

再度良く確認して下記を削除したところ解決しました。
If Target.Row >= 2 And Target.Address = Cells(Rows.Count, "C").End(xlUp).Address Then
Target.Offset(0, -1).Value = Date
End If

御迷惑かけました。
ありがとうございました。

補足

早速ご回答いただきありがとうございます。
確かに参照図で言う　C2 に顧客名を入力すると　B2 今日の日付の現象が出ます。
再度ご指導願えませんか。

したいことは　B2 にはマクロでの今日の日付入力ではなく手動入力ができればと。

よろしくご指導を再度お願いします。

回答No.1

mu2011

>B2 に例えば　1/4　と入力すると　今日の日付になります。
⇒何か勘違いされているのではないでしょうか。
　　B2に本日日付が入力されるのは、C2（C3以下は空欄が前提です）に入力された場合ですよ。
　　入力セルの検証コードをご確認下さい。

お礼

再度良く確認して下記を削除したところ解決しました。
If Target.Row >= 2 And Target.Address = Cells(Rows.Count, "C").End(xlUp).Address Then
Target.Offset(0, -1).Value = Date
End If

御迷惑かけました。
ありがとうございました。

補足

早速ご回答いただきありがとうございます。
確かに参照図で言う　C2 に顧客名を入力すると　B2 今日の日付の現象が出ます。
再度ご指導願えませんか。