Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo abrir el cuadro de mensaje si la celda es mayor o menor que un valor específico en Excel?

Si una celda es mayor o menor que otra celda, necesito abrir un cuadro de mensaje para alertar en Excel. ¿Cómo resolver este problema en Excel? En este artículo, hablaré sobre algunos códigos para tratarlo.

Aparece un cuadro de mensaje si el valor de la celda en una columna es mayor o menor que otra celda

Aparece un cuadro de mensaje si el valor de la celda en una celda es mayor o menor que otra celda


Aparece un cuadro de mensaje si el valor de la celda en una columna es mayor o menor que otra celda

Supongamos que tengo un número específico 100 en la celda A1, ahora, cuando el número ingresado en la columna D es mayor que 100 en la celda A1, debería aparecer un cuadro de mensaje para recordarle al usuario.

Aquí, el siguiente código de VBA puede ayudarlo a terminarlo, siga estos pasos:

1. Vaya a la hoja de trabajo que desea usar.

2. Haga clic con el botón derecho en la pestaña de la hoja y seleccione Ver código desde el menú contextual, en el emergente Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código en la ventana del Módulo en blanco, vea la captura de pantalla:

Código de VBA: abra un cuadro de mensaje si el valor de la celda en una columna es mayor o menor que una celda

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xC As String
Dim xWSName As String
Dim xA As String
xC = "D:D"
xWSName = "Sheet1"
xA = "A1"
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    xNum = (Sheets(xWSName).Range(xA).Value)
    If (Target.Value) > (Sheets(xWSName).Range(xA).Value) Then
        MsgBox Prompt:="The entered number is greater than cell A1, please enter again! ", Title:="Kutools for Excel"
    End If
End Sub

Nota: En el código anterior, Sheet1 es tu hoja de trabajo que quieres usar; A1 es el valor de celda con el que desea comparar; D: D es la columna que desea comparar con la celda A1.

3. Luego, guarde y cierre la ventana de código, de ahora en adelante, aparecerá un cuadro de mensaje emergente si ingresa un número en la columna D que es mayor que 100, vea la captura de pantalla:


Aparece un cuadro de mensaje si el valor de la celda en una celda es mayor o menor que otra celda

Si desea que aparezca un cuadro de mensaje cuando un valor de celda es mayor o menor que otra celda, aplique el siguiente código:

1. Vaya a la hoja de trabajo que desea usar.

2. Haga clic con el botón derecho en la pestaña de la hoja y seleccione Ver código desde el menú contextual, en el emergente Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código en la ventana del Módulo en blanco, vea la captura de pantalla:

Código de VBA: abra un cuadro de mensaje si el valor de la celda es mayor o menor que una celda

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("D1").Value
If Not (Application.Intersect(Range("A1:D1"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "The value in cell D1 cann't be greater than cell A1!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub

Nota: En el código anterior, A1 y D1 son las dos celdas con las que quieres comparar.

3. Luego, guarde y cierre la ventana de código, cuando ingrese un valor que sea menor que el valor en la celda A1, aparecerá un cuadro de mensaje como se muestra a continuación:


Más artículos relativos al cuadro de mensaje emergente:

  • Crear cuadro de mensaje emergente al abrir un archivo de Excel
  • En ciertos casos, es posible que desee que aparezca un cuadro de mensaje siempre para recordarle lo que debe hacer primero cuando abre un libro de trabajo específico, esto puede ayudarlo a recordar hacer lo más importante en su trabajo diario. Y este artículo, voy a hablar sobre cómo crear un cuadro de mensaje emergente al abrir un archivo de Excel.
  • Cree un cuadro de mensaje Sí No antes de ejecutar una macro en Excel
  • En Excel, puede activar directamente una macro presionando la tecla F5 o haciendo clic en el botón Ejecutar en la ventana de Microsoft Visual Basic para Aplicaciones. Pero, a veces, es posible que desee crear un cuadro de mensaje que le preguntará al usuario si desea ejecutar la macro. En caso afirmativo, continúe ejecutando el código; si no, deje de ejecutar el código. En este artículo, hablaré sobre cómo crear un cuadro de mensaje sí no antes de ejecutar una macro en Excel.
  • Crear un temporizador de cuadro de mensaje para cerrar automáticamente el cuadro de mensaje después de cierto tiempo
  • Puede usar la secuencia de comandos de VBA con frecuencia para resolver problemas mientras usa el libro de Excel. Y habrá cuadros de mensaje aparecidos durante la ejecución del script. En algunos casos, le gustaría que algunos cuadros de mensajes especificados se cierren automáticamente después de un cierto tiempo en lugar de cerrarlos manualmente. En este artículo, le mostraremos el método para crear un temporizador de cuadro de mensaje para cerrar automáticamente el cuadro de mensaje después de cierto tiempo en Excel.


  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Agrupación de tabla dinámica por número de semana, día de la semana y más ... Mostrar celdas bloqueadas y desbloqueadas por diferentes colores; Resalte las celdas que tienen fórmula / nombre...
pestaña kte 201905
  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.