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 el valor de celda es igual a "X" en Excel?

El cuadro de mensaje emergente ayuda mucho al encontrar cierto contenido dentro del rango especificado. Por ejemplo, está encontrando un valor de celda que es igual a 50 en un rango A1: C7, y necesita un cuadro de mensaje emergente para indicarle si el valor de celda existe o no. Los siguientes dos métodos pueden ayudarte.

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

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


Cuadro emergente de mensaje si el valor de celda es igual a "X" en Excel

Haz click Kutools > Seleccionar > Seleccionar celdas específicas. El Kutools for Excel's Seleccionar celdas específicas utilidad le ayuda a encontrar y seleccionar fácilmente la celda que contiene o equivale a un determinado valor en Excel y mostrar un cuadro de mensaje .. Ver la siguiente captura de pantalla:

Kutools for Excel incluye más de las útiles herramientas de Excel de 300. Gratis para probar sin limitaciones en los días 30. Más info Descargar gratis ahora

cuadro de mensaje doc si valor de celda 7

Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools for Excel trae las características avanzadas de 300 a Excel y aumenta su productividad en 80%
  • 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...
  • Kutools funciona con Office 2007-2019 y 365. Es compatible con todos los idiomas y es muy fácil de instalar o implementar. Funciones completas de prueba gratuita de 60-day.

Cuadro emergente de mensaje si el valor de 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 cierto valor existe en el rango especificado. Por favor haz lo siguiente.

1. En la hoja de trabajo debe verificar los valores dentro del 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 valor de celda 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 emergente de mensaje si el valor de 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 llaves al mismo tiempo para cerrar el Microsoft Visual Basic para aplicaciones ventana y volver 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 mostrar el cuadro de mensaje si el valor de la celda existe.

cuadro de mensaje doc si valor de celda 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 la celda y el valor a su necesidad.

3. Solo puede mostrar una referencia de celda coincidente cuando hay resultados múltiples.


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

Las Seleccionar celdas específicas utilidad de Kutools for Excel también puede ayudarte a resolver este problema. Por favor haz lo siguiente.

Kutools for Excel : con más de 300 útiles complementos de Excel, gratis para probar sin limitaciones en los días 60.

1. Seleccione el rango que desea buscar si el valor de celda existente, luego haga clic Kutools > Seleccionar > Seleccionar celdas específicas. Ver captura de pantalla:

2. En el Seleccionar celdas específicas cuadro de diálogo, seleccione la Celda 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 OK botón.

cuadro de mensaje doc si valor de celda 1

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

cuadro de mensaje doc si valor de celda 1

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

cuadro de mensaje doc si valor de celda 1


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

Kutools for Excel incluye más de las útiles herramientas de Excel de 300. Gratis para probar sin limitaciones en los días 60. ¡Descargue la versión de prueba gratuita ahora!


Artículos relacionados:


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • 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...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

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

  • 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.
  • To post as a guest, your comment is unpublished.
    AWhite · 1 years ago
    Is there a way to update for 2 values in the same range? ex "50" or "100" ?
    • To post as a guest, your comment is unpublished.
      AWhite · 1 years ago
      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?
  • To post as a guest, your comment is unpublished.
    Tango · 2 years ago
    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
    • To post as a guest, your comment is unpublished.
      Linda · 2 years ago
      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!
      • To post as a guest, your comment is unpublished.
        cassidy joram · 1 years ago
        please need your help give me your email address Linda mine is mineralsuganda256@gmail.com
        • To post as a guest, your comment is unpublished.
          crystal · 1 years ago
          Hi,
          Sorry for replying so late. Please contact me at zxm@addin99.com.