- 436 名前：デフォルトの名無しさん mailto:sage [2021/04/25(日) 14:48:07.76 ID:CqRWqB530.net]
- Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:C2")) Is Nothing Or Target.Cells.Count > 6 Then Exit Sub
application.enableevents=false
Worksheets("１").Range（"D1"）= dateserial（range（"a1"）,range（"b1"）,range（"c1"））
Worksheets("１").Range（"D2"） = dateserial（range（"a２"）,range（"b２"）,range（"c２"））
R = R + 1
Cell(R , "D").Value = day
Next day
End Sub
こんな感じでしょうか？
