- 438 名前：デフォルトの名無しさん mailto:sage [2021/04/25(日) 15:22:01.39 ID:trooC9Gj0.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
日付1 = dateserial（range（"a1"）,range（"b1"）,range（"c1"））
日付2 = dateserial（range（"a２"）,range（"b２"）,range（"c２"））
For 日付 = 日付1 To 日付2
R = R + 1
Cell(R , "D").Value = 日付
Next
application.enableevents=true
End Sub
