我需要帮助才能正确运行下面给出的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
结束子