触发事件时通知单元格中的文本

Question

我能够在满足事件条件时收到通知。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Range("H2:H7")
    If Format$(c.Value, "HH:MM:SS") = "00:15:00" Then
        MsgBox "Block ends in 15 mins"
    End If
Next c

现在我目前的问题是，当其中一个事件被触发时。我想通过 MsgBox 通知触发了哪个 Block。

例如上面的例子，Block 2 命中 15 分钟，我想通过 MsgBox 通知 "Block 2 ends in 15 mins"。感谢您的帮助，希望我没有混淆。

Answer 1

如果块号是测试单元格左侧的一个单元格，请使用：

MsgBox "Block " & c.Offset(0, -1).Value & " ends in 15 mins"

Answer 2

您可以使用地址：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Range("H2:H7")
    If Format$(c.Value, "HH:MM:SS") = "00:15:00" Then
        MsgBox "Block ends in 15 mins" & vbNewLine & "Adress: " & c.Address
    End If
Next c

触发事件时通知单元格中的文本

Notify the text in the cell when the event is fired

excel

vba

msgbox