关于条件判断的问题

wz1235

我想在A2和B2输入的数据<=12时，自动关闭程序，但现在在其它单元格输入数据，也是自动退出程序，请问是怎么回事？谢谢。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
Range("f2") = Range("a2") * 25.4 / 2 + Range("b2") * 25.4 / 2 + Range("c2") + Range("d2") + Range("e2")
Application.EnableEvents = True
If Range("A2").Value = A Or Range("B2").Value <= 12 Then
Application.DisplayAlerts = False
ThisWorkbook.Saved = True
Application.Quit
Application.DisplayAlerts = True
End If
End Sub

liulang0808

if target.address(0,0)="A2" OR target.address(0,0)="B2" THEN
Application.EnableEvents = False
On Error Resume Next
Range("f2") = Range("a2") * 25.4 / 2 + Range("b2") * 25.4 / 2 + Range("c2") + Range("d2") + Range("e2")
Application.EnableEvents = True
If Range("A2").Value = A Or Range("B2").Value <= 12 Then
Application.DisplayAlerts = False
ThisWorkbook.Saved = True
Application.Quit
Application.DisplayAlerts = True
End If
ENDIF

wz1235

请问为什么下面的代码就没有问题？谢谢。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
Range("E3") = Range("A3") / (Range("B3") * (Range("C3") - Range("D3"))) * 1000
Application.EnableEvents = True
If Range("B3").Value = B Or Range("C3").Value = C Or Range("D3").Value = 0 Then
Application.DisplayAlerts = False
ThisWorkbook.Saved = True
Application.Quit
Application.DisplayAlerts = True
End If
End Sub

wz1235

请问2楼的代码怎么输入以后，关闭程序再打开程序代码就消失了。

NadrsSaber

wz1235 发表于 2019-12-8 22:19
请问2楼的代码怎么输入以后，关闭程序再打开程序代码就消失了。

保存为 xlsm 文件

wz1235

请问下面的代码还是有问题,现在只是B2输入小于12的数字的时候提出程序，A2输入小于12的数字没有提出程序，我想让A2和B2有一个满足条件的时候就提出程序，请问怎么做，谢谢。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A2" Or Target.Address(0, 0) = "B2" Then
Application.EnableEvents = False
On Error Resume Next
Range("f2") = Range("a2") * 25.4 / 2 + Range("b2") * 25.4 / 2 + Range("c2") + Range("d2") + Range("e2")
Application.EnableEvents = True
If Range("A2").Value = A Or Range("B2").Value <= 12 Then
Application.DisplayAlerts = False
ThisWorkbook.Saved = True
Application.Quit
Application.DisplayAlerts = True
End If
End If
End Sub