[已解决]多条件判断句

qhllqhll

请各位老师帮忙写出下面的判断 vba 代码
  条件1：如果：[a1]="" 则执行
                      提示：a 1 不能为空.............
                     跳出程序
  条件2： 另外如果: [d1]<>"姓名“
                      则提示：姓名不对，不能执行此程序.............
                     跳出程序
   否则 执行
           要执行的正规程序........

也就是当满足以上两个条件的时候才能"“要执行的正规程序........

谢谢

最佳答案

月排行榜 / 总排行榜

pandengyisun

2011-8-29 16:27

if  [a1]=""  then
msgbox "a 1 不能为空............."
exit sub
elseif [d1]<>"姓名" then
  msgbox "姓名不对，不能执行此程序............."
  exit sub
else
  要执行的正规程序........
end if

跳转到最佳答案楼层

pandengyisun

if  [a1]=""  then
msgbox "a 1 不能为空............."
exit sub
elseif [d1]<>"姓名" then
  msgbox "姓名不对，不能执行此程序............."
  exit sub
else
  要执行的正规程序........
end if

studyexcel

回复 qhllqhll 的帖子

Sub aa()
    If [a1] = "" Then
        Application.EnableEvents = False
        Application.Undo
        MsgBox "单元格" & Replace([a1].Address, "$", "") & "不能为空"
        Application.EnableEvents = True
        Exit Sub
    ElseIf [d1] <> "名字" Then
        Application.EnableEvents = False
        Application.Undo
        MsgBox "姓名不对"
        Application.EnableEvents = True
        Exit Sub
    End If
End Sub

qhllqhll

谢谢两位老师 帮我解决了问题

pandengyisun

回复 qhllqhll 的帖子

朋友，请设置最佳答案？