晚上好，
我想知道我如何使此代码在从N7到N51的一系列单元上工作？
弹出框可以完美地工作，但是仅在N7的引用单元格中，我需要它才能在从N7到N51的每个单元格上工作，以便在每个单元格值更改时出现弹出框。因此，如果更改单元格N8，则会出现该框，依此类推。这样做的原因不是每个单元格都会改变，我只需要在更改的单元格上显示弹出框即可。在此，代码ive设法将它们组合在一起。
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
在此先感谢您的帮助。
京东
使用相交方法。
这不会检查更改后的单元格的值，您可能还想检查是否更改了多个单元格。
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
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句