Question

Excel如何用VBA实现，当A列某单元格如A1=“已完成”，则弹出对话框"B1还没填写完成日期"

a1 b1
a2 b2
a3 b3
........
急用，在线等。。。
说清楚点：当A1=“已完成”，但是B1为空时，则弹出对话框。
请你们自己测试完之后再把答案贴出来。

Answer 1

在工作表名称上点鼠标右键,选查看代码,粘贴以下代码到弹出的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

Answer 2

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

以上代码已测试通过

Answer 3

Private Sub Worksheet_Change(ByVal Target As Range)
If [a1].Value = "已完成" And [b1] = "" Then MsgBox "B1还没填写完成日期"
End Sub

追问

谢谢，绝大部分是这个样子。但是我刚才没说太明白，如果A3值是“已完成”的话，则弹出“B3还没填写完成日期”。不是总是弹出“B1还没填写完成日期”。大侠，能再修整一下吗？

Answer 4

if range("A1")="已完成" and range("B1")="" then msgbox "B1还没有填写完成日期"

追问

不对

追答

那你就等个对的吧

Answer 5

那就放弃，删除。再开！