|
どうしても分からなくて投稿します
チェンジイベントを使用しています。
K列(k列内ならどこでもOK)に日付を入力すると、隣のセル(L列)にマクロによって設定された値が表示されるようになっているファイルがありますが…
同じ日付が続く場合、コピーして日付を入力しようと、
K列に同時に複数の値を入れると、一つのセルしか隣のセルに値が表示されません
これを回避するにはどうしたらよいのでしょうか?
どうか、アドバイスお願いします
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastR As Integer, MDayR As Long
Dim 指定Day As Long, 基準Day As Long
Dim MyRange As Range, MyRange2 As Range
Dim MyItem As Date, 基準Item As Date
LastR = Sheets("設定").Range("A" & Rows.Count).End(xlUp).Row
If Target.Row = 1 Or Target.Row > LastR Then Exit Sub
If Target.Column <> 11 Then Exit Sub
Application.EnableEvents = False
MyItem = Range("K" & Target.Row).Value
基準Item = Range("G" & Target.Row).Value
With Sheets("MDay")
MDayR = .Range("A" & Rows.Count).End(xlUp).Row
Set MyRange = .Range("A2:A" & MDayR).Find(what:=MyItem, lookat:=xlWhole)
If Not MyRange Is Nothing Then
指定Day = MyRange.Offset(0, 1).Value
Set MyRange2 = .Range("A2:A" & MDayR).Find(what:=基準Item, lookat:=xlWhole)
If Not MyRange2 Is Nothing Then
基準Day = MyRange2.Offset(0, 1).Value
Range("L" & Target.Row).Value = 指定Day - 基準Day - 10
End If
Else
Range("L" & Target.Row).Value = ""
End If
End With
Application.EnableEvents = True
End Sub
|
|