prucommercialre.com


Generar una lista de Macros

Una vez que comience a escribir las macros de Excel, es fácil conseguir un buen número de ellos en un libro. En algún momento es posible que desee generar una lista de macros en el libro. No hay manera intrínseca dentro de Excel para crear una lista de macros. Puede, sin embargo, crear una macro que enumerar sus macros. (Algo así suena redundante, ¿no?)

Como ejemplo, considere la siguiente macro, que los pasos a través de todos los proyectos de su libro intercambien ideas y todos los nombres de macro y colocarlos en una hoja de cálculo:

ListMacros Sub ()
Dim VBComp Como VBComponent
Dim VBCodeMod Como CodeModule
Dim oListsheet As Object
StartLine Dim como de largo
Dim NombreProc As String
Dim iCount As Integer

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

Para Cada ThisWorkbook.VBProject.VBComponents VBComp En
Establecer VBCodeMod = ThisWorkbook.VBProject.VBComponents (VBComp.Name) .CodeModule
Con VBCodeMod
StartLine = .CountOfDeclarationLines + 1
Hacer hasta StartLine> = .CountOfLines
oListsheet. [a1] .Offset (iCount, 0) .Value = _
.ProcOfLine (StartLine, vbext_pk_Proc)
iCount = iCount + 1

StartLine = StartLine + _
.ProcCountLines (.ProcOfLine (StartLine, _
vbext_pk_Proc), vbext_pk_Proc)
Bucle
End With
Establecer VBCodeMod = Nothing
Siguiente VBComp

Application.ScreenUpdating = True
End Sub

Para utilizar esta macro, debe asegurarse de que tiene el conjunto de referencia extensibilidad Microsoft VBA. Para ello, siga estos pasos:

  1. En el Editor de VBA, elija referencias en el menú Herramientas. Se muestra el cuadro de diálogo referencias. (Ver Figura 1.)

    Generar una lista de Macros

    Figura 1. El cuadro de diálogo referencias.

    *** Insertar Figura X

  2. Recorra la lista de referencias disponibles y asegúrese de seleccionar el Microsoft Visual Basic casilla de verificación para aplicaciones de extensibilidad.
  3. Cierre el cuadro de diálogo.

Al ejecutar la macro, se añade una nueva hoja de cálculo para su libro y, a continuación, se enumeran los nombres de todas las macros en todos los módulos en el libro.

ExcelTips es su fuente de capacitación rentable Microsoft Excel. Esta punta (2715) se aplica a Microsoft Excel 97, 2000, 2002, y 2003.