晚上好
我想知道如何让这段代码在从N7到N51的单元格范围内工作?
弹出框可以完美地工作,但只有在N7的引用单元格中,我需要在N7到N51的每个单元格中工作,这样当每个单元格的值发生变化时,弹出框就会出现。因此,如果改变N8单元格,弹出框就会出现,以此类推。原因是并不是每个单元格都会发生变化,我只需要弹出框出现在发生变化的单元格上。 下面是我设法汇集的代码。
Private Sub Worksheet_change(ByVal Target As Range)
If Target.Address = "$N$7" Then
MsgBox "If Date Entered In Attempt 3 -Send Text Message Chaser Email" & VBA.vbCrLf & "If Date deleted from Attempt 3 ignore this message" & Target, vbOKOnly, "Warning"
End If
End Sub
先谢谢你的帮助。
JD
使用 交叉 方法,但这并不检查被更改的单元格的值,你可能还想检查是否有多个单元格被更改。
这并不检查被更改的单元格的值,你可能还想检查是否有多个单元格被更改。
Private Sub Worksheet_change(ByVal Target As Range)
If Not Intersect(Target, Range("N7:N51")) Is Nothing Then
MsgBox "If Date Entered In Attempt 3 -Send Text Message Chaser Email" & VBA.vbCrLf & "If Date deleted from Attempt 3 ignore this message" & Target, vbOKOnly, "Warning"
End If
End Sub