Question

EXCELVBA如何实现多条件判断，自动备注判断的结果，结果正确就pass结果不正确就报警提示在线等急求代码

声音错误提示
在EXCEL中 如果(A1=c1,b1=d1)那么在E1单元格就显示pass(能否标注颜色)并且继续下面的扫描，如果(A1不等于c1,b1=d1)或则(A1=c1,b1不等于d1)那么E1单元格就会暂停在这个单元格并且标注“错误”而且发生报警，谢谢

Answer 1

Sub 判断()
Dim int2 As Integer
For int1 = 2 To Range("A65536").End(xlUp).Row
If Cells(int1, 1).Value = Cells(int1, 3).Value And Cells(int1, 2).Value = Cells(int1, 4).Value Then
With Cells(int1, 5)
.Value = "pass"
.Interior.ColorIndex = 3
.Font.Color = 1
.HorizontalAlignment = xlCenter
End With
Else
With Cells(int1, 5)
.Select
.Value = "错误"
.HorizontalAlignment = xlCenter
End With
MsgBox "该行存在不匹配数据", vbCritical, "错误提示"
Exit Sub
End If
Next int1
End Sub
抱歉这个问题我在手机上面看到的早，但是编写代码需要测试，而我不在家没有电脑，手机没法测试，一直拖到现在，也不知道您的问题解决掉了没有。
不知道您的具体情况，暂时写了这样的代码您试试是不是您想要的效果，有什么问题再讨论，祝您工作顺利，希望我的回答能帮到您！

追答

把dim int2改成中的int2改成int1，刚发现写错了。

Answer 2

什么条件才算正确，使用语音提醒也可以做到，要在代码中使用到application.speech.speak语句，但是要下载中文语音引擎，如果没有这个在excel中是无法播出提示的。因为excel毕竟只是数据分析软件而不是媒体类软件。

追问

在EXCEL中 如果(A1=c1,b1=d1)那么在E1单元格就显示pass(能否标注颜色)并且继续下面的扫描，如果(A1不等于c1,b1=d1)或则(A1=c1,b1不等于d1)那么E1单元格就会暂停在这个单元格并且标注“错误”而且发生报警，谢谢

追答

你还是使用公式比较好。
e1=IF(AND(A2=C2,B2=D2),"pass","错误")，报警没那个必要。

追问

主要目的其实就是报警。因为我们仓库出货只有一个人，没有报警的话 不容易发现错误

追答

难道你们工作只需用耳无需用眼，将错误的筛选出来不就一目了然了吗？语音提醒速度快反而影响工作。请问你的电脑有中文的语音引擎吗？恐怕没有吧，而且标准普通话的语音引擎是很难下载到的。

Answer 3

　　《春望》作者：杜 甫