合并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：

---

附录：如何接受拒绝

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

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