Vba Excel 2010

Ediciones ENI

VBA EXCEL 2010
Programación en Excel: Macros y Lenguaje VBA
Colección Recursos Informáticos

Extracto del Libro

Capítulo 8

A. Presentación
Un evento es una acción del usuario o del sistema reconocido por un objeto de Microsoft Excel. El evento desencadena un procedimiento, asociado al evento del objeto activo. Estos procedimientos le permiten asociar un códigopersonalizado en respuesta a un evento que se produce en un objeto Excel (libro, hoja, formulario, gráfico, etc.).

B. Escritura de eventos
1. Eventos de libro, de hoja o de formulario
Usted puede acceder a los procedimientos de eventos asociados a un objeto de la siguiente manera:

k k

En la ventana Explorador de proyectos, haga doble clic en el objeto deseado (libro, hoja o formulario) parahacer aparecer la ventana de código correspondiente. Abra la lista desplegable a la izquierda de la ventana de código y seleccione Workbook, Worksheet o UserForm, según el objeto seleccionado.

264

VBA Excel 2010

Administración de eventos

k

También puede seleccionar un evento vinculado al objeto seleccionado en la lista desplegable de la derecha, para asociarle un códigopersonalizado. La ejecución de los procedimientos de eventos, se puede desactivar en cualquier momento asignando el valor False a la propiedad EnableEvents del objeto Application.

Ejemplo Este ejemplo muestra cómo obtener un listado histórico de todos los hipervínculos visitados en la hoja de cálculo activa.

ã Editions ENI - All rights reserved

Programación en Excel

265

Capítulo 8Resultado en Excel:

2. Eventos del objeto Application
Se necesitan tres etapas para la escritura y ejecución de los eventos del objeto Application. Etapa 1

k

Inserte un módulo de clase: Insertar Módulo de clase o abra la lista y haga clic en Módulo de clase.

k

Una vez insertado el módulo, asígnele un nombre.

Ejemplo Dele el nombre ObjApplication al módulo de clase. Etapa 2

k

Enel módulo de clase, cree un objeto Application con el siguiente código:
Public WithEvents NomObjeto As Application

266

VBA Excel 2010

Administración de eventos
Ejemplo Creación del objeto MiAplicacion como aplicación.
Public WithEvents MiAplicacion As Application

El objeto así creado queda disponible en la lista de la izquierda del módulo.

k

Seleccione el objeto creado en lalista de la izquierda del módulo y luego seleccione el evento esperado en la lista de la derecha. Escriba el código de los procedimientos que desea generar.

Ejemplo Creación de dos procedimientos de eventos: el primero realiza la inserción de una nueva hoja; el segundo, la creación de un nuevo libro.
Public WithEvents MiAplicacion As Excel.Application________________________________________________________________________ Private Sub MiAplicacion_WorkbookNewSheet _ (ByVal Wb As Workbook, ByVal Sh As Object) Dim NomHoja As String ' Cada vez que se agrega una hoja se pide al usuario ' que introduzca un nombre que a continuación se destinará a la hoja ' insertada tras las hojas existentes NomHoja = InputBox("Introduzca el nombre de la hoja") ActiveSheet.Name = NomHoja ActiveSheet.MoveAfter:=Sheets(Sheets.Count) End Sub _______________________________________________________________________ Private Sub MiAplicacion_NewWorkbook(ByVal Wb As Workbook) Dim NbHojas As Integer Dim NbActual As Integer Dim Diferencia As Integer ' Por cada nuevo libro, ' solicitamos al usuario la cantidad de hojas ' Según el caso, se agregan o eliminan las hojas necesarias Do NbHojas =Application.InputBox _ ("¿Cantidad de hojas?", Type:=1) Loop While NbHojas = False NbActual = Sheets.Count Diferencia = NbActual - NbHojas ' Eliminar las hojas de más ' Eliminar los mensajes de alerta con el fin ' de no obtener mensajes en la eliminación de hojas

ã Editions ENI - All rights reserved

Programación en Excel

267

Capítulo 8
Do While Diferencia > 0 Application.DisplayAlerts = False...