如何在VBA中使用多个If Then语句

时间:2018-05-10 11:53:50

标签: excel excel-vba excel-2010 vba

我在正确运行下面给出的VBA代码时需要帮助。

我要做的是检查一组单元格,如果它们的值为1。

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

如果 False ,则脚本将移至If-Then语句的下一行。

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

问题

当语句为 True 时,我的脚本不会停止。我尝试使用Exit Sub,然后在每个If&之后使用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

End Sub

0 个答案:

没有答案