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

时间:2018-03-14 15:38:16

标签: excel excel-vba msgbox vba

我能够设法在遇到事件的情况时得到通知。

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分钟结束”。 感谢您的帮助,希望我不要混淆。

2 个答案:

答案 0 :(得分:0)

如果块编号是测试单元格左侧的一个单元格,则使用:

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

答案 1 :(得分:0)

您可以使用地址:

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