67

view

マクロを変更しました。対象シートのシートモジュールに次のコードをコピーしてください。Private Sub Worksheet_Change(ByVal Target As Range) Dim Date1 As Variant, Date2 As Variant Dim rNum1 As Long, rNum2 As Long If Target.Address <> "$A$1" And Target.Address <> "$A$2" Then Exit Sub Range("D2:E" & Rows.Count).ClearContents Date1 = Range("A1").Value Date2 = Range("A2").Value If Not IsDate(Date1) Or Not IsDate(Date2) Then Exit Sub Application.ScreenUpdating = False rNum2 = 2 For rNum1 = 2 To Cells(Rows.Count, 2).End(xlUp).Row If Date1 <= Cells(rNum1, 2).Value And Cells(rNum1, 2).Value <= Date2 Then Cells(rNum2, 4).Value = Cells(rNum1, 2).Value Cells(rNum2, 5).Value = Cells(rNum1, 3).Value rNum2 = rNum2 + 1 End If Next rNum1 Columns("D:E").Sort Key1:=Range("D1"), Header:=xlYes Application.ScreenUpdating = TrueEnd SubA1・A2セルに日付を入力すると、自動的にD・E列に日付・品名がリストアップされます。