El Proyecto | Sobre nosotros | Contribuir | Donaciones | Licencia
HOME Mis cursos Finalizados
◄ Anterior
◄

Creando un Complemento Personalizado de Excel

Siguiente ►
►

En este tema, aprenderás a crear un complemento personalizado de Excel utilizando VBA. Los complementos de Excel son herramientas poderosas que permiten extender la funcionalidad de Excel mediante la adición de nuevas características y comandos personalizados. Este módulo te guiará paso a paso en la creación de un complemento, desde la configuración inicial hasta la implementación y distribución.

Objetivos del Tema

  • Entender qué es un complemento de Excel y sus beneficios.
  • Configurar el entorno para desarrollar un complemento.
  • Crear y probar un complemento personalizado.
  • Distribuir e instalar el complemento en otros equipos.

¿Qué es un Complemento de Excel?

Un complemento de Excel es un archivo que contiene código VBA y que se puede cargar en Excel para proporcionar funcionalidades adicionales. Los complementos pueden incluir nuevas funciones, macros, formularios de usuario y comandos personalizados que se integran en la interfaz de Excel.

Beneficios de los Complementos de Excel

  • Automatización: Permiten automatizar tareas repetitivas.
  • Personalización: Añaden funcionalidades específicas que no están disponibles en Excel por defecto.
  • Reusabilidad: Pueden ser utilizados en múltiples proyectos y compartidos con otros usuarios.

Configuración del Entorno para Desarrollar un Complemento

Paso 1: Crear un Nuevo Libro de Excel

  1. Abre Excel y crea un nuevo libro.
  2. Guarda el libro con un nombre descriptivo, por ejemplo, MiComplemento.xlsm.

Paso 2: Acceder al Editor de VBA

  1. Presiona Alt + F11 para abrir el Editor de VBA.
  2. En el Editor de VBA, inserta un nuevo módulo:
    • Haz clic derecho en VBAProject (MiComplemento.xlsm).
    • Selecciona Insertar > Módulo.

Paso 3: Escribir el Código VBA

En el módulo recién creado, escribe el siguiente código de ejemplo que añade un nuevo comando a la cinta de opciones de Excel:

Sub Auto_Open()
    Call AddCustomButton
End Sub

Sub AddCustomButton()
    Dim cb As CommandBar
    Dim cbc As CommandBarControl
    
    ' Eliminar el botón si ya existe
    On Error Resume Next
    Application.CommandBars("Worksheet Menu Bar").Controls("Mi Botón Personalizado").Delete
    On Error GoTo 0
    
    ' Añadir un nuevo botón
    Set cb = Application.CommandBars("Worksheet Menu Bar")
    Set cbc = cb.Controls.Add(Type:=msoControlButton, Temporary:=True)
    
    With cbc
        .Caption = "Mi Botón Personalizado"
        .Style = msoButtonCaption
        .OnAction = "MiMacroPersonalizada"
    End With
End Sub

Sub MiMacroPersonalizada()
    MsgBox "¡Hola, este es mi complemento personalizado!"
End Sub

Explicación del Código

  • Auto_Open: Esta subrutina se ejecuta automáticamente cuando se abre el libro. Llama a la subrutina AddCustomButton.
  • AddCustomButton: Añade un nuevo botón a la barra de menú de la hoja de cálculo. Si el botón ya existe, lo elimina primero.
  • MiMacroPersonalizada: La macro que se ejecuta cuando se hace clic en el botón personalizado. Muestra un mensaje emergente.

Guardar y Probar el Complemento

Paso 4: Guardar el Libro como Complemento

  1. Guarda el libro como un archivo de complemento de Excel:
    • Ve a Archivo > Guardar como.
    • Selecciona Complemento de Excel (*.xlam) en el tipo de archivo.
    • Guarda el archivo con un nombre descriptivo, por ejemplo, MiComplemento.xlam.

Paso 5: Cargar el Complemento en Excel

  1. Ve a Archivo > Opciones > Complementos.
  2. En la parte inferior, selecciona Complementos de Excel y haz clic en Ir.
  3. En la ventana de Complementos, haz clic en Examinar y selecciona el archivo MiComplemento.xlam.
  4. Asegúrate de que el complemento esté marcado y haz clic en Aceptar.

Paso 6: Probar el Complemento

  1. Abre una nueva hoja de cálculo en Excel.
  2. Deberías ver el nuevo botón "Mi Botón Personalizado" en la barra de menú.
  3. Haz clic en el botón para ejecutar la macro y ver el mensaje emergente.

Distribuir e Instalar el Complemento

Paso 7: Distribuir el Complemento

Para compartir el complemento con otros usuarios, simplemente proporciona el archivo MiComplemento.xlam. Los usuarios pueden seguir los pasos anteriores para cargar el complemento en sus propias instancias de Excel.

Paso 8: Instalar el Complemento en Otros Equipos

Los usuarios deben:

  1. Guardar el archivo MiComplemento.xlam en una ubicación accesible.
  2. Seguir los pasos descritos en "Cargar el Complemento en Excel" para instalar y activar el complemento.

Conclusión

En este tema, has aprendido a crear un complemento personalizado de Excel utilizando VBA. Has configurado el entorno, escrito el código necesario, guardado y probado el complemento, y aprendido cómo distribuirlo e instalarlo en otros equipos. Los complementos de Excel son herramientas poderosas que pueden mejorar significativamente la productividad y personalización en Excel.

Ejercicio Práctico

Ejercicio: Crea un complemento que añada un botón a la cinta de opciones de Excel. Al hacer clic en el botón, debe ejecutar una macro que inserte la fecha y hora actual en la celda activa.

Solución:

Sub Auto_Open()
    Call AddDateButton
End Sub

Sub AddDateButton()
    Dim cb As CommandBar
    Dim cbc As CommandBarControl
    
    ' Eliminar el botón si ya existe
    On Error Resume Next
    Application.CommandBars("Worksheet Menu Bar").Controls("Insertar Fecha y Hora").Delete
    On Error GoTo 0
    
    ' Añadir un nuevo botón
    Set cb = Application.CommandBars("Worksheet Menu Bar")
    Set cbc = cb.Controls.Add(Type:=msoControlButton, Temporary:=True)
    
    With cbc
        .Caption = "Insertar Fecha y Hora"
        .Style = msoButtonCaption
        .OnAction = "InsertarFechaHora"
    End With
End Sub

Sub InsertarFechaHora()
    ActiveCell.Value = Now
End Sub

Guarda el archivo como un complemento de Excel (.xlam), cárgalo en Excel y prueba el nuevo botón.

◄ Anterior
◄
Siguiente ►
►
El Proyecto | Sobre nosotros | Contribuir | Donaciones | Licencia
© Copyright 2024. Todos los derechos reservados