简单的VBA代码宝(包含代码缩进)

1059526347 · 发表于 2019-5-26 22:21

本帖最后由 1059526347 于 2019-5-28 17:43 编辑

E码宝分为两种模式：”常规模式“ 和 ”设计模式“。“常规模式”可在模块中插入自己储存的常用代码。”设计模式“可新建与删除代码或代码分组。
两种模式可随意切换，打开excel时始终默认为：”常规模式“。 E码宝同时在“菜单条”和“右键菜单”中提供操作按钮。可根据习惯选择使用。

添加自己的代码

添加自己的代码

插入自己的代码

代码左对齐

代码打乱

代码缩进（未选定代码或选定代码小于等于1行时缩进整个模块的代码）

代码缩进

局部代码缩进（选定部分代码，以选定部分的首行(首个非空的行)代码的位置进行缩进）

局部代码缩进

代码宝由安装包提供安装，需要环境为 .NET FrameWork 4.0 与 Microsoft Visual Studio Tools for Office Runtime 2010 ，由安装包自动检测环境，并下载安装。

百度云盘：
链接：https://pan.baidu.com/s/1bksv-4O-fQ21dzlok8Fw-w
提取码：zi5w
复制这段内容后打开百度网盘手机App，操作更方便哦

补充内容 (2019-6-6 09:44):
代码宝已经更新为2.0：代码宝更新为 2.0啦
http://club.excelhome.net/thread-1481426-1-1.html
(出处: ExcelHome技术论坛)

1059526347 · 发表于 2019-5-26 23:04

本帖最后由 1059526347 于 2019-5-28 19:53 编辑

E码宝只自带了一段代码，我也没多少好的代码分享。
也就这一个还算有点用。主要用于xla/xlam加载项。

将以下代码复制到xla加载的 Thisworkbook 模块。效果：首次打开xla文件，会将源文件拷贝至在C盘目录下并添加为加载项，以后打开Excel将会自动加载，源文件无需保留

Private Sub Workbook_Open()
Dim Name As String
Name = ThisWorkbook.Name '获得当前文件的名称(有后缀)
Dim AddIn As AddIn
For Each AddIn In Application.AddIns
If AddIn.Name = Name Then
Exit Sub 'Addins列表中已存在同名文件
End If
Next
On Error Resume Next
MkDir ("C:\Addins") '创建一个新的文件夹
Dim path1 As String
Dim path2 As String
path1 = ThisWorkbook.Path & "" & Name '获得当前文件路径
path2 = "C:\Addins" & Name '设置文件储存的新路径
If path1 <> path2 Then '当前路径与新路径一至时无需拷贝
With CreateObject("scripting.filesystemobject")
.Copyfile path1, path2 '将文件拷贝至文件2
End With
End If
Application.AddIns.Add(path2).Installed = True '添加并安装加载项
End Sub

复制代码

zpy2 · 发表于 2019-5-27 04:48

.net的addin?

1059526347 · 发表于 2019-5-27 11:23

vb.net 开发的。。。。

1059526347 · 发表于 2019-5-27 23:49

好冷清呀
都没有人吗

zpy2 · 发表于 2019-5-28 05:38

1059526347 发表于 2019-5-27 23:49
好冷清呀
都没有人吗

.net就是exe，有不少插件，需要安装，还有e码宝里源码比较少吧

1059526347 · 发表于 2019-5-28 08:53

zpy2 发表于 2019-5-28 05:38
.net就是exe，有不少插件，需要安装，还有e码宝里源码比较少吧

是需要安装的，自带vba常用代码只提供了一个

1059526347 · 发表于 2019-5-28 10:45

百度网盘中的文件实时更新。修复了代码缩进时多插入一行，以及 If a>b Then Msgbox(“测试”) 格式代码的缩进异常

1059526347 · 发表于 2019-5-28 15:26

看来帖子要沉了。。。

liuxi001 · 发表于 2019-5-28 16:32

哈哈，分享源码比较有看头，不过也顶一下

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

[分享] 简单的VBA代码宝(包含代码缩进)

评分

评分