怎样在多个模块里，快速查找和定位指定的自定义函数或sub过程代码所在位置？

lss001

WYS67 发表于 2020-2-7 14:07
老师：测试了一下，觉得：
                                      1.如下面截图所示，点击宏按钮后，怎 ...

9楼附件定位至加载宏/过程
以下附件定位到另一文件/过程
Downloads.rar (184.69 KB, 下载次数: 11)

2020-2-7 14:51 上传

点击文件名下载附件

WYS67

lss001 发表于 2020-2-7 14:51
9楼附件定位至加载宏/过程
以下附件定位到另一文件/过程

这个代码用起来最方便！谢谢老师！深入学习VBA，远离新型病毒！

WYS67

lss001 发表于 2020-2-7 14:51
9楼附件定位至加载宏/过程
以下附件定位到另一文件/过程

老师：还得再请教您：有一些模块里的自定义函数代码是用Private【私密的】开始的，如：Private Function ArrPC ......
     怎样才能在B列不显示这些以Private【私密的】开头的自定义函数名称？

cctv511300

感谢分享，学习到东西了！

lss001

WYS67 发表于 2020-2-7 17:53
老师：还得再请教您：有一些模块里的自定义函数代码是用Private【私密的】开始的，如：Private Function  ...

Sub mjsyqqs()
    Dim ct As Object, n$, k&, d&
    [c:d] = "": [c1] = "工程名": [d1] = "过程名": x = 2
    Set xx = GetObject(ThisWorkbook.Path &"\自定义.xlsm")
    For Each ct In xx.VBProject.VBComponents
        With ct.CodeModule
            Cells(x, 3) = .Name
            d = .CountOfDeclarationLines + 1
            Do While d < .CountOfLines
                n = .ProcOfLine(d, k)
                If InStr(.Lines(.ProcStartLine(n, k), .ProcCountLines(n, k) - 1), "Private") = 0 Then
                    If n <> "" Then i = i + 1: Cells(i + x - 1, 4) = n
                    y = xx.FullName & "#" & ct.CodeModule.Name & "." & n
                    Sheet2.Hyperlinks.Add Cells(i + x - 1, 4), y
                End If
                d = .ProcStartLine(n, k) + .ProcCountLines(n, k) + 1
            Loop
        End With
        If d <= 2 Then x = x + 1 Else x = x + i: i = 0
    Next
End Sub

WYS67

lss001 发表于 2020-2-7 22:34
Sub mjsyqqs()
    Dim ct As Object, n$, k&, d&
    [a:b] = "": [a1] = "工程名":  = "过程名": x = ...

测试后发现，15楼的代码，只可以屏蔽模块2、3里以Private【私密的】开头的代码名称，模块4及以后带Private【私密的】开头的代码名称仍然会显示。

lss001

WYS67 发表于 2020-2-8 09:01
测试后发现，15楼的代码，只可以屏蔽模块2、3里以Private【私密的】开头的代码名称，模块4及以后带Privat ...

》》》见楼上效果！！！

WYS67

lss001 发表于 2020-2-8 10:04
》》》见楼上效果！！！

老师15楼的代码其它模块都能显示正确结果，唯独模块7里，应该显示ZFCQY和ZFCTJJS两个名称，却显示了ZFCQY和QC，这是怎么回事？


Downloads.zip (186.02 KB, 下载次数: 4)

2020-2-8 10:59 上传

点击文件名下载附件

lss001

WYS67 发表于 2020-2-8 11:00
老师15楼的代码其它模块都能显示正确结果，唯独模块7里，应该显示ZFCQY和ZFCTJJS两个名称，却显示了ZFCQY ...

见楼上更正即可！！！

WYS67

lss001 发表于 2020-2-7 22:34
Sub mjsyqqs()
    Dim ct As Object, n$, k&, d&
    [a:b] = "": [a1] = "工程名":  = "过程名": x = ...

首先，非常感谢老师数次费心编写代码！

    感觉用了这个新修改的代码，刷下去许多名称【包括许多不带Private的也被屏蔽了】。模块1~14里总共有83个不含Private的自定义函数名称，用了新代码后，一下子缩减成了66个。