VBA代码格式化工具

闻启学 · 发表于 2015-1-18 19:16

Sub tttt()
Dim i As Integer
On Error Resume Next
Application.VBE.CommandBars("Project Window").Controls("新加").Delete
With Application.VBE.CommandBars("Project Window").Controls.Add(msoControlButton, 1, , 3, True)
.Caption = "新加"
.Style = msoButtonIconAndCaption
.OnAction = "'" & ThisWorkbook.Name & "'!myttt"
End With
End Sub
Sub myttt()
MsgBox "我来了 "
End Sub

复制代码

为啥这个按钮无动作的

追梦竹叶青 · 发表于 2015-1-18 20:05

不错，虽然看的不是太明白，刚刚开始学习，相信以后有的着，学习了！

kylin_studio · 发表于 2015-1-29 20:10

首先谢谢分享，我有个问题就是：这个是自己会在菜单栏生产一个代码助手的按钮吗？好像还没法去掉啊？怎么回事呢？

zjlogtex · 发表于 2015-5-7 20:56

绝对的好东西

kaolacola · 发表于 2015-5-14 13:51

seeyoutime 发表于 2015-1-17 00:26
集成了vb环境的安装包，主要用于解决windows7+office2013环境中不集成vb环境问题。

我是win7 + office2013 都是64位的
怎么装了没效果？
有啥注意事项吗

zpy2 · 发表于 2015-5-15 16:15

kaolacola 发表于 2015-5-14 13:51
我是win7 + office2013 都是64位的
怎么装了没效果？
有啥注意事项吗

这个试试

http://blog.csdn.net/horizon_zpy/article/details/16805765
关闭输入法及格式化VBA代码工具 .
分类：工具解决方案 2013-11-18 15:54 262人阅读评论(0) 收藏编辑删除
格式化输入法vba编程关闭输入法及格式化VBA代码工具

运行本程序后,

1.切换到VBA编程环境窗口时自动关闭输入法.

2.单击代码, 激活代码窗口后,按F10格式化VBA代码.(类似如Smartindenter 进行缩进排版)

(c) horizon_zpy@163.com 2013

下载地址点击打开链接

http://blog.csdn.net/horizon_zpy/article/details/16805765

zpy2 · 发表于 2015-5-15 16:16

kaolacola 发表于 2015-5-14 13:51
我是win7 + office2013 都是64位的
怎么装了没效果？
有啥注意事项吗

关闭输入法及格式化VBA代码工具

试试这个在CSDN上

zpy2 · 发表于 2015-5-15 16:18

64位应可以的

zpy2 · 发表于 2015-5-15 16:19

http://blog.csdn.net/horizon_zpy/article/details/16805765

boy8199 · 发表于 2015-7-23 17:26

只优化了缩进好像，

感谢，代码看起来整洁多了

		自动登录	找回密码
密码			免费注册

[分享] VBA代码格式化工具

最新热点 /1