|
- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Count > 1 Then Exit Sub
- If Target.Address Like "$[DE]$*" Then
- Dim lRow As Long
- lRow = Target.Row
- Application.EnableEvents = False
- If Len(Cells(lRow, 1)) = 0 Or Len(Cells(lRow, 2)) = 0 Or Cells(lRow, 1) & Cells(lRow, 2) Like "* *" Then
- Target = ""
- MsgBox "请先在A,B列输入完整的内容后再操作D,E列"
- End If
- Application.EnableEvents = True
- End If
- End Sub
复制代码 刚上面B列的写错了。
|
|