请教各位，我这个代码问题

7016427

Private Sub Worksheet_Change(ByVal Target As Range)
' 以下代码，当Cells(40, 7).Value - Cells(40, 10).Value = 0时，要提示：X窗口的，收入与支出合计金额不平！多缴：0.00，请问老师怎样改才不提示？
If Cells(6, 10).Value > 0 And Cells(40, 7).Value - Cells(40, 10).Value > 0 Then
MsgBox Cells(3, 1) & "窗口的，收入与支出合计金额不平！" & Chr(10) & Chr(10) & "少缴：" & Format(Cells(40, 7).Value - Cells(40, 10).Value, "0.00"), 64, " 注 意"
End If
If Cells(6, 10).Value > 0 And Cells(40, 7).Value - Cells(40, 10).Value < 0 Then
MsgBox Cells(3, 1) & "窗口的，收入与支出合计金额不平！" & Chr(10) & Chr(10) & "多缴：" & Format(Cells(40, 7).Value - Cells(40, 10).Value, "0.00;0.00"), 64, " 注 意"
End If
End Sub
补充说明：只能发生Cells(40, 7).Value - Cells(40, 10).Value大于0，或者Cells(40, 7).Value - Cells(40, 10).Value时小于0，提示。

liulang0808

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     ' 以下代码，当Cells(40, 7).Value - Cells(40, 10).Value = 0时，要提示：X窗口的，收入与支出合计金额不平！多缴：0.00，请问老师怎样改才不提示？
   
3.     If Cells(6, 10).Value > 0 Then
   
4.         If Cells(40, 7).Value - Cells(40, 10).Value > 0 Then
   
5.             MsgBox Cells(3, 1) & "窗口的，收入与支出合计金额不平！" & Chr(10) & Chr(10) & "少缴：" & Format(Cells(40, 7).Value - Cells(40, 10).Value, "0.00"), 64, " 注 意"
   
6.         Else
   
7.             If Cells(40, 7).Value - Cells(40, 10).Value < 0 Then
   
8.                 MsgBox Cells(3, 1) & "窗口的，收入与支出合计金额不平！" & Chr(10) & Chr(10) & "多缴：" & Format(Cells(40, 7).Value - Cells(40, 10).Value, "0.00;0.00"), 64, " 注 意"
   
9.             Else
   
10.                 MsgBox "X窗口的，收入与支出合计金额不平！多缴：0.00"
    
11.             End If
    
12.         End If
    
13.     End If
    
14. End Sub
    

复制代码

大灰狼1976

浮点计算问题，你可以改成这样试试：
Cells(40, 7).Value - Cells(40, 10).Value > 0.0000001 then
反正货币精度不可能这么高。

7016427

liulang0808 发表于 2020-1-15 13:11

您好！我想：Cells(40, 7).Value - Cells(40, 10).Value =0时，不显示：X窗口的，收入与支出合计金额不平！多缴：0.00

liulang0808

7016427 发表于 2020-1-15 13:18
您好！我想：Cells(40, 7).Value - Cells(40, 10).Value =0时，不显示：X窗口的，收入与支出合计金额不平 ...

楼主原来的代码就不会涉及到Cells(40, 7).Value - Cells(40, 10).Value =0的情况，怎么会显示呢？

7016427

liulang0808 发表于 2020-1-15 13:23
楼主原来的代码就不会涉及到Cells(40, 7).Value - Cells(40, 10).Value =0的情况，怎么会显示呢？

老师您好！在另外台电脑就要显示的问题，同样的是Excel 2003版本。请问老师只是什么原因？

liulang0808

7016427 发表于 2020-1-15 13:28
老师您好！在另外台电脑就要显示的问题，同样的是Excel 2003版本。请问老师只是什么原因？

楼主看下自己发的需求，到底要是要处理什么吧。。。

7016427

liulang0808 发表于 2020-1-15 13:30
楼主看下自己发的需求，到底要是要处理什么吧。。。

当Cells(40, 7).Value - Cells(40, 10).Value =0时，不能弹出提示！

wj2368

条件句出问题

7016427

wj2368 发表于 2020-1-15 13:40
条件句出问题

请问老师怎么改？