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

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   
1   15:00
2   17:00
3   19:00
4   21:00
5   23:00
6   01:00

例如，如上所述，Block 2命中15分钟，我希望被MsgBox通知“Block 2以15分钟结束”。 感谢您的帮助，希望我不要混淆。

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