標題: 菜单中英文名称 [打印本頁]

---

作者: wqfzqgk    時間: 2010-7-5 16:26     標題: 菜单中英文名称

Sub 菜单中英文名称()
    Dim Cbar As CommandBar
    Dim NewWS As Worksheet
    Dim RNum As Integer
    RNum = 1
    Set NewWS = Worksheets.Add
    On Error Resume Next
    ActiveSheet.Name = "菜单中英文名称"
    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

---

作者: b4069588    時間: 2010-9-2 16:36

這帖子很實用   謝謝   收ㄌ

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)