Cómo utilizar eventos con el objeto Application de Excel

lenguaje de programación de Microsoft Excel , Visual Basic para Aplicaciones ( VBA) , hace uso de objetos virtuales para extender las características de Excel. Uno de esos objetos es el objeto de la aplicación, lo que permite a los programadores de VBA para escribir programas que afectan a la propia aplicación Excel . Eventos de este objeto causa subrutinas llamadas " funciones de eventos " para ejecutar. Cualquier código de programa se coloca en estas funciones se ejecutará cuando el evento (por ejemplo, la nueva creación , la selección de hoja de cuaderno de trabajo ) que la función se ha escrito para se produce . Una de las ventajas de escribir dicho código es la capacidad de seleccionar los datos que el usuario entra en ella . Entorno de programación VBA Instrucciones
1

Abierta de Excel , haga clic en la pestaña de cualquier hoja de cálculo en un libro abierto , a continuación, seleccionar la opción " Ver código " item .

2 Haga doble clic en fila " Este libro " del panel " proyecto" para abrir una nueva ventana de código.
3

Pega el siguiente código en la primera fila en blanco de la nueva ventana . Esta subrutina que se ejecutará cuando se vuelva a abrir el libro actual , crea una nueva instancia de objeto Application de Excel. De esta manera , la subrutina hace las funciones de eventos del objeto Application disponible para escribir programas para .

Private WithEvents objApp Como aplicación

Private Sub Workbook_Open ()

Set objApp = Aplicación

End Sub
4

clic en la lista desplegable del extremo izquierdo en la parte superior de la ventana de código. VBA mostrará una lista de objetos que se pueden escribir código de función de eventos. Uno de los objetos de la lista es la variable " objApp " usted declaró y definió en el paso anterior. Seleccione el objeto.
5

clic en la lista desplegable de la derecha de la ventana de código y seleccione la función de evento " NewWorkbook " . VBA creará una función de eventos en blanco que usted va a escribir código.
6

Pega o escribe el siguiente código de programa anterior " End Sub " declaración " objApp_NewWorkbook " del subprograma.

MsgBox " Usted ha creado un nuevo libro. "
7

Pulse " Alt + F4 " para cerrar el entorno VBA y pulsar la misma secuencia de teclas para cerrar Excel. Guarde el libro con cualquier nombre de archivo válido , y con una extensión de archivo " * . Xlsm . " Cómo guardar y volver a abrir el libro de trabajo se ejecuta la función de evento Workbook_Open que escribió en el paso 3 . Esta función se debe ejecutar a fin de permitir las funciones de eventos objApp se ejecuten .
8

a abrir el libro que acaba de cerrar , a continuación, pulse "Control -N " para crear un nuevo libro. El código que escribió para la subrutina objApp_NewWorkbook en el paso 6 se ejecutará y mostrará el mensaje " Usted ha creado un nuevo libro. "
9

Pulse " Alt -F11 " para volver a entrar en el VBA medio ambiente, a continuación, pegue la nueva función de evento siguiente en cualquier espacio en blanco en la ventana de código . Esta función de evento , que se desarrollará cuando se cambia cualquier celda del libro abierto en ese momento , reemplaza el texto " JS " con el texto " John Smith ".

objApp_SheetChange Sub Private ( ByVal Sh As Object , Target ByVal como gama )

Dim x

x = Target.Value

Si (x = " JS ") Luego

x = " John Smith"

Target.Value = x

End If End

Sub
10

Volver a Excel pulsando " Alt -F11 ", a continuación, escriba el texto " JS " en cualquier célula . Al presionar "Enter ", la función de evento objApp_SheetChange que escribió en el paso anterior se ejecutará , y cambie " JS " en "John Smith ".