Entries from 2006-08-24 to 1 day
コピペでもいけます。 Private Sub Worksheet_Change(ByVal Target As Range) Dim wSheet As Worksheet Dim StartCellRow As Integer Dim EndCellRow As Integer Dim CheckCell As String Dim CellRange As String Dim ModVal As Integer '=================…