标题: Excel自定义缩进量菜单 [打印本页] 作者: Benjamin_luk 时间: 2009-1-13 23:57 标题: Excel自定义缩进量菜单 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、将新的菜单条移到顶部的菜单里