VBA IF循环有点累,请帮我合并为一个按钮.Private Sub CommandButton1_Click()If Range("_ESF2435") = "错误" ThenDim AnswerAnswer = MsgBox("合格率低于90%或者大于110%,请确定回收数量是否正确!" & Range("A2") & _vbCrLf & vbC
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/25 20:33:49
![VBA IF循环有点累,请帮我合并为一个按钮.Private Sub CommandButton1_Click()If Range(](/uploads/image/z/10596963-3-3.jpg?t=VBA+IF%E5%BE%AA%E7%8E%AF%E6%9C%89%E7%82%B9%E7%B4%AF%2C%E8%AF%B7%E5%B8%AE%E6%88%91%E5%90%88%E5%B9%B6%E4%B8%BA%E4%B8%80%E4%B8%AA%E6%8C%89%E9%92%AE.Private+Sub+CommandButton1_Click%28%29If+Range%28%22_ESF2435%22%29+%3D+%22%E9%94%99%E8%AF%AF%22+ThenDim+AnswerAnswer+%3D+MsgBox%28%22%E5%90%88%E6%A0%BC%E7%8E%87%E4%BD%8E%E4%BA%8E90%25%E6%88%96%E8%80%85%E5%A4%A7%E4%BA%8E110%25%2C%E8%AF%B7%E7%A1%AE%E5%AE%9A%E5%9B%9E%E6%94%B6%E6%95%B0%E9%87%8F%E6%98%AF%E5%90%A6%E6%AD%A3%E7%A1%AE%21%22+%26+Range%28%22A2%22%29+%26+_vbCrLf+%26+vbC)
VBA IF循环有点累,请帮我合并为一个按钮.Private Sub CommandButton1_Click()If Range("_ESF2435") = "错误" ThenDim AnswerAnswer = MsgBox("合格率低于90%或者大于110%,请确定回收数量是否正确!" & Range("A2") & _vbCrLf & vbC
VBA IF循环有点累,请帮我合并为一个按钮.
Private Sub CommandButton1_Click()
If Range("_ESF2435") = "错误" Then
Dim Answer
Answer = MsgBox("合格率低于90%或者大于110%,请确定回收数量是否正确!" & Range("A2") & _
vbCrLf & vbCrLf & "确定请按“是”." & _
vbCrLf & vbCrLf & "否则,请按“否”后修改回收数量.",_
vbExclamation + vbYesNo + vbDefaultButton2,"请确认输入的回收数是否正确单")
If Answer = vbYes Then
Dim oAdd As Object
Set oAdd = Application.COMAddIns("ESClient10.Connect").Object
bResult = oAdd.saveCase(,True,True)
If bResult = False Then
MsgBox "保存失败!"
Else
Range("E13").Select
End If
Set oAdd = Nothing
Else
Range("E13").Select
End
End If
Else
Set oAdd = Application.COMAddIns("ESClient10.Connect").Object
bResult = oAdd.saveCase(,True,True)
If bResult = False Then
MsgBox "保存失败!"
Else
Range("E13").Select
End If
Set oAdd = Nothing
End If
End Sub
Private Sub CommandButton2_Click()
If Range("_ESF2439") > 0 Then
Dim Answer1
Answer1 = MsgBox("该工序已经存在" & Range("_ESF2439") & "张完工单,请确认是否重复输入" & _
vbCrLf & vbCrLf & "确定请按“是”." & _
vbCrLf & vbCrLf & "否则,请按“否”后修改单据.",_
vbExclamation + vbYesNo + vbDefaultButton2,"确认是否重复做单")
If Answer = vbYes Then
Dim oAdd As Object
Set oAdd = Application.COMAddIns("ESClient10.Connect").Object
bResult = oAdd.saveCase(,True,True)
If bResult = False Then
MsgBox "保存失败!"
Else
Range("E13").Select
End If
Set oAdd = Nothing
Else
Range("E13").Select
End
End If
Else
Set oAdd = Application.COMAddIns("ESClient10.Connect").Object
bResult = oAdd.saveCase(,True,True)
If bResult = False Then
MsgBox "保存失败!"
Else
Range("E13").Select
End If
Set oAdd = Nothing
End If
End Sub
VBA IF循环有点累,请帮我合并为一个按钮.Private Sub CommandButton1_Click()If Range("_ESF2435") = "错误" ThenDim AnswerAnswer = MsgBox("合格率低于90%或者大于110%,请确定回收数量是否正确!" & Range("A2") & _vbCrLf & vbC
这段代码十分诡异,后面的IF-ELSE-ENDIF嵌套匪夷所思,注释掉似乎也不影响运行逻辑啊.
Private Sub CommandButton1_Click()
If Range("_ESF2435") = "错误" Then
Dim Answer
Answer = MsgBox("合格率低于90%或者大于110%,请确定回收数量是否正确!" & Range("A2") & _
vbCrLf & vbCrLf & "确定请按“是”." & _
vbCrLf & vbCrLf & "否则,请按“否”后修改回收数量.",_
vbExclamation + vbYesNo + vbDefaultButton2,"请确认输入的回收数是否正确单")
If Answer = vbYes Then
Dim oAdd As Object
Set oAdd = Application.COMAddIns("ESClient10.Connect").Object
bResult = oAdd.saveCase(,True,True)
If bResult = False Then
MsgBox "保存失败!"
Else
Range("E13").Select
End If
Set oAdd = Nothing
Else
Range("E13").Select
' End
End If
'Else
' Set oAdd = Application.COMAddIns("ESClient10.Connect").Object
' bResult = oAdd.saveCase(,True,True)
' If bResult = False Then
' MsgBox "保存失败!"
' Else
' Range("E13").Select
' End If
' Set oAdd = Nothing
'End If
'End Sub
'
'Private Sub CommandButton2_Click()
If Range("_ESF2439") > 0 Then
Dim Answer1
Answer1 = MsgBox("该工序已经存在" & Range("_ESF2439") & "张完工单,请确认是否重复输入" & _
vbCrLf & vbCrLf & "确定请按“是”." & _
vbCrLf & vbCrLf & "否则,请按“否”后修改单据.",_
vbExclamation + vbYesNo + vbDefaultButton2,"确认是否重复做单")
If Answer = vbYes Then
Set oAdd = Application.COMAddIns("ESClient10.Connect").Object
bResult = oAdd.saveCase(,True,True)
If bResult = False Then
MsgBox "保存失败!"
Else
Range("E13").Select
End If
Set oAdd = Nothing
Else
Range("E13").Select
' End
End If
'Else
' Set oAdd = Application.COMAddIns("ESClient10.Connect").Object
' bResult = oAdd.saveCase(,True,True)
' If bResult = False Then
' MsgBox "保存失败!"
' Else
' Range("E13").Select
' End If
' Set oAdd = Nothing
'End If
End Sub