[已解决]有没有英语名称对照表？

dsfada

CommandBars("Worksheet Menu Bar")里Worksheet Menu Bar代表菜单栏，有没有CommandBars后面括号所有命令对照表？

最佳答案

月排行榜 / 总排行榜

爱疯

2015-11-30 09:44

Sub AllCommandBar()
    Dim c1, c2, c3, c4, c5, s
    On Error Resume Next
    Cells.ClearContents
    For Each c1 In CommandBars
        For Each c2 In c1.Controls
            For Each c3 In c2.Controls
                For Each c4 In c3.Controls
                    For Each c5 In c4.Controls
                        s = s + 1
                        Cells(s, 1) = c1.NameLocal
                        Cells(s, 2) = c2.Caption
                        Cells(s, 3) = c3.Caption
                        Cells(s, 4) = c4.Caption
                        Cells(s, 5) = c5.Caption
                    Next c5
                Next c4
            Next c3
        Next c2
    Next c1
End Sub

这样吗

跳转到最佳答案楼层

爱疯

Sub AllCommandBar()
    Dim c1, c2, c3, c4, c5, s
    On Error Resume Next
    Cells.ClearContents
    For Each c1 In CommandBars
        For Each c2 In c1.Controls
            For Each c3 In c2.Controls
                For Each c4 In c3.Controls
                    For Each c5 In c4.Controls
                        s = s + 1
                        Cells(s, 1) = c1.NameLocal
                        Cells(s, 2) = c2.Caption
                        Cells(s, 3) = c3.Caption
                        Cells(s, 4) = c4.Caption
                        Cells(s, 5) = c5.Caption
                    Next c5
                Next c4
            Next c3
        Next c2
    Next c1
End Sub

这样吗