[已解决]VBA的多条件设立

qingzhen322

新手的烦恼多啊！求助以下vba代码
条件：D列为空时，E列必须为空；
      D列为非空时，E列必须为非空；
另外：D列为非空时，非空单元格行所对应的F列单元格必须为非空；
      E列为非空时，非空单元格行所对应的F列单元格必须为非空。
上述条件不成立，则退出程序，提示“条件不成立”；上述条件成立，则运行下面的代码。
请前辈们指教。谢谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-27 17:49

1.     'D列为空且E列为空                                        D列非空且（E列非空或F列非空                                                            E列为非空且F列为非空
   
2. If (Len(Cells(lRow, 4)) = 0 And Len(Cells(lRow, 5)) = 0) Or (Len(Cells(lRow, 4)) > 0 And (Len(Cells(lRow, 5)) = 0 Or Len(Cells(lRow, 6)) > 0)) Or (Len(Cells(lRow, 5)) > 0 And Len(Cells(lRow, 6)) > 0) Then
   
3.     MsgBox "条件成立", vbInformation
   
4. Else
   
5.     MsgBox "条件不成立", vbCritical
   
6.     Exit Sub
   
7. End IF

复制代码

这个只针对某列的某行来判断，如果整列的，最后还要判断到某列对应的某行的话，比较复杂了。

跳转到最佳答案楼层

hwc2ycy

要整列非常还是只判断一列的某行。

hwc2ycy

1.     'D列为空且E列为空                                        D列非空且（E列非空或F列非空                                                            E列为非空且F列为非空
   
2. If (Len(Cells(lRow, 4)) = 0 And Len(Cells(lRow, 5)) = 0) Or (Len(Cells(lRow, 4)) > 0 And (Len(Cells(lRow, 5)) = 0 Or Len(Cells(lRow, 6)) > 0)) Or (Len(Cells(lRow, 5)) > 0 And Len(Cells(lRow, 6)) > 0) Then
   
3.     MsgBox "条件成立", vbInformation
   
4. Else
   
5.     MsgBox "条件不成立", vbCritical
   
6.     Exit Sub
   
7. End IF

复制代码

这个只针对某列的某行来判断，如果整列的，最后还要判断到某列对应的某行的话，比较复杂了。

qingzhen322

我说的D列、E列、F列，指的是列区域，比如，D列是D1：D10、E列是E1：E10、F列是F1：F10