五行缺钱

2024-06-20 20:01

最伤心的事情了

看到吧友求助，就写了代码，发现被拉黑

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim objSheet As Excel.Worksheet
Set objSheet = Target.Worksheet

If Target.Cells.Column = 1 Or Target.Cells.Column = 2 Then
objSheet.Cells(Target.Row, 3).Value = Now
End If
End Sub