ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

µæ单¤¤­^¤å¦W称

µæ单¤¤­^¤å¦W称

Sub µæ单¤¤­^¤å¦W称()
    Dim Cbar As CommandBar
    Dim NewWS As Worksheet
    Dim RNum As Integer
    RNum = 1
    Set NewWS = Worksheets.Add
    On Error Resume Next
    ActiveSheet.Name = "µæ单¤¤­^¤å¦W称"
    On Error GoTo 0
    For Each Cbar In Application.CommandBars
        NewWS.Cells(RNum, "A").Value = Cbar.Name
        NewWS.Cells(RNum, "B").Value = Cbar.NameLocal
        RNum = RNum + 1
    Next Cbar
    NewWS.Columns.AutoFit
End Sub
学习

³o©«¤l«Ü¹ê¥Î   ÁÂÁ   ¦¬£{

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD