ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1509|回复: 2

[分享] 分享一个Excel 加载宏

[复制链接]

TA的精华主题

TA的得分主题

发表于 2015-9-2 17:20 | 显示全部楼层 |阅读模式
主要功能介绍:
1、        第一组:My Favorite
(1)        Number Format
选择所有与活动单元格数字格式相同的单元格。
(2)        Insert Index
插入一个叫“目录”的worksheet,并且把这个工作表放在所有工作表的前面。如果“目录”sheet已经存在,将覆盖它。
制作目录的同时,会在每个工作表的A1 单元格插入超链接,链接到“目录”工作表。
(3)        Add Round()
选择一个区域,点击Add Round()。如果选取内有数字(包括返回数字的公式)的单元格,会给这些单元格加上round()函数,可以自定义精确位数哦!
(4)        Del Round()
万一给不该四舍五入的单元格加了Round()函数呢!这个功能就是一粒后悔药,轻轻一点,删除刚才添加的round()函数。
(5)        Divide 1000
选区内所有单元格除以1000,用的是公式,不用担心除错了恢复不了。在把元转换为千元的时候非常有用。
而且,你可以自定义除数,不限于1000.
(6)        Mutiply 1000
选区内所有单元格乘以1000,同样用公式。这个是另一粒后悔药了,如果除以1000的时候范围选大了,这个可以把选区内的公式复原。
(7)        Display As Index
前面不是有一个Insert Index的功能么,目录的第三列是记录要不要隐藏工作表。如果需要隐藏(或显示)一些工作表,只要在第三列对应的行写“是”(或“否”),然后点Display As Index,就会按照你的选择隐藏(或显示)工作表。
(8)        Display All sheets
显示所有工作表(不会更新目录中的状态)
(9)        Del Hidden sheets
删除所有隐藏工作表(谨慎操作)
2、        第二组:Find You
(1)        Find Strings
方便筛选多个值。
(2)        Add Dropdowns
选择一个区域,点击【Add Dropdowns】,会在该区域每个单元格插入一个悬浮的下拉菜单。
注意:悬浮的下拉菜单和单元格是相互独立的,下拉菜单不会随单元格变化大小!而且,在悬浮下拉菜单里显示的值并不等于对应单元格里的值。如果你在第一菜单里选择了“广州”,D4单元格仍然是空的(而不是“广州”)。若想把下拉菜单里的值复制到对应的单元格里,可以使用【Get Text From DD】功能。
(3)        Select Dropdown
若要删除一个区域内所有的悬浮下拉菜单,选择这个区域,点击【Select Dropdown】,该区域内的所有悬浮下拉菜单都被选中,再按Delete键。
(4)        Get Text From DD
如上,该功能是将悬浮下拉菜单中的文字复制到对应的单元格。如果一个悬浮下拉菜单跨越不止一个单元格,以悬浮下拉菜单的中心点为准。
(5)        Scan Comments
生成一个名为“Comments”的worksheet,列示本workbook里所有的Comment.
(6)        Del Sel Comments
在上面生成的“Comments”工作表中,D列标记是否需要删除该Comment,默认为Yes,即删除。若不删除,请修改为No。点击【Del Sel Comments】,将删除所有标记为“Yes”的Comment.
(7)        Del All Comments
删除本workbook中所有的Comments.
3、        第三组:My Format
(1)        ColorCells
将选区内所有单元格变成与活动单元格一样的颜色。如果你的worksheet分成很多个区域,不同的区域需要着不同的颜色,而这些颜色在颜色面板里不太好找,可以试试这个功能。
4、        第五组:My Formula
(1)        TextMatch()
安装了本加载宏的电脑可以在Excel中使用TextMatch()函数。该函数的功能是在一列文本中找到与目标文本最接近的一个。函数有三个参数,第一个参数为查找范围,即”在哪里找“,第二个是目标值,即”找什么”,第三个是最低相似度,范围为0-10。第三个参数越大结果越靠谱,但是啥也找不到的可能性也更大。
点击【TextMatch】可查看TextMatch()函数的运行示例。
(2)        ContainString()
与【TextMatch】类似。
ContainString()函数是要在一个长字符串中找出一个短字符串。该函数有三个参数,第一个参数为长字符串,即”在哪里找“,第二个参数为短字符串列表,第三个是可选参数,True表示在短字符串列表中从上往下找,False表示从下往上找。默认TRUE。
点击【ContainString】查看ContainString()函数的运行示例。

EasyAudit工具及使用说明.zip

397.01 KB, 下载次数: 254

TA的精华主题

TA的得分主题

发表于 2015-9-7 06:42 | 显示全部楼层
虽然现在俺不懂,但是仍支持楼主的他享精神。

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-9-17 11:18 | 显示全部楼层
更新了下,增加了一个文件名称管理的工具。另外增加了中文版

EasyAudit工具及使用说明.zip

585.78 KB, 下载次数: 54

中文版、英文版及使用说明

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-9-28 11:13 , Processed in 0.036770 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表