结合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 

任何人都可以build议如何结合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：

---

附录：如何接受一个错误

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

你接受（点击它）后，它会变成绿色：