VB条件判断语句

浩子haozi

测试.7z (8.36 KB, 下载次数: 5)

2013-3-7 18:38 上传

点击文件名下载附件
条件判断语句

附件是一个简单的模型，我想用VB语句达到如下效果：
如果B2或者D2有一个单元格为空，则提示：“请输入当前年月”
如果B2和D2不为空，则执行后面语句（数据不便透漏，请谅解！）
请教高手指导，谢谢！

Mr钙

        If Range("B2") = "" Or Range("D2") = "" Then
            Range("B2") = Year(Now)
            Range("D2") = Month(Now)
        End IfŒ

浩子haozi

Mr钙 发表于 2013-3-8 11:33
If Range("B2") = "" Or Range("D2") = "" Then
            Range("B2") = Year(Now)
          ...

谢谢 mr 钙的帮助！
我百度了半天，自己编了个，貌似也解决了！

If Cells(5, 9) = Empty Or Cells(5, 11) = Empty Or Cells(7, 9) = Empty Then
    MsgBox "基础信息不完整，请完善！"
    Else
End If

月来月好

高手。顶一下是必须的