【原创】VBA代码自动缩进工具——适用64位及32位系统（6月21日更新1.1版）

雪舞子

        VBA代码自动缩进工具——通吃64位及32位系统

        前言：此为“代码缩进”加载宏小工具，功能单一，短小精悍，只为代码缩进而作。

----------------------------------------------------------------------------------------------------------------------------
       6月21日更新V1.1版：
       更新内容：
              1、改进 智能识别注释，代码有无注释均能缩进正确；
              2、修正 Select Case 语句缩进不正确问题；
              3、提升右键菜单，方便点击；
              4、其他BUG修复。
----------------------------------------------------------------------------------------------------------------------------
         工具截图如下：


                          

        
         一、功能：

        1、全部模块缩进。即此工作簿下所有模块中的代码一键缩进，包括类模块、普通模块及 ThisWorkbook、Sheets 模块中的代码等；
        2、本模块缩进。只缩进当前模块中的代码；
        3、本模块删除空行。删除当前模块代码中的空行。


         二、安装方法：

         本文以 Windows7 X64 系统为例，说明一下安装方法。
         
        1、Excel 安装。

         很多同学无法安装这个工具，都是因为 Excel 安装的不妥。
         安装了X64位系统后（包括 WIN 7、WIN 8、WIN 10等），习惯性的安装了 X64 Office ，认为 64 系统只能跑 X64 Office。
         切记，在X64位系统上使用本工具，一定要安装 X86 Office（32位）！因为X64 Office 有一些兼容性问题，很多控件及插件都无法使用，如果你有特殊用途除外。

       2、工具安装：

         这里以 X86 Excel 2013 为例，说明一下加载宏工具的安装方法。

        ①下载附件并解压，会解压出一个 “代码缩进” 加载宏文件；
        ②打开 Excel 2013，点击 “开始-选项-信任中心-信任中心设置-宏设置”，勾选 “信任对 VBA 工程象模型的访问(V)”，
         如下图：


                                       

     
        ③点击 “开始-选项-加载宏-转到” (页面最下面)，在新的页面中，点击 “浏览-打开”，找到刚解压的“代码缩进”加载宏文件，“确定”。
        文件加载完毕。

       此时来到VBE界面的代码窗口，点击右键就会出现“代码缩进”菜单，可以给代码进行缩进和去掉空行了。

      三、使用注意事项：

      1、使用“代码缩进”工具时，尽量在填加注释之前使用；
      2、如果已经有注释了，一般不会有影响。如果发现缩进有问题，可将注释移至另一行重新缩进一次即可。
         
        
       “代码缩进”工具下载：

      代码缩进.rar (18.54 KB, 下载次数: 158)

2015-6-18 20:29 上传

点击文件名下载附件

        “代码缩进V1.1版” 下载：

    代码缩进 V1.1.rar (23.34 KB, 下载次数: 422)

2015-6-21 20:48 上传

点击文件名下载附件
         

维C

沙发一个，表示支持。

zpy2

支持，可惜不可以支持64位office

zpy2

还有cad ，word，ppt，Access的vba支持吗？

Hsiao

{:021:}革命尚未成功，拿走续继努力，支持雪舞子老师。

wiilwiil

密码是多少呀。

goldowl

Thanks  a lot.Good codes.Mark it.

denil

谢谢分享。

领风飞翔

谢谢，试用一下。

llhiy

Thanks  a lot.Good codes.Mark it.