公开源码---VBE环境下创建工具栏(常用代码快捷录入工具)

yf_home · 发表于 2013-9-17 20:28

本帖最后由 yf_home 于 2013-9-18 09:22 编辑

VBE环境下创建工具栏(常用代码快捷录入工具)，
1，源码已公布，Excel版加载宏在 7 楼。
2，一楼为已经封装OK的DLL文件，可以直接使用。

如题，其它就不说了，放两张图。

2003下截图：

2010下截图：

需要设置：信任对VBA工程对象模型的访问

2003下设置：

2010下设置：

附件：

vbe.zip (32.42 KB, 下载次数: 888) DLL文件更新了......

声明几点：

1，VBE下新建工具栏，是学习了我买的一本上的用法（不过书上用的是新建右键菜单），我修改了一下变成工具栏。

2，工具中（删除注释、删除空行）的代码来源论坛或网络，由我整理而成。

3，参照了以下两个贴的部分创意(不过这两个贴都没有公开源码):

   3.1，crazy0qwer 兄的 VBE 小插件--- Office 编程助手（http://club.excelhome.net/thread-1055425-1-1.html）
   3.2，罗刚君版主的 VBA代码百宝箱（http://club.excelhome.net/thread-1051472-1-1.html）

4，感谢liucqa仁兄对自动缩进功能提供的技术支持。

为方便繁体用户的使用,特封装了一个繁体版的DLL文件,以提供繁体用户的使用.
因为我在公司使用的就是繁体版,所以能想到这一点.

VBEToolBars_TW.zip (32.66 KB, 下载次数: 389)

结束语: 请大家试用一下，反馈一下效果。水平有限，高手莫怪........

东亚五金 · 发表于 2013-9-17 21:03

支持创新,更上一层楼

yf_home · 发表于 2013-9-17 21:06

本帖最后由 yf_home 于 2013-9-17 21:18 编辑

东亚五金发表于 2013-9-17 21:03
支持创新,更上一层楼

感谢支持，试用结果如何？
点击按钮，即可输入代码。支持模块，工作表，窗体。见以下动画：

，

/

liucqa · 发表于 2013-9-17 21:19

本帖最后由 liucqa 于 2013-9-17 22:33 编辑

http://www.mrexcel.com/forum/exc ... smart-indenter.html

Sub miApplyIndent()
Dim aCodePane As VBIDE.CodePane
Dim aStartLine As Long, aEndLine As Long
Dim aLineNumber As Long, aStartColumn As Long, aEndColumn As Long
Dim aLine As String, aIndentLevel As Integer, aLineIsAfterUnderscore As Boolean
Dim aIncThisIndent As Boolean, aDecThisIndent As Boolean
Dim aIncNextIndent As Boolean, aDecNextIndent As Boolean
Set aCodePane = ActiveWorkbook.VBProject.VBE.ActiveCodePane
'aCodePane.GetSelection aStartLine, aStartColumn, aEndLine, aEndColumn
aStartLine = 1
aEndLine = ThisWorkbook.VBProject.VBE.SelectedVBComponent.CodeModule.CountOfLines
For aLineNumber = aStartLine To aEndLine
aLine = aCodePane.CodeModule.Lines(aLineNumber, 1)
Do Until Left(aLine, 1) <> " "
aCodePane.CodeModule.ReplaceLine aLineNumber, Mid(aLine, 2)
aLine = aCodePane.CodeModule.Lines(aLineNumber, 1)
Loop 'Loop repeats until all spaces/indents removed
Next aLineNumber
For aLineNumber = aStartLine To aEndLine
aLine = aCodePane.CodeModule.Lines(aLineNumber, 1)
Select Case Left(aLine, IIf(InStr(aLine, " ") = 0, 999, InStr(aLine, " ") - 1))
Case "Do", "For", "Private", "Select", "Sub", "While", "With", "Function"
aIncNextIndent = True 'After certain keywords, indent next line
Case "If" 'After If, where line ends in Then, indent next line
If Right(aLine, 4) = "Then" Then aIncNextIndent = True
Case "Loop", "Next", "End" 'At Loop, Next, End, un-indent this line
aDecThisIndent = True
Case "Case", "Else", "ElseIf"
aDecThisIndent = True 'Un-indent Case or Else
aIncNextIndent = True 'Indent line after Case or Else
End Select
If Right(aLine, 2) = " _" And Not aLineIsAfterUnderscore Then
aIncNextIndent = True 'Indent line after underscore
aLineIsAfterUnderscore = True 'Set a flag to un-indent the line after next
ElseIf Right(aLine, 2) <> " _" And aLineIsAfterUnderscore Then
aDecNextIndent = True
aLineIsAfterUnderscore = False
End If
If aIncThisIndent Then aIndentLevel = aIndentLevel + 1: aIncThisIndent = False
If aDecThisIndent Then aIndentLevel = aIndentLevel - 1: aDecThisIndent = False
On Error GoTo lIndentError
aCodePane.CodeModule.ReplaceLine aLineNumber, Space$(aIndentLevel * 4) & aLine
On Error GoTo 0
If aIncNextIndent Then aIndentLevel = aIndentLevel + 1: aIncNextIndent = False
If aDecNextIndent Then aIndentLevel = aIndentLevel - 1: aDecNextIndent = False
Next aLineNumber
Exit Sub
lIndentError:
If aIndentLevel < 0 Then aIndentLevel = 0 'Will not happen unless extra lines selected
Resume Next
End Sub

复制代码

这里有对当前模块自动缩进的代码，你可以发加载宏了，然后可以入知识树

yf_home · 发表于 2013-9-17 21:27

本帖最后由 yf_home 于 2013-9-17 22:08 编辑

liucqa 发表于 2013-9-17 21:19
http://www.mrexcel.com/forum/exc ... smart-indenter.html

非常感谢，测试结果：只能对所选择的代码进行缩进。

能否帮忙修改一下，实现：
对光标所在的模块区或工作表代码区或窗体代码区，对所有宏（过程）或自定义函数进行缩进。谢谢！

//

liucqa · 发表于 2013-9-17 23:41

本帖最后由 liucqa 于 2013-9-18 00:12 编辑

删了

yf_home · 发表于 2013-9-18 00:18

公布源码，Excel加载宏版的:

VBE常用代码快捷输入.zip (25.43 KB, 下载次数: 1239)

VBA密码:club.excelhome.net

特别感谢: liucqa 仁兄，在对 代码缩进 这个功能上给予的技术支持！

//

ctp_119 · 发表于 2013-9-18 08:16

本帖最后由 ctp_119 于 2013-9-18 08:48 编辑

感谢分享！！！谢谢！！！

zyg365 · 发表于 2013-9-18 08:26

支持一下：
确实对高频使用的代码输入起到好的方便的作用，高效。

yf_home · 发表于 2013-9-18 08:44

zyg365 发表于 2013-9-18 08:26
支持一下：
确实对高频使用的代码输入起到好的方便的作用，高效。

感谢支持......
你也是属于这相当的级别的高手,这样的小工具,在你那应该属于小儿科了,见笑了.{:soso_e120:}

..

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

[原创] 公开源码---VBE环境下创建工具栏(常用代码快捷录入工具)

评分

评分

评分

点评

评分