|
こんばんは
シートタブを右クリックして「コードの表示」で表示されたシートモジュールに、
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Range
Dim r As Range
Dim rr As Range
Set a = Range("C10:C" & Rows.Count)
Set r = Intersect(Target, a)
If r Is Nothing Then Exit Sub
If Target.Columns.Count = Columns.Count Then Exit Sub
Application.EnableEvents = False
For Each rr In r
If IsDate(rr) = True Then
rr.Offset(, -1).Value = _
Application.Max(a.Offset(, -1)) + 1
End If
Next
Application.EnableEvents = True
End Sub
で。
取り敢えず、行削除だけには対応出来ていると思いますけど、複数セルの削除とかが有り得るとするとその対応とか
色々考慮しないとダメだと思います。
|
|