某个Cell如果不为空那么另外某几个Cell也不能为空怎么设置最简单有效？(最简单者得全部分)
请问如果要下面上面的要求，该怎么做最简便，最简便且有效者得全部100分。
-----------------------------
A1如果不为空，那么B1,C1,D1,E1都不能为空，否则保存的时候提示报错。
A2如果不为空，那么B2,C2,D2,E2...
A3....
.
.
A15...
[解决办法]
如果一定要用这样的输入顺序,只能借助vba.
首先选中B:E,设置数据有效性公式为
=$a1 <> " "
然后alt+F11打开vbe,双击 "thisworkbook "并粘贴下面的代码.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For i = 1 To 15
If Cells(i, 1) <> " " Then
If Cells(i, 2) = " " Or Cells(i, 3) = " " Or Cells(i, 4) = " " Or Cells(i, 5) = " " Then
MsgBox ( "第 " & i & "行数据不完成,请补充. ")
Cancel = True
Exit Sub
End If
End If
Next
End Sub
PS:若要vba能够运行,打开文件时必须启用宏;或给该文件添加数字签名,并将此签名证书添加到信任区域.
[解决办法]
Gary：其实就是昨天我在msn里面说的那样，呵呵。
