VBAにお詳しい方！教えてくださいませ。

質問

エクセルで、E列に文字を入力した際にB列に、J列からM列に文字を入力した際にC列に入力した日付を自動的に入力されるようなマクロを教えてください。

自分で探した限りでは
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r, rng As Range
Set rng = Intersect(Target, Columns("E:E"))
　　If Not rng Is Nothing Then
　　　　For Each r In rng
　　　　　　If r.Value = "" Then
　　　　　　　　r.Offset(, -3).ClearContents
　　　　　　Else
　　　　　　　　r.Offset(, -3).Value = Date
　　　　　　End If
　　　　Next r
　　End If
End Sub

までしか出来ませんでした。

しかも複数条件を指定する方法もわかりません・・・・。

ぜひともお詳しい方、ご伝授くださいませ

回答No.2

mu2011 · ベストアンサー

一例です。

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("e:e")) Is Nothing Then
Set x = Cells(Target.Row, "B")
Else
If Intersect(Target, Range("J:M")) Is Nothing Then Exit Sub
Set x = Cells(Target.Row, "C")
End If
Debug.Print Target.Address
For Each r In Target
If r.Value = "" Then
x.ClearContents
Else
x.Value = Date
End If
Next
End Sub

お礼

ありがとうございました！
上記で、思っていた物ができました！

誠にありがとうございました＞＜

回答No.1

kmetu

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = Range("E:E").Column Then
Range("B" & Target.Row) = Date
ElseIf Target.Column >= Range("J:J").Column And Target.Column <= Range("M:M").Column Then
Range("B" & Target.Row) = Range("C" & Target.Row)
End If

End Sub

こういうことでしょうか？

> E列に文字を入力した際にB列に

今日の日付を入れるんですよね。

で
.> 列からM列に文字を入力した際にC列に入力した日付

C列の日付ををB列に入れるんですよね。

補足

ありがとうございます。とても参考になります(^^
上記試してみましたが、J～M列のどこかに記入した時、反映されませんでした・・・。

今思うと、とてもわかりにくい説明でした。
補足しますと

B列→新規登録日　C列→内容更新日
E列→物件名　J～M列→進捗情報　みたいな感じなんです。

物件を始めて登録する時には、かならずE列に入力をするので、E列に入力日(当日)が反映される
ようになるとうれしいです。
J～M列はその時々によって変るので、ここに何がし入力された際、Cの列に日付(入力日)が反映されるようにできないかなぁ？と考えているのです。
(C列の日付が入力された際、B列の日付は変わってほしくないのです)

もし、関数でも可能であれば、ご伝授よろしくお願い致します。