Cómo EXCELVBA implementa el juicio de múltiples condiciones, anota automáticamente el resultado del juicio, pasa si el resultado es correcto y, si el resultado es incorrecto, se activará una alarma y el código se solicitará en línea.

Sub Judgment()

Atenuar int2 como entero

Para int1 = 2 al rango("A65536").End(xlUp).Row

Si Cells(int1, 1).Value = Cells(int1, 3).Value y Cells(int1, 2).Value = Cells(int1, 4).Value Entonces

Con celdas (int1, 5)

.Value = "pasar"

.Interior.ColorIndex = 3

.Font.Color = 1

.HorizontalAlignment = xlCenter

Terminar con

Else

Con celdas (int1, 5)

.Select

.Value = "Error"

.HorizontalAlignment = xlCenter

Terminar con

MsgBox "Hay datos que no coinciden en esta fila", vbCritical, "Error mensaje "

Salir del sub

Finalizar si

Siguiente int1

Fin del sub

Perdón por este problema, Lo vi antes en mi teléfono móvil, pero escribir código requiere prueba, no estoy en casa sin una computadora y no puedo realizar pruebas en mi teléfono móvil. Se ha retrasado hasta ahora y no sé si es el problema. ha sido solucionado.

No conozco tu situación específica. He escrito este código por el momento y puedes probarlo para ver si tiene el efecto que deseas. Si tienes alguna pregunta, la discutiremos. más tarde te deseo mucha suerte en tu trabajo y espero que mi respuesta te pueda ayudar.