【分享】几个自用的VBA小工具

白色GG

cxmgxl 发表于 2011-10-13 09:43
怎么使用啊，请详细指点下，呵呵......

每个工具的功能简介，在其界面图片的下方。所有工具的使用，基本都是填写、选择好界面上的框框后，点按钮执行。呵呵。

kevin_kaiCN

白色GG 发表于 2011-10-13 09:31
是的，有此想法。其实是这样：我所有的小工具都在一个vba里面，但其中几个是完全针对本公司的工资表制作的 ...

想问一下，一个有多少个，能否一次性发上来？谢谢

cxmgxl

白色GG 发表于 2011-10-13 10:06
每个工具的功能简介，在其界面图片的下方。所有工具的使用，基本都是填写、选择好界面上的框框后，点按钮 ...

首先谢谢，不过我说的是怎么加载使用！

白色GG

cxmgxl 发表于 2011-10-13 10:18
首先谢谢，不过我说的是怎么加载使用！

考虑到了，请参见：http://club.excelhome.net/thread-774173-1-1.html

cxmgxl

楼主真热心，顶一个！

白色GG

应要求，这里就把这些小工具的完整版先发上来。此工具在本人机器上编译通过，机器环境是Win7 + Excel 2010。推荐在Excel 2007和2010上使用，因为里面可能（是可能，不是确定。因为编写这个工具的前后时间较长了，不能肯定。）用了一些2003不支持的工作表函数。
主界面如下：


上面的每个按钮，鼠标移上去时都有提示（除“更新外部数据链接”外）。这里再简单介绍一下：
1、清除当前Excel密码：其实就是把当前的Excel无密码保存。不用去费事的删除密码，省事一些。
2、保存为只读文件：把当前的Excel文件保存为只读文件。
3、更新外部数据链接：更新当前Excel文件中的所有外部数据链接。
4、清理工作表名称：删除当前Excel文件所有工作表名称前后的空格。
5、保留内容合并单元格：合并选择的单元格，保留全部单元格的内容，单元格内容按照先行后列的顺序合并起来。
6、删除指定字符：删除所选区域或指定区域内所有单元格中的特殊字符：主要有前空格、后空格、短横线、中西文引号、制表符……等。
7、指定列查重：在指定列，用设置条件格式的方式查找重复出现的单元格。不知何故，这个功能能设置条件格式，但条件格式却不能时时都有效，曾经发帖求助过，但无果。
8、提取某列中不重复数：其实和系统提供的功能结果一样。从指定列中提取出不重复的数据，保存到原列或其他指定列。
9、批量设置格式：可对当前Excel的指定区域的所有的单元格，批量设置好字体、字号、字体颜色和填充颜色等格式。因为自用，这里的字体只提供了宋体和雅黑两种。
10、显示隐藏指定列：可对所有打开的Excel文件，设置其各自所有列的显示或隐藏。主要用于列很多的表的浏览。
11、指定列切分数据：对指定的数据区域，以指定列为关键字切分开。切分后的数据可做为工作表保存在原Excel中，也可以单独的保存为Excel文件。主要用于从总表中切分数据分发。
12、取消全部筛选条件：如果在一个工作表中设置了多个筛选，那么取消这些筛选就是个麻烦的事情。这个功能可一次性全部取消筛选。熟悉快捷键操作的朋友，其实可以用连续两次Ctrl + Shift + L来实现。
13、删除重复行：在当前工作表中，以指定列为关键字，删除所有重复关键列重复的行。
14、用指定列数据筛选：这其实是个用无规律数据来执行筛选。Excel提供了一些规律的筛选，比如大于、小于、前x名等。但对于一些无规律的筛选，就很麻烦。比如我有1000行数据，要在其中的ID列筛选出无规律的20行。这个功能就是为解决这个问题而提供的。有一个源数据表，里面有一个关键字列（比如ID），在另一个地方，有需要显示的ID列表（可以是一列，也可以用逗号、分号……等分给的ID字符串）。那么本功能就可以在源数据表中筛选出这些ID来。
15、提取不同工作表为文件：在选定的Excel中，提取其中的部分或全部工作表，保存为单独的Excel文件。

源码这里下载： Excel工具箱.zip (148.63 KB, 下载次数: 2098)

2011-10-13 11:05 上传

点击文件名下载附件

Jode

对VBA 我是完全空白。。先下载了。。。

yzlsc

谢谢楼主分享。

白色GG

Jode 发表于 2011-10-13 11:15
对VBA 我是完全空白。。先下载了。。。

希望对你有所帮助。

白色GG

kevin_kaiCN 发表于 2011-10-13 10:07
想问一下，一个有多少个，能否一次性发上来？谢谢

请见26楼。