《excel中161个VBA_自定义函数(超级实用)(精)》由会员分享，可在线阅读，更多相关《excel中161个VBA_自定义函数(超级实用)(精)（89页珍藏版）》请在金锄头文库上搜索。
1、目录1.函数作用：返回Column英文字92.函数作用：查询某一值第num次出现的值93.函数作用：返回当个人工资薪金所得为2000元（起征点为850元时的应纳个人所得税税额104函数作用：从形如123545ABCDE的字符串中取出数字.ll5函数作用：从形如ABCD12455EDF的字符串中取出数字.116函数作用：按SplitType取得RangeName串值中的起始位置127.函数作用:将金额数字转成中文大写138.函数作用:计算某种税金189.函数作用:人民币大、小写转换1910.函数作用:查汉字区位码2011.函数作用:把公元年转为农历2112.函数作用:返回指定列数的列标4213.
2、函数作用:用指定字符替换某字符4314.函数作用:从右边开始查找指定字符在字符串中的位置.4315.函数作用:从右边开始查找指定字符在字符串中的位置.4416.函数作用:计算工龄4417.函数作用:计算日期差，除去星期六、星期日4518.函数作用:将英文字反转的自定函数4619.函数作用:计算个人所得税4620.函数作用:一个能计算是否有重复单元的函数4721.数字金额转中文大写4822.函数作用:将数字转成英文4923.函数作用:人民币大小写转换5224.函数作用:获取区域颜色值5325.函数作用:获取活动工作表名5326.函数作用:获取最后一行行数5427.函数作用:判断是否连接在线542
3、8.函数作用:币种转换5429.函数作用:检验工作表是否有可打印内容5530.函数作用:查找一字符串（withinstr在另一字符串中（findstr1中某一次（startnum出现时的位置，返回零表示没找到。5731.函数作用:增加文件路径最后的“”符号5832.函数作用:计算所得税5833.函数作用:从工作表第一行的标题文字以数字形式返回所在列号5834.函数作用:在多个工作表中查找一个范围内符合某个指定条件的项目对应指定范围加总求和5935.函数作用:返回Column英文字6036.函数作用:查找指定列名的列数6037.函数作用:文字格式的时间（分:秒转化为数字格式（秒.6138函数作用
4、:将hh:mm:ss格式的时分秒数转换成秒数.6239.函数作用:金额中文大写转数字6240.函数作用:把角度转为度秒分、弧度等显示6341.函数作用:身份证号码侦测6442.函数作用:显示公式6543.函数作用:方便财务人员理帐查找6644.函数作用:数值转换为字符地址6845.函数作用:字符地址转换为数值6946.函数作用:等待时间（以秒计算）6947.函数作用:得到字符串实际的长度（以单字节记）7048.函数作用:18位身份证最后一位有效性验证7049.函数作用:计算符合maturitycondition的拆解金额.7250.函数作用:对多个用同一分隔符分隔的待查找元素，逐一在表区域首列
5、内搜索，将返回选定单元格的值相加，7251.函数作用:根据个人所得税（工资）反算工资数7352.函数作用:判断表是否存在7453.函数作用:角度转弧7454.函数作用:比较相同的字符串7555.函数作用:对选定的数组进行排序7656.函数作用:取得指定月份天数7757.函数作用:排序工作表活页薄7758.函数作用:统计数组中非重复数据个数7859.函数作用:摘取子字符串7960.函数作用:计算20000余个汉字的笔画7961.函数作用:删除当前工作表中的全部超连接8062.函数作用:取得相近数据8163.函数作用:提取定串中汉字8164.函数作用:搜索重复数据（选定范围8165.函数作用:字符
6、型转数字型8266.函数作用:小写人民币转大写人民币8367.函数作用:取得指定月份人星期天个数8468.函数作用:侦测档案是否包含宏8469.函数作用:获取循环参照单元格8570.函数作用:创建桌面快捷方式8671.函数作用:自动建立多级目录8672.函数作用:统计经筛选后符合条件的记录条数8773.函数作用:复制单元格列高与栏宽8774.函数作用:取消隐藏工作表（包括vbaProject工程保护的8875函数作用:删除单元格自定义名称8876.函数作用:从文件路径中取得文件名8977.函数作用:取得一个文件的扩展名8978.函数作用:取得一个文件的路径9079.函数作用:十进制转二进制90
7、80.函数作用:检查一个数组是否为空9081.函数作用:字母栏名转数字栏名9182.函数作用:数字栏名转文字栏名9183.函数作用:判断一件活页夹中是否还有子目录9284.函数作用:判断一个文件是否在使用中9285.函数作用:列出档案详细摘要信息9386函数作用:获取菜单ID编号及名称列表9387.函数作用:状态列动态显示文字9488.函数作用:取得一个文件的路径29489.函数作用:取得一个文件的路径39590.函数作用:取得Activecell的栏名9591.函数作用:取得单元格中指定字符前的字符9592.函数作用:前单元格指定字符前的字符颜色改成红色9593.函数作用:根据数字返回对应的
8、字母列号9694.函数作用:取工作表名字9695.函数作用:取消所有隐藏的宏表9796函数作用:导出VBAProject代码9797.函数作用:导入VBAProject代码9798函数作用:取得汉字拼音的第一个字母9899.函数作用:获取两栏中相同的数据100100.函数作用:选取当前工作表中公式出错的单元格/关返回出错个数101101.函数作用:将工作表中最后一列作为页脚打印在每一面页尾101102.函数作用:获取vbproject引用项目102103.函数作用:移除Excel工作表中的外部数据连接.103104函数作用:将选择定单元格作成镜像图片103105.函数作用:反选择单元格中的数1
9、05106.函数作用:在Excel中加入一个量度尺（以厘米为单位.106107.函数作用:在Excel中加入一个量度尺（以寸为单位.109108.函数作用:取得一个短文件名的长文件名111109.函数作用:取得临时文件名112110.函数作用:等用Shell调用的程序执行完成后再执行其它程序112111.函数作用:将Mouse显示成动画113112.函数作用:限制Mouse移动范围114113.函数作用:取得当前激活窗品句柄及标题114114.函数作用:取得屏幕分辨率115115.函数作用:自动建立多级目录115116.函数作用:将文件长度置零116117函数作用:读取WIN9X/Me共享文件
10、夹密码116118.函数作用:取得预设的打印机及设置预设的打印机119119.函数作用:获得当前操作系统的打印机个数及检测打印是否存在120120.函数作用:枚举打印机名称清单120121.函数作用:读取网络服务器当前时间122122.函数作用:下载文件到指定目录123123.函数作用:自动映射网络驱动器124124.函数作用:自动断开网络驱动器125125.函数作用:连接选定单元格中的内容125126.函数作用:获取一个单元格中有指定字体颜色部份数据.126127.函数作用:对指定文件加XLS加密126128函数作用:选择指定范围内使用了填充颜色的单元格.127129.函数作用:在特定的区域
11、内查找文本,返回值是包含查找文本的单元格127130.函数作用:返回特定区域中最大值的地址128131.函数作用:删除表格中使用范围内的所有空白单元格.129132.函数作用:返回数组中有多少个指定的字符串129133.函数作用:返回当前工作表中引用了指定的单元的地址.130134.函数作用:获取Excel中字型列表131135.函数作用:获取一个字符串中有多少个数字字符131136.函数作用:在Excel中对多列进行填充131137.函数作用:对选定的范围进行数据填充（忽略单元格格式）132138函数作用:VBAProject加密及解密132139.函数作用:列出收藏夹中的网址133140.
12、函数作用:计算两个日期之间相隔的年份,比如年龄,工龄等.可计算从1000年01月01日起的日期134141.函数作用:从字符串提取纯数字135142.函数作用:将一个数组按升序排列136143.函数作用:将一个数组按降序排列137144.函数作用:删除空白列137145.函数作用:判断工作表是否为空白138146.函数作用:将数据按类分到不同工作薄138147.函数作用:单元格内数据排序139148.函数作用:对多栏排序140149.函数作用:返回计算公式的值,值的计算公式140150.函数作用:把第一列=某个值对应的第二列的内容连在一起，并用、隔开141151.函数作用:取得系统使用模式14
13、2152.函数作用:计算机注销/关机/重启142153.函数作用:更改计算机名称143154.函数作用:从n位开始取出字符串中的汉字、英文字母、数字143155.函数作用:在指定列中寻找含有指定字符串的单元格，并将符合条件的单元格标为红色，并将对应的下一列单元格赋值为1。144156.函数作用:清除字符串中的空格145157.函数作用:查找合并单元格位置145158.函数作用:阴阳历转换和阴阳历生日145159.函数作用:利用数组和Substitute来替换某字符149160.函数作用:一键创建斜线表头150161.函数作用:自动获取指定月的工作日151正文#1.函数作用：返回Column英文
14、字FunctionColLetter(ColNumberAsIntegerAsStringOnErrorGoToErrorhandlerColLetter=Left(Cells(l,ColNumber.Address(0,0,1-(ColNumber26ExitFunctionErrorhandler:MsgBoxErrorencountered,pleasere-enterEndFunction#2.函数作用：查询某一值第num次出现的值参数说明：Value1:查询引用的数值；Range1：查询区域;num：指定查询第几次出现；Col:返回值，相对引用区域，相对引用列的右数第Col列#FunctionMyFind(Value1,ByValRange1AsRange,ByValnumAsInteger,ByValColAsIntegerIfValue1=ThenExitFunctionIfRange1.Columns.Count1ThenEx
