Generere en liste over makroer

Når du begynner å skrive Excel makroer, er det lett å få ganske mange av dem i en arbeidsbok. På et tidspunkt kan det være lurt å generere en liste med makroer i arbeidsboken. Det er ingen iboende måte innen Excel for å lage en liste over makroer. Du kan imidlertid opprette en makro som vil liste opp dine makroer. (Liksom høres overflødig, ikke sant?)

Som et eksempel, bør du vurdere følgende makro, hvilke skritt gjennom alle prosjektene i arbeidsboken til garner alle makro navn og plassere dem i et regneark:

Sub ListMacros ()
Dim VBComp Som VBComponent
Dim VBCodeMod Som CodeModule
Dim oListsheet Som Object
Dim startline så lenge
Dim ProcName As String
Dim iCount As Integer

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

For hver VBComp I ThisWorkbook.VBProject.VBComponents
Satt VBCodeMod = ThisWorkbook.VBProject.VBComponents (VBComp.Name) .CodeModule
Med VBCodeMod
Startlinjen = .CountOfDeclarationLines + 1
Gjør Inntil startline> = .CountOfLines
oListsheet. [a1] .Offset (iCount, 0) .Value = _
.ProcOfLine (Startline, vbext_pk_Proc)
iCount = iCount + 1

Startlinjen = startline + _
.ProcCountLines (.ProcOfLine (Startline, _
vbext_pk_Proc), vbext_pk_Proc)
Loop
Avslutt med
Satt VBCodeMod = Nothing
Neste VBComp

Application.ScreenUpdating = True
End Sub

For å kunne bruke denne makroen, må du sørge for at du har Microsoft VBA utvidelsesreferansesettet. For å gjøre dette, gjør du følgende:

1. I VBA Editor, velger Referanser fra Verktøy-menyen. Dialogboksen Referanser vises. (Se figur 1)
   
   
   

   Figur 1. dialogboksen Referanser.

   *** Sett Figur X

2. Bla gjennom listen over tilgjengelige referanser og sørg for Microsoft Visual Basic for Applications Utvidelses er merket.
3. Lukke dialogboksen.

Når du kjører makroen, legger det et nytt regneark til arbeidsboken, og deretter viser navnene på alle makroer i alle modulene i arbeidsboken.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (2715) gjelder for Microsoft Excel 97, 2000, 2002, og 2003.