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

wj2368

7016427 发表于 2020-1-15 13:50
请问老师怎么改？

1. Private Sub Worksheet_Change(ByVal Target As Range)   
   
2.     If Cells(6, 10).Value > 0 Then
   
3.         If Cells(40, 7).Value - Cells(40, 10).Value > 0 Then
   
4.             MsgBox Cells(3, 1) & "窗口的，收入与支出合计金额不平！" & Chr(10) & Chr(10) & "少缴：" & Format(Cells(40, 7).Value - Cells(40, 10).Value, "0.00"), 64, " 注 意"
   
5.         ElseIf Cells(40, 7).Value - Cells(40, 10).Value < 0 Then
   
6.                 MsgBox Cells(3, 1) & "窗口的，收入与支出合计金额不平！" & Chr(10) & Chr(10) & "多缴：" & Format(Cells(40, 7).Value - Cells(40, 10).Value, "0.00;0.00"), 64, " 注 意"
   
7.             Else
   
8.                 MsgBox "X窗口的，收入与支出合计金额平！"           
   
9.         End If
   
10.     End If
    
11. End Sub
    

复制代码

liulang0808

7016427 发表于 2020-1-15 13:33
当Cells(40, 7).Value - Cells(40, 10).Value =0时，不能弹出提示！

楼主看下2楼的代码，另外楼主的条件是0，是不是真的0，建议用msgbox 返回下具体结果看看