合併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（灰色複選標記旁邊我的回答）：

你接受（點擊它）之後，它會變成綠色：