第1个回答 2012-09-16
在工作表名称上点鼠标右键,选查看代码,粘贴以下代码到弹出的VBA编辑窗口.
代码如下:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
With Target
If .Value = "已完成" And .Offset(0, 1) = "" Then
MsgBox .Offset(0, 1).Address(0, 0) & "还没填写完成日期!"
.Offset(0, 1).Select
End If
End With
End If
End Sub
第2个回答 2012-09-16
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
i = Target.Row
If Cells(i, 1) = "已完成" And Cells(i, 2) = "" Then
MsgBox "单元格B" & i & "还没填写完成日期"
End If
End Sub
以上代码已测试通过本回答被提问者和网友采纳