VBAによる日付入力が

質問

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

「入力」のコマンドボタンをクリックして入力するのですがその時、
なぜか添付画像のように　02/01(N 2)と入力してもA列は01/24と表示されます。

N2の値がB列に入力されるマクロを下記のように設定してます。
何が原因かをご教示いただけないでしょうか。

「入力」
Sub 入力()
Dim GYOU '追加
GYOU = Range("C65536").End(xlUp).Row + 1
Cells(GYOU, 2).Value = Range("N1").Value
Cells(GYOU, 3).Value = Range("N2").Value
Cells(GYOU, 4).Value = Range("N3").Value
End Sub

「セルセット」
Sub セルセット()
' マクロ記録日 : 2010/4/30 ユーザー名 : YOKOHAMA
Range("N1,N2,N3,N1").Select
End Sub

以上ですがよろしくお願いします。

回答No.1

n-jun · ベストアンサー

Cells(GYOU, 2).Value = Range("N1").Value

これの替わりに

With Cells(GYOU, 2)
.NumberFormat = Range("N1").NumberFormat
.Value = Range("N1").Value
End With

これで”表示形式”も同じにしてみる？
⇒それでダメなら
With Cells(GYOU, 2)
.Value = Range("N1").Value
.NumberFormat = Range("N1").NumberFormat
End With
逆にしてみる。

それでダメなら・・・・？？？？

お礼

御迷惑をお掛けしました。
かなりいろいろと試しましたが解決てきました。
下記のまくろで　C を　A　に変更したらようやっとできました。

If Target.Row >= 2 And Target.Address = Cells(Rows.Count, "C").End(xlUp).Address

If Target.Row >= 2 And Target.Address = Cells(Rows.Count, "A").End(xlUp).Address

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

補足

ご指導いただいたものを良く確認しながら試させていただきました。

警告が出て再度原点に戻りトライしました結果、
A列を月度別に色付けして分かり易くするための下記のマクロが影響しているようです。
入力した日付を返すようです。

どこの部分を修正すればいいか、
再度ご指導いただけないでしょうか。

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