¿Cómo abrir el cuadro de mensaje si el valor de la celda cambia dentro de un rango en Excel?
A veces es necesario recordar los cambios dentro de un rango en una determinada hoja de trabajo. Entonces, un cuadro de mensaje emergente le hará un favor si el valor de la celda ha cambiado en un cierto rango. Puede lograrlo con un método VBA en este artículo.
Cuadro de mensaje emergente si el valor de la celda cambia dentro de un rango con código VBA
Cuadro de mensaje emergente si el valor de la celda cambia dentro de un rango con código VBA
El siguiente código de VBA mostrará un cuadro de mensaje si el valor de la celda cambia dentro de un rango específico de una determinada hoja de trabajo. Haz lo siguiente.
1. Prensa otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga doble clic en el nombre de la hoja (el rango especificado existe en) en la barra izquierda para abrir su Código ventana, luego copie y pegue el siguiente código VBA en la ventana.
Código de VBA: cuadro de mensaje emergente si el valor de la celda cambia dentro de un rango
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Application.Intersect(Range("A1:E19"), Target) Is Nothing) Then
MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
End If
End Sub
Note: puede cambiar el rango especificado A1: E19 en el código al rango que necesita.
3. Prensa otro + Q teclas al mismo tiempo para cerrar el Microsoft Visual Basic para aplicaciones ventana.
Por ahora, cuando cambien los valores de celda en el rango A1: E19, aparecerá un cuadro de mensaje automáticamente. Ver captura de pantalla:
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!