Java中if then语句_如何在VBA中使用多个If Then语句

我需要帮助才能正确运行下面给出的VBA代码 .

我要做的是检查它们的值是否为1的单元格集 .

如果 True ,则会出现一个MsgBox,提示用户输入正确的值并停止脚本进一步运行 .

如果 False ,则脚本移动到If-Then语句的下一行 .

如果所有语句都为False,则脚本最终保存活动工作表并移至工作簿中的下一个工作表 .

Issue

当语句是 True 时,我的脚本不是 Stop . 我尝试使用Exit Sub,然后在每个If&Then语句之后使用End If但代码不能按预期工作

我是任何形式的编码的新手,下面的代码是我能想到的最好的代码 . 如果有任何优化的方法,那么我可以理解它并实现相同的 .

Sub BasicInfo()

If Range("C5").Value = "" Then MsgBox ("Please enter a Name!")

If Range("C6").Value = "" Then MsgBox ("Please enter your Designation!")

If Range("C8").Value = 1 Then MsgBox ("Please enter your Gender!")

If Range("C9").Value = 1 Then MsgBox ("Please enter Years of Experience!")

If Range("C10").Value = 1 Then MsgBox ("Please enter Years of Experience in present Job!")

If Range("C11").Value = 1 Then MsgBox ("Please enter your Date of Birth!")

If Range("D11").Value = 1 Then MsgBox ("Please enter your Month of Birth!")

If Range("E11").Value = 1 Then MsgBox ("Please enter your Year of Birth!")

If Range("C12").Value = 1 Then MsgBox ("Please enter marital Status!")

If Range("C13").Value = 1 Then MsgBox ("Please enter your Enducation!")

If Range("C14").Value = 1 Then MsgBox ("Please enter your Nationality!")

ActiveWorkbook.Save

Worksheets(ActiveSheet.Index + 1).Select

结束子

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值