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

Question

我试图找出如何将下面的 Worksheet_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

我们将不胜感激任何帮助我们的指导。

Answer 1

你不需要做太多...

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

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

Combining two worksheet change events excel vba

excel

vba

worksheet