Excel自定义缩进量菜单

Benjamin_luk

1、打开一EXCEL文档，转到VBA编辑器，新建模块，贴上以下代码（以1个空格为标量）：
Public Sub Gin()
    For Each a In Selection
    a.NumberFormatLocal = "@"
    a.Value = Space(1) & a.Text
    Next a
End Sub
Public Sub GOut()
    For Each a In Selection
    If Left(a.Text, 1) = Space(1) Then
    a.NumberFormatLocal = "@"
    a.Value = (Right(a.Text, Len(a.Text) - 1))
    End If
    Next a
End Sub
2、转到EXCEL文档，MOUSE指针移到最菜单条
3、点自定义，弹了对话窗，选[工具]---新建，然后输入菜单的名称
4、移到[命令]，从左边框里找到[宏]
5、将[自定义菜单项]用MOUSE按住左键，然后移到新建的菜单上
6、重复第5点
7、选取新建的菜单，选新建的按钮，点右键，找到[指定宏]，为不同的按钮选相应的上面的代码名称
8、将新的菜单条移到顶部的菜单里

EXCEL的缩进量为3个字符左右。
上面的代码适用多选或单选单元格
请注意单元格不要用公式，如果有数字，代码会将单元格设为TEXT

Benjamin_luk

[:50] 沙发不留

tmtony

谢谢分享！！