请老师帮我看看，我这个代码有4句执行时，无法正确判断的问题

7016427

Private Sub CommandButton1_Click()
' 请老师，帮我看看，以下黄色4句无法正确判断，也没有错误提示的问题
Dim wt As Workbook, d As String, s As String
d = "少退票费收据："
s = "多退票费收据："
With ThisWorkbook.Sheets("财收22")
.Unprotect Sheet6.[aa1]
.Range("w81").Value = TextBox5.Value
.Range("w82").Value = TextBox6.Value
.Range("w83").Value = TextBox7.Value
.Range("w84").Value = TextBox8.Value
.[x81].Formula = "=IF(w81>0,(w81-t81+1)*0.5,"""")"
.[x82].Formula = "=IF(w82>0,(w82-t82+1)*1,"""")"
.[x83].Formula = "=IF(w83>0,(w83-t83+1)*5,"""")"
.[x84].Formula = "=IF(w84>0,(w84-t84+1)*10,"""")"
.[x85].Formula = "=sum(r[-1]c:r[-4]c)"
If Val(TextBox5.Value) < .[w81].Value Then MsgBox "退票费伍角的止号，不能小于上次该票据使用  " & Chr(10) & Chr(10) & "的止号，按确定时自动调到上次止号！", 64, " 提 示": TextBox5.Value = .[w81].Value: Exit Sub
If Val(TextBox6.Value) < .[w82].Value Then MsgBox "退票费壹元的止号，不能小于上次该票据使用  " & Chr(10) & Chr(10) & "的止号，按确定时自动调到上次止号！", 64, " 提 示": TextBox6.Value = .[w82].Value: Exit Sub
If Val(TextBox7.Value) < .[w83].Value Then MsgBox "退票费伍元的止号，不能小于上次该票据使用  " & Chr(10) & Chr(10) & "的止号，按确定时自动调到上次止号！", 64, " 提 示": TextBox7.Value = .[w83].Value: Exit Sub
If Val(TextBox8.Value) < .[w84].Value Then MsgBox "退票费拾元的止号，不能小于上次该票据使用  " & Chr(10) & Chr(10) & "的止号，按确定时自动调到上次止号！", 64, " 提 示": TextBox8.Value = .[w84].Value: Exit Sub
If (.[ad26].Value + .[ag23].Value) - .[x85].Value > 0 Then MsgBox d & Format((.[ad26].Value + .[ag23].Value) - .[x85].Value, "0.00;0.00 "), 16, " 警 告!": Exit Sub
If (.[ad26].Value + .[ag23].Value) - .[x85].Value < 0 Then MsgBox s & Format((.[ad26].Value + .[ag23].Value) - .[x85].Value, "0.00;0.00 "), 16, " 警 告!": Exit Sub
End With
Unload Me
End Sub

7016427

请各位老师帮我看看，附件

7016427

谁能帮我解决这个难题？

一把小刀闯天下

Val(TextBox5.Value) < .[w81].Value   '两边都是相等的，条件当然不成立。右边是否为x81？

huang1314wei

楼主不会F8单步调试代码？

7016427

huang1314wei 发表于 2018-8-12 08:45
楼主不会F8单步调试代码？

我按F8测试没有错误提示！

7016427

一把小刀闯天下 发表于 2018-8-12 08:18
Val(TextBox5.Value) < .[w81].Value   '两边都是相等的，条件当然不成立。右边是否为x81？

老师好！w81是上次的止号，x81是金额，TextBox5是输入当天的止号，如果输入当天的止号小于上次止号w81时，就默认上次的止号，否则，输入TextBox5就作为当日止号，修改上次的止号w81。

7016427

7016427 发表于 2018-8-12 16:41
老师好！w81是上次的止号，x81是金额，TextBox5是输入当天的止号，如果输入当天的止号小于上次止号w81时 ...

Private Sub CommandButton1_Click()
' 现在还有点小问题，就是当其中一个错误时，终止执行下面的语句，请问老师怎么改？
Dim wt As Workbook, d As String, s As String
d = "少退票费收据："
s = "多退票费收据："
With ThisWorkbook.Sheets("财收22")
If Val(TextBox5.Value) < .[w81].Value Then MsgBox "退票费伍角的止号，不能小于上次该票据使用  " & Chr(10) & Chr(10) & "的止号，按确定时自动调到上次止号！", 64, " 提 示": TextBox5.Value = .[w81].Value: Exit Sub
If Val(TextBox6.Value) < .[w82].Value Then MsgBox "退票费壹元的止号，不能小于上次该票据使用  " & Chr(10) & Chr(10) & "的止号，按确定时自动调到上次止号！", 64, " 提 示": TextBox6.Value = .[w82].Value: Exit Sub
If Val(TextBox7.Value) < .[w83].Value Then MsgBox "退票费伍元的止号，不能小于上次该票据使用  " & Chr(10) & Chr(10) & "的止号，按确定时自动调到上次止号！", 64, " 提 示": TextBox7.Value = .[w83].Value: Exit Sub
If Val(TextBox8.Value) < .[w84].Value Then MsgBox "退票费拾元的止号，不能小于上次该票据使用  " & Chr(10) & Chr(10) & "的止号，按确定时自动调到上次止号！", 64, " 提 示": TextBox8.Value = .[w84].Value: Exit Sub
.Range("w81").Value = TextBox5.Value
.Range("w82").Value = TextBox6.Value
.Range("w83").Value = TextBox7.Value
.Range("w84").Value = TextBox8.Value
.[x81].Formula = "=IF(w81>0,(w81-t81+1)*0.5,"""")"
.[x82].Formula = "=IF(w82>0,(w82-t82+1)*1,"""")"
.[x83].Formula = "=IF(w83>0,(w83-t83+1)*5,"""")"
.[x84].Formula = "=IF(w84>0,(w84-t84+1)*10,"""")"
.[x85].Formula = "=sum(r[-1]c:r[-4]c)"

If (.[ad26].Value + .[ag23].Value) - .[x85].Value > 0 Then MsgBox d & Format((.[ad26].Value + .[ag23].Value) - .[x85].Value, "0.00;0.00 "), 16, " 警 告!": Exit Sub
If (.[ad26].Value + .[ag23].Value) - .[x85].Value < 0 Then MsgBox s & Format((.[ad26].Value + .[ag23].Value) - .[x85].Value, "0.00;0.00 "), 16, " 警 告!": Exit Sub
End With
Unload Me
End Sub