[已解决]请帮忙修改下面代码

jiangslly

If Sheet12.Cells(e, 31) <> "" Then
If MsgBox("工资已计算，是否重新计算？", vbYesNo + 32, "系统提示") = vbNo Then _
Exit Sub
End If
If MsgBox("确定要计算工资吗？", vbYesNo + 32, "系统提示") = vbNo Then _
   Exit Sub
   End If
我的想法是如果出现了第一个提示框，当我按确定后，就跳过第二个提示框，如果没有第一个提示框，就直接进入第二个提示框
现在这样的问题是当出现了第一个提示框，第二提示框还会出现，改怎么解决，谢谢

最佳答案

月排行榜 / 总排行榜

fjmxwrs

2011-8-13 14:24

1. 
   
2. 
   
3. If Sheet12.Cells(e, 31) <> "" Then
   
4. If MsgBox("工资已计算，是否重新计算？", vbYesNo + 32, "系统提示") = vbNo Then  Exit Sub
   
5. 
   
6. '点确定时的代码
   
7. Else
   
8. If MsgBox("确定要计算工资吗？", vbYesNo + 32, "系统提示") = vbNo Then   Exit Sub
   
9. 
   
10. '点确定时的代码
    
11. End If
    

复制代码

跳转到最佳答案楼层

fjmxwrs

1. 
   
2. 
   
3. If Sheet12.Cells(e, 31) <> "" Then
   
4. If MsgBox("工资已计算，是否重新计算？", vbYesNo + 32, "系统提示") = vbNo Then  Exit Sub
   
5. 
   
6. '点确定时的代码
   
7. Else
   
8. If MsgBox("确定要计算工资吗？", vbYesNo + 32, "系统提示") = vbNo Then   Exit Sub
   
9. 
   
10. '点确定时的代码
    
11. End If
    

复制代码