More than 5 years have passed since last update.

EXCEL VBA プロシージャ名一覧をイミディエイトウィンドウに出力する

VBA
便利

Last updated at 2019-02-08Posted at 2019-02-08

プロシージャ名一覧をイミディエイトウィンドウに出力する

Sub プロシージャ名一覧をイミディエイトウィンドウに出力する()
    Dim buf As String, ProcNames As String, i As Long
    With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
        For i = 1 To .CountOfLines
            If buf <> .ProcOfLine(i, 0) Then
                buf = .ProcOfLine(i, 0)
                ProcNames = ProcNames & buf & vbCrLf
            End If
        Next i
    End With
    Debug.Print ProcNames
End Sub

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up