作者:乔山办公网日期:
返回目录:excel表格制作
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
i = Target.Row
If Cells(i, 1) = "已完成" And Cells(i, 2) = "" And ActiveCell.Row <> i Then
MsgBox "单元格B" & i & "还没填写完成日zd期"
End If
End Sub
在你的代码基础上 增加一个条件?And ActiveCell.Row <> i 也就是 从回A 直接到B的时候 不提示答 如果离开到下一行了再提示……
If Range("a1") = "正确" Then
respons = MsgBox("提示…百度…", vbYesNo)
If respons = vbYes Then
A 代码版
ElseIf respons = vbNo Then
B代码
Else
End If
End If
加入权这样的语句 试试……