我能够设法在遇到事件的情况时得到通知。
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分钟结束”。 感谢您的帮助,希望我不要混淆。
答案 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