Het genereren van een lijst met macro's

Zodra je begint te schrijven Excel-macro's, is het gemakkelijk om een ​​flink aantal van hen in een werkmap. Op een gegeven moment wil je misschien een lijst van macro's in uw werkmap te genereren. Er is geen intrinsieke manier binnen Excel om een ​​lijst met macro's te maken. U kunt echter wel een macro maken die een lijst van uw macro's. (Soort van klinkt overbodig, nietwaar?)

Als voorbeeld, overweeg dan de volgende macro, welke stappen door alle projecten in uw werkmap om alle macro namen Garner en plaats ze in een werkblad:

Sub ListMacros ()
Dim VBComp Zoals VBComponent
Dim VBCodeMod Zoals codemodule
Dim oListsheet als Voorwerp
Dim startlijn As Long
Dim ProcName als Koord
Dim iCount As Integer

Application.ScreenUpdating = False
On Error Resume Next
Stel oListsheet = ActiveWorkbook.Worksheets.Add
iCount = 1
oListsheet. [a1] = "Macro"

Voor Elke VBComp In ThisWorkbook.VBProject.VBComponents
Stel VBCodeMod = ThisWorkbook.VBProject.VBComponents (VBComp.Name) .CodeModule
Met VBCodeMod
Startline = .CountOfDeclarationLines + 1
Doe Tot Startline> = .CountOfLines
oListsheet. [a1] .Offset (iCount, 0) .Value = _
.ProcOfLine (Startline, vbext_pk_Proc)
iCount = iCount + 1

Startline = startlijn + _
.ProcCountLines (.ProcOfLine (Startlijn, _
vbext_pk_Proc), vbext_pk_Proc)
Lus
End With
Stel VBCodeMod = Nothing
Volgende VBComp

Application.ScreenUpdating = True
End Sub

Om deze macro gebruiken, moet u ervoor zorgen dat u de Microsoft VBA uitbreidbaarheid referentieset. Om dit te doen, volgt u deze stappen:

  1. In de VBA-editor, kiest Verwijzingen in het menu Extra. Het dialoogvenster Verwijzingen wordt weergegeven. (Zie figuur 1.)

    Het genereren van een lijst met macro's

    Figuur 1. Het dialoogvenster Verwijzingen.

    *** Plaats Figuur X

  2. Blader door de lijst van Beschikbare verwijzingen en zorg ervoor dat de Microsoft Visual Basic for Applications Extensibility selectievakje is ingeschakeld.
  3. Het dialoogvenster te sluiten.

Wanneer u de macro uitvoert, een nieuw werkblad toevoegt aan uw werkmap, en dan staan ​​de namen van alle macro's in alle modules in de werkmap.

ExcelTips is uw bron voor kosteneffectieve Microsoft Excel training. Deze tip (2715) is van toepassing op Microsoft Excel 97, 2000, 2002 en 2003.


© 2019 Quilcedacarvers.com | Contact us: webmaster# quilcedacarvers.com