组合两个工作表更改事件excel vba

我试图找出如何将下面的

工作表\u Change

事件组合在同一工作表中运行。它们在不同的床单上完美地工作，但不能在一起

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Range("D4").Interior.Color = RGB(Range("D6"), Range("E6"), Range("F6"))
    On Error GoTo 0
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B4")) Is Nothing Then
        Exit Sub
    Else
        Macro4
    End If
End Sub

---

我们将非常感谢您对我们指导的任何帮助。

您不需要做太多

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Range("D4").Interior.Color = RGB(Range("D6"), Range("E6"), Range("F6"))
    If Intersect(Target, Range("B4")) Is Nothing Then Exit Sub
    Macro4
End Sub

---

LOL-可以做更少的更改，只需删除中间的

结束子工作表

和

私有子工作表_更改（ByVal Target As Range）

行。是的，我只是在不需要时自动删除If-Else结束If。情不自禁！预期结果和当前结果是什么？