audio - 每当单元格值发生变化时，都会弹出一个窗口

Question

我写了一个简单的宏

=IF(C2=H2,1,))

因此，只要C2的值等于H2的值，就会弹出一个窗口，说“HI”

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim rng As Range
    Set rng = Range("H2")
    If Not Intersect(Target, rng) Is Nothing Then
        If rng = "1" Then
            MsgBox "Cell " & _
                   rng.Address & " = hi"
        End If
    End If

    Set rng = Nothing
End Sub

问题是我需要它来产生声音以及弹出窗口，更重要的是，我需要它来完成1000行(即c2，c3，c4到c1000)。
别告诉我，我需要粘贴并复制上千次。

Answer 1

很难理解您到底想完成什么，因为您的问题不是很清楚。如果我理解正确，则在H列中更改值时，您要检查它是否与C列中的相应单元格匹配。如果值匹配，则要显示消息框并播放声音。这段代码可以做到这一点。如果我对目标有误解，请澄清一下，我会尽力提供帮助。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    On Error Resume Next
    If Target.Column = 8 Then
        If Target.Value = Target.Offset(0, -5).Value Then
            Beep
            MsgBox "Cell " & Target.Address(False, False) & " = Hi"
        End If
    End If
    On Error GoTo 0
End Sub