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

1 个答案: