El Projecte | Sobre nosaltres | Contribuir | Donacions | Llicència
HOME Els meus cursos Finalitzats
◄ Anterior
◄

Crear un complement personalitzat d'Excel

Següent ►
►

En aquest tema, aprendrem a crear un complement personalitzat d'Excel utilitzant VBA. Els complements d'Excel són eines poderoses que permeten estendre la funcionalitat d'Excel amb noves característiques i automatitzacions. Aquest mòdul està dissenyat per guiar-te pas a pas en el procés de creació d'un complement, des de la configuració inicial fins a la distribució del complement.

Objectius del tema

  • Comprendre què és un complement d'Excel.
  • Aprendre a crear un complement d'Excel amb VBA.
  • Saber com instal·lar i utilitzar el complement.
  • Conèixer les millors pràctiques per desenvolupar complements.

Què és un complement d'Excel?

Un complement d'Excel és un fitxer que conté codi VBA i altres recursos que afegeixen funcionalitats addicionals a Excel. Els complements es poden carregar i descarregar segons sigui necessari, i poden incloure funcions personalitzades, automatitzacions, menús i barres d'eines personalitzades.

Passos per crear un complement personalitzat d'Excel

  1. Configuració inicial

Crear un nou llibre de treball

  1. Obre Excel i crea un nou llibre de treball.
  2. Desa el llibre de treball amb un nom descriptiu, per exemple, ComplementPersonalitzat.xlsm.

Accedir a l'editor VBA

  1. Premeu Alt + F11 per obrir l'Editor de Visual Basic.
  2. A l'Editor de Visual Basic, crea un nou mòdul:
    • Fes clic amb el botó dret a VBAProject (ComplementPersonalitzat.xlsm).
    • Selecciona Inserir > Mòdul.

  1. Escriure el codi VBA

Exemple de codi VBA per a un complement

A continuació, es mostra un exemple de codi VBA que crea una funció personalitzada i un botó a la cinta d'opcions d'Excel.

' Mòdul: Mòdul1
Public Sub CrearBotóPersonalitzat()
    Dim cmdBar As CommandBar
    Dim cmdBarControl As CommandBarControl

    ' Elimina el botó si ja existeix
    On Error Resume Next
    Application.CommandBars("Worksheet Menu Bar").Controls("Botó Personalitzat").Delete
    On Error GoTo 0

    ' Afegeix un nou botó a la barra de menús
    Set cmdBar = Application.CommandBars("Worksheet Menu Bar")
    Set cmdBarControl = cmdBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
    With cmdBarControl
        .Caption = "Botó Personalitzat"
        .OnAction = "MostrarMissatge"
        .Style = msoButtonCaption
    End With
End Sub

Public Sub MostrarMissatge()
    MsgBox "Hola, aquest és un missatge del complement personalitzat!", vbInformation
End Sub

  1. Convertir el llibre de treball en un complement

  1. Desa el llibre de treball com a complement:
    • Fes clic a Fitxer > Desa com a.
    • Selecciona Complement d'Excel (*.xlam) com a tipus de fitxer.
    • Desa el fitxer amb un nom, per exemple, ComplementPersonalitzat.xlam.

  1. Instal·lar i utilitzar el complement

Instal·lar el complement

  1. A Excel, fes clic a Fitxer > Opcions.
  2. Selecciona Complements al menú de l'esquerra.
  3. A la part inferior de la finestra, selecciona Complements d'Excel al menú desplegable i fes clic a Vés....
  4. Fes clic a Examinar... i selecciona el fitxer ComplementPersonalitzat.xlam.
  5. Assegura't que el complement estigui marcat a la llista i fes clic a D'acord.

Utilitzar el complement

  1. Un cop instal·lat, el botó personalitzat apareixerà a la barra de menús d'Excel.
  2. Fes clic al botó Botó Personalitzat per executar el codi VBA associat.

Millors pràctiques per desenvolupar complements

  • Documentació: Documenta el teu codi per facilitar el manteniment i la comprensió.
  • Gestió d'errors: Implementa una gestió d'errors robusta per manejar situacions inesperades.
  • Proves: Prova el complement en diferents entorns per assegurar-te que funciona correctament.
  • Optimització: Optimitza el codi per millorar el rendiment i reduir el temps d'execució.

Exercici pràctic

Exercici

Crea un complement d'Excel que afegeixi una funció personalitzada per calcular l'àrea d'un cercle donat el radi.

Solució

' Mòdul: Mòdul1
Public Function AreaCercle(radi As Double) As Double
    AreaCercle = Application.WorksheetFunction.Pi() * radi ^ 2
End Function

Public Sub CrearBotóAreaCercle()
    Dim cmdBar As CommandBar
    Dim cmdBarControl As CommandBarControl

    ' Elimina el botó si ja existeix
    On Error Resume Next
    Application.CommandBars("Worksheet Menu Bar").Controls("Calcular Àrea Cercle").Delete
    On Error GoTo 0

    ' Afegeix un nou botó a la barra de menús
    Set cmdBar = Application.CommandBars("Worksheet Menu Bar")
    Set cmdBarControl = cmdBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
    With cmdBarControl
        .Caption = "Calcular Àrea Cercle"
        .OnAction = "MostrarMissatgeAreaCercle"
        .Style = msoButtonCaption
    End With
End Sub

Public Sub MostrarMissatgeAreaCercle()
    MsgBox "Utilitza la funció AreaCercle(radi) per calcular l'àrea d'un cercle.", vbInformation
End Sub

Resum

En aquest tema, hem après a crear un complement personalitzat d'Excel utilitzant VBA. Hem cobert els passos per configurar l'entorn, escriure el codi VBA, convertir el llibre de treball en un complement, instal·lar-lo i utilitzar-lo. També hem discutit les millors pràctiques per desenvolupar complements i hem realitzat un exercici pràctic per reforçar els conceptes apresos. Ara estàs preparat per crear els teus propis complements personalitzats i millorar la funcionalitat d'Excel segons les teves necessitats.

◄ Anterior
◄
Següent ►
►
El Projecte | Sobre nosaltres | Contribuir | Donacions | Llicència
© Copyright 2024. Tots els drets reservats