Question

excel 单元格数据改变引起的触发事件Worksheet_Change(ByVal Target As Range)

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
For i = 2 To [65536].End(xlUp).Row
If Cells(i, 8).Value < Date And Cells(i, 8).Value > 0 Then
Cells(i, 9) = Cells(i, 9).Value
Cells(i, 12) = Cells(i, 12).Value
Cells(i, 13) = Cells(i, 13).Value
Cells(i, 16) = Cells(i, 16).Value
Cells(i, 17) = Cells(i, 17).Value
Cells(i, 18) = Cells(i, 18).Value
End If
Next
Application.ScreenUpdating = True
End Sub
如何把上面的代码修改为单元格里的数据小于系统时间时触发CHANGE事件，及L列的日期小于系统时间时，后几列的数据选择性粘帖成数值，我想在CHANGE这个代码中实现效果，应该怎么写

Answer 1

12