结合2个私人事件潜艇

Question

我需要帮助合并下面的2个私人潜艇。如果修改或编辑该行中的任何单元格，则一个用于A列中的时间戳。第二个用于突出显示已修改的行。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Or Target.Column > 76 Then Exit Sub
    Application.EnableEvents = False
    Cells(Target.Row, 1) = Now
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Target.Interior.Color = RGB(181, 244, 0)
End Sub

Private Sub Worksheet_Deactivate()
    Cells.Interior.ColorIndex = xlNone
End Sub

有人可以建议如何组合Worksheet_Change潜艇吗？

Answer 1

尝试使用以下代码合并2 X Worksheet_Change事件：

Private Sub Worksheet_Change(ByVal Target As Range)

Target.Interior.Color = RGB(181, 244, 0)

If Target.Column > 1 And Target.Column <= 76 Then
    Application.EnableEvents = False
    Range("A" & Target.Row).Value = Now
    Application.EnableEvents = True
End If

End Sub

现在13:46时间运行此代码：

附录：如何接受asnwer

点击 V （我的回答旁边的灰色复选标记）：

接受（点击它）后，它将变为绿色：