¿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:
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.
Notas:
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.
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.
De lo contrario, obtendrá el cuadro de mensaje como se muestra a continuación.
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:
- ¿Cómo eliminar la fila completa si la celda contiene cero en Excel?
- ¿Cómo contar celdas con texto específico en la selección en Excel?
Las mejores herramientas de productividad de oficina
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...
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!