Utilice VBA para escribir un juicio en Excel y abrir un cuadro de diálogo
Coloque el siguiente código en el código VB de la hoja de trabajo requerida: Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Atenuar A1 mientras sea largo
Atenuar B1 mientras sea largo
Dim Rsp As String
'Define los códigos de valor de A1 y B1, omítelos
A1 = Range("A1") 'Asume el contenido de A1 , escríbalo usted mismo en la práctica
B1 = Range("B1") 'Asuma el contenido de B1, escríbalo usted mismo en la práctica
Si A1 gt B1 Entonces
Rsp = MsgBox("A1 es mayor que A2, ¿confirma para continuar?", vbYesNo)
Si Rsp = vbNo Entonces
ThisWorkbook.Close
End If
p>End If
End Sub Para ingresar el código anterior, puede usar el editor VBA, seleccionar la hoja de trabajo correspondiente y luego seleccionar el evento SelectionChange correspondiente. Copie e ingrese el código anterior.