Saltar al contenido principal

¿Cómo abrir un cuadro de mensaje si el valor de la celda es igual a "X" en Excel?

Aparecer un cuadro de mensaje ayuda mucho al encontrar cierto contenido en un rango específico. Por ejemplo, está encontrando un valor de celda que es igual a 50 en un rango A1: C7, y necesita que aparezca un cuadro de mensaje para indicarle si el valor de celda existe o no. Los siguientes dos métodos pueden ayudarlo.

Cuadro de mensaje emergente si el valor de la celda es igual a "X" con código VBA
Cuadro de mensaje emergente fácilmente si el valor de la celda es igual a "X" con Kutools para Excel


Cuadro de mensaje emergente si el valor de la celda es igual a "X" con código VBA

El siguiente código de VBA puede ayudar a crear un cuadro de mensaje emergente cuando el valor determinado existe en el rango especificado. Haz lo siguiente.

1. En la hoja de trabajo, debe verificar los valores en el rango especificado, haga clic con el botón derecho en el nombre de la pestaña en la barra de pestañas de la hoja y luego haga clic en Ver código desde el menú contextual. Ver captura de pantalla:

cuadro de mensaje doc si el valor de celda es 1

2. En el Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código VBA en la ventana Código.

Código de VBA: cuadro de mensaje emergente si el valor de la celda es igual a "X"

Private Sub Worksheet_Change(ByVal Target As Range)
'Update: 2017/7/25
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub

3. Prensa otro + Q teclas simultáneamente para cerrar el Microsoft Visual Basic para aplicaciones ventana y vuelva a la hoja de trabajo.

A partir de ahora, cuando los valores de celda se cambien en el rango A1: C7 y el valor de celda sea igual a “50”, aparecerá un cuadro de mensaje como se muestra a continuación.

Además, puede seleccionar el rango para que aparezca el cuadro de mensaje si el valor de la celda existe.

cuadro de mensaje doc si el valor de celda es 1

Notas:

1. Si el valor de la celda no cumple con los criterios, el cuadro de mensaje no aparecerá.
2. En el código anterior, puede cambiar la referencia de celda y el valor según sus necesidades.
3. Solo puede mostrar una referencia de celda coincidente cuando hay varios resultados.

Cuadro de mensaje emergente si el valor de la celda es igual a "X" con Kutools para Excel

La Seleccionar celdas específicas utilidad de Kutools for Excel también puede ayudarlo a resolver este problema. Haz lo siguiente.

Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.

1. Seleccione el rango que desea buscar si el valor de la celda existe en, luego haga clic en Kutools > Seleccione > Seleccionar celdas específicas

2. En el Seleccionar celdas específicas cuadro de diálogo, seleccione el Celular opción en el Tipo de selección sección, luego seleccione Equivale en el primero Tipo específico lista desplegable y escriba el valor de la celda en el siguiente cuadro de texto, y finalmente haga clic en el OK del botón.

cuadro de mensaje doc si el valor de celda es 1

Si el valor de la celda existe en el rango especificado, obtendrá el siguiente cuadro de mensaje, haga clic en el OK botón, se seleccionará la celda.

cuadro de mensaje doc si el valor de celda es 1

De lo contrario, obtendrá el cuadro de mensaje como se muestra a continuación.

cuadro de mensaje doc si el valor de celda es 1

  Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.


Cuadro de mensaje emergente fácilmente si el valor de la celda es igual a "X" con Kutools para Excel


Artículos relacionados:

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there a way to update for 2 values in the same range? ex "50" or "100" ?
This comment was minimized by the moderator on the site
Hi Rajesh,
The below code can help you solve the problem, please have a try. Thank you!

Private Sub Worksheet_Change(ByVal Target As Range)

'Update: 2020/8/21

Dim xCell As Range, Rg As Range

On Error Resume Next

Set Rg = Application.Intersect(Target, Range("A1:C7"))

If Not Rg Is Nothing Then

For Each xCell In Rg

If xCell.Value = "50" Or xCell.Value = "100" Then

MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"

Exit Sub

End If

Next

End If

End Sub
This comment was minimized by the moderator on the site
Hi Crystal, Both conditions are working . Thank you so much ThanksRajesh
This comment was minimized by the moderator on the site
Is there a way to update for 2 values in the same range? ex "50" or "100" ?
This comment was minimized by the moderator on the site
I also tried duplicating this code, and changing to a different range where my data is repeated, but it appears the "Worksheet - Change" function can only be used once. Is this true?
This comment was minimized by the moderator on the site
This script works fine when the cell was enter manually. But when I try to copy the whole line from the other line and paste it to the new line, the pop up window will still come up even the cell on the new line didn't contain the key word. Any way to get rid of it? Please advice. Thanks
This comment was minimized by the moderator on the site
Dear TANGO, Thank you for your comment! We have updated the VBA script to get rid of the problem you mentioned above. Hope the new code can ease your work. If you have any problem, please do hesitate to contact us! Thanks again for your comment!
This comment was minimized by the moderator on the site
please need your help give me your email address Linda mine is
This comment was minimized by the moderator on the site
Hi,
Sorry for replying so late. Please contact me at .
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations