VBA_自定义函数大全（精品）

1、VBA自定义函数大全龙族联盟论坛shcnmartin收集整理目录 TOC o 1-3 h z u HYPERLINK l _Toc290228862 1.函数作用：返回 Column 英文字 PAGEREF _Toc290228862 h 6 HYPERLINK l _Toc290228863 2.函数作用：查询某一值第num次出现的值 PAGEREF _Toc290228863 h 6 HYPERLINK l _Toc290228864 3.函数作用：返回当个人工资薪金所得为2000元(起征点为850元)时的应纳个人所得税税额 PAGEREF _Toc290228864 h 6 HYPERL

2、INK l _Toc290228865 4.函数作用：从形如123545ABCDE的字符串中取出数字 PAGEREF _Toc290228865 h 8 HYPERLINK l _Toc290228866 5.函数作用：从形如ABCD12455EDF的字符串中取出数字 PAGEREF _Toc290228866 h 8 HYPERLINK l _Toc290228867 6.函数作用：按SplitType取得RangeName串值中的起始位置 PAGEREF _Toc290228867 h 8 HYPERLINK l _Toc290228868 7.函数作用:将金额数字转成中文大写 PAGER

3、EF _Toc290228868 h 9 HYPERLINK l _Toc290228869 8.函数作用:计算某种税金 PAGEREF _Toc290228869 h 14 HYPERLINK l _Toc290228870 9.函数作用:人民币大、小写转换 PAGEREF _Toc290228870 h 15 HYPERLINK l _Toc290228871 10.函数作用:查汉字区位码 PAGEREF _Toc290228871 h 17 HYPERLINK l _Toc290228872 11.函数作用:把公元年转为农历 PAGEREF _Toc290228872 h 17 HYPE

4、RLINK l _Toc290228873 12.函数作用:返回指定列数的列标 PAGEREF _Toc290228873 h 40 HYPERLINK l _Toc290228874 13.函数作用:用指定字符替换某字符 PAGEREF _Toc290228874 h 40 HYPERLINK l _Toc290228875 14.函数作用:从右边开始查找指定字符在字符串中的位置 PAGEREF _Toc290228875 h 41 HYPERLINK l _Toc290228876 15.函数作用:从右边开始查找指定字符在字符串中的位置 PAGEREF _Toc290228876 h 41

5、 HYPERLINK l _Toc290228877 16.函数作用:计算工龄 PAGEREF _Toc290228877 h 42 HYPERLINK l _Toc290228878 17.函数作用:计算日期差，除去星期六、星期日 PAGEREF _Toc290228878 h 43 HYPERLINK l _Toc290228879 18.函数作用:将英文字反转的自定函数. PAGEREF _Toc290228879 h 43 HYPERLINK l _Toc290228880 19.函数作用:计算个人所得税 PAGEREF _Toc290228880 h 43 HYPERLINK l _

6、Toc290228881 20.函数作用:一个能计算是否有重复单元的函数 PAGEREF _Toc290228881 h 44 HYPERLINK l _Toc290228882 21.数字金额转中文大写 PAGEREF _Toc290228882 h 45 HYPERLINK l _Toc290228883 22.函数作用:将数字转成英文 PAGEREF _Toc290228883 h 46 HYPERLINK l _Toc290228884 23.函数作用:人民币大小写转换 PAGEREF _Toc290228884 h 50 HYPERLINK l _Toc290228885 24.函数

7、作用:获取区域颜色值 PAGEREF _Toc290228885 h 50 HYPERLINK l _Toc290228886 25.函数作用:获取活开工作表名 PAGEREF _Toc290228886 h 50 HYPERLINK l _Toc290228887 26.函数作用:获取最后一行行数 PAGEREF _Toc290228887 h 51 HYPERLINK l _Toc290228888 27.函数作用:判断是否连接在线 PAGEREF _Toc290228888 h 51 HYPERLINK l _Toc290228889 28.函数作用:币种转换 PAGEREF _Toc2

8、90228889 h 51 HYPERLINK l _Toc290228890 29.函数作用:检验工作表是否有可打印内容 PAGEREF _Toc290228890 h 52 HYPERLINK l _Toc290228891 30.函数作用:查找一字符串(withinstr)在另一字符串中(findstr1)中某一次(startnum)出现时的位置，返回零表示没找到。 PAGEREF _Toc290228891 h 54 HYPERLINK l _Toc290228892 31.函数作用:增加文件路径最后的“符号 PAGEREF _Toc290228892 h 55 HYPERLINK l

9、 _Toc290228893 32.函数作用:计算所得税 PAGEREF _Toc290228893 h 55 HYPERLINK l _Toc290228894 33.函数作用:从工作表第一行的标题文字以数字形式返回所在列号 PAGEREF _Toc290228894 h 55 HYPERLINK l _Toc290228895 34.函数作用:在多个工作表中查找一个范围内符合某个指定条件的工程对应指定范围加总求和 PAGEREF _Toc290228895 h 56 HYPERLINK l _Toc290228896 35.函数作用:返回 Column 英文字 PAGEREF _Toc29

10、0228896 h 56 HYPERLINK l _Toc290228897 36.函数作用:查找指定列名的列数 PAGEREF _Toc290228897 h 57 HYPERLINK l _Toc290228898 37.函数作用:文字格式的时间(分:秒)转化为数字格式(秒) PAGEREF _Toc290228898 h 58 HYPERLINK l _Toc290228899 38.函数作用:将hh:mm:ss格式的时分秒数转换成秒数 PAGEREF _Toc290228899 h 58 HYPERLINK l _Toc290228900 39.函数作用:金额中文大写转数字 PAGER

11、EF _Toc290228900 h 59 HYPERLINK l _Toc290228901 40.函数作用:把角度转为度秒分、弧度等显示 PAGEREF _Toc290228901 h 60 HYPERLINK l _Toc290228902 41.函数作用:身份证号码侦测 PAGEREF _Toc290228902 h 60 HYPERLINK l _Toc290228903 42.函数作用:显示公式 PAGEREF _Toc290228903 h 62 HYPERLINK l _Toc290228904 43.函数作用:方便财务人员理帐查找 PAGEREF _Toc290228904

12、h 62 HYPERLINK l _Toc290228905 44.函数作用:数值转换为字符地址 PAGEREF _Toc290228905 h 65 HYPERLINK l _Toc290228906 45.函数作用:字符地址转换为数值 PAGEREF _Toc290228906 h 65 HYPERLINK l _Toc290228907 46.函数作用:等待时间以秒计算 PAGEREF _Toc290228907 h 66 HYPERLINK l _Toc290228908 47.函数作用:得到字符串实际的长度以单字节记 PAGEREF _Toc290228908 h 66 HYPERL

13、INK l _Toc290228909 48.函数作用:18位身份证最后一位有效性验证 PAGEREF _Toc290228909 h 67 HYPERLINK l _Toc290228910 49.函数作用:计算符合maturity condition的拆解金额 PAGEREF _Toc290228910 h 68 HYPERLINK l _Toc290228911 50.函数作用:对多个用同一分隔符分隔的待查找元素，逐一在表区域首列内搜索，将返回选定单元格的值相加， PAGEREF _Toc290228911 h 69 HYPERLINK l _Toc290228912 51.函数作用:根

14、据个人所得税工资反算工资数 PAGEREF _Toc290228912 h 70 HYPERLINK l _Toc290228913 52.函数作用:判断表是否存在 PAGEREF _Toc290228913 h 70 HYPERLINK l _Toc290228914 53.函数作用:角度转弧 PAGEREF _Toc290228914 h 71 HYPERLINK l _Toc290228915 54.函数作用:比拟相同的字符串 PAGEREF _Toc290228915 h 71 HYPERLINK l _Toc290228916 55.函数作用:对选定的数组进行排序 PAGEREF _

15、Toc290228916 h 72 HYPERLINK l _Toc290228917 56.函数作用:取得指定月份天数 PAGEREF _Toc290228917 h 73 HYPERLINK l _Toc290228918 57.函数作用:排序工作表活页薄 PAGEREF _Toc290228918 h 73 HYPERLINK l _Toc290228919 58.函数作用:统计数组中非重复数据个数 PAGEREF _Toc290228919 h 74 HYPERLINK l _Toc290228920 59.函数作用:摘取子字符串 PAGEREF _Toc290228920 h 74

16、HYPERLINK l _Toc290228921 60.函数作用:计算20000余个汉字的笔画 PAGEREF _Toc290228921 h 75 HYPERLINK l _Toc290228922 61.函数作用:删除当前工作表中的全部超连接 PAGEREF _Toc290228922 h 76 HYPERLINK l _Toc290228923 62.函数作用:取得相近数据 PAGEREF _Toc290228923 h 76 HYPERLINK l _Toc290228924 63.函数作用:提取定串中汉字 PAGEREF _Toc290228924 h 77 HYPERLINK l

17、 _Toc290228925 64.函数作用:搜索重复数据(选定范围) PAGEREF _Toc290228925 h 77 HYPERLINK l _Toc290228926 65.函数作用:字符型转数字型 PAGEREF _Toc290228926 h 78 HYPERLINK l _Toc290228927 66.函数作用:小写人民币转大写人民币 PAGEREF _Toc290228927 h 78 HYPERLINK l _Toc290228928 67.函数作用:取得指定月份人星期天个数 PAGEREF _Toc290228928 h 79 HYPERLINK l _Toc29022

18、8929 68.函数作用:侦测档案是否包含宏 PAGEREF _Toc290228929 h 80 HYPERLINK l _Toc290228930 69.函数作用:获取循环参照单元格 PAGEREF _Toc290228930 h 81 HYPERLINK l _Toc290228931 70.函数作用:创立桌面快捷方式 PAGEREF _Toc290228931 h 81 HYPERLINK l _Toc290228932 71.函数作用:自动建立多级目录 PAGEREF _Toc290228932 h 82 HYPERLINK l _Toc290228933 72.函数作用:统计经筛选

19、后符合条件的记录条数 PAGEREF _Toc290228933 h 82 HYPERLINK l _Toc290228934 73.函数作用:复制单元格列高与栏宽 PAGEREF _Toc290228934 h 83 HYPERLINK l _Toc290228935 74.函数作用:取消隐藏工作表包括vba Project工程保护的) PAGEREF _Toc290228935 h 83 HYPERLINK l _Toc290228936 75.函数作用:删除单元格自定义名称 PAGEREF _Toc290228936 h 84 HYPERLINK l _Toc290228937 76.函

20、数作用:从文件路径中取得文件名 PAGEREF _Toc290228937 h 84 HYPERLINK l _Toc290228938 77.函数作用:取得一个文件的扩展名 PAGEREF _Toc290228938 h 84 HYPERLINK l _Toc290228939 78.函数作用:取得一个文件的路径 PAGEREF _Toc290228939 h 85 HYPERLINK l _Toc290228940 79.函数作用:十进制转二进制 PAGEREF _Toc290228940 h 85 HYPERLINK l _Toc290228941 80.函数作用:检查一个数组是否为空

21、PAGEREF _Toc290228941 h 85 HYPERLINK l _Toc290228942 81.函数作用:字母栏名转数字栏名 PAGEREF _Toc290228942 h 86 HYPERLINK l _Toc290228943 82.函数作用:数字栏名转文字栏名 PAGEREF _Toc290228943 h 86 HYPERLINK l _Toc290228944 83.函数作用:判断一件活页夹中是否还有子目录 PAGEREF _Toc290228944 h 86 HYPERLINK l _Toc290228945 84.函数作用:判断一个文件是否在使用中 PAGEREF

22、 _Toc290228945 h 87 HYPERLINK l _Toc290228946 85.函数作用:列出档案详细摘要信息 PAGEREF _Toc290228946 h 87 HYPERLINK l _Toc290228947 86.函数作用:获取菜单ID编号及名称列表 PAGEREF _Toc290228947 h 88 HYPERLINK l _Toc290228948 87.函数作用:状态列动态显示文字 PAGEREF _Toc290228948 h 88 HYPERLINK l _Toc290228949 88.函数作用:取得一个文件的路径2 PAGEREF _Toc29022

23、8949 h 89 HYPERLINK l _Toc290228950 89.函数作用:取得一个文件的路径3 PAGEREF _Toc290228950 h 89 HYPERLINK l _Toc290228951 90.函数作用:取得Activecell的栏名 PAGEREF _Toc290228951 h 89 HYPERLINK l _Toc290228952 91.函数作用:取得单元格中指定字符前的字符 PAGEREF _Toc290228952 h 89 HYPERLINK l _Toc290228953 92.函数作用:前单元格指定字符前的字符颜色改成红色 PAGEREF _Toc

24、290228953 h 90 HYPERLINK l _Toc290228954 93.函数作用:根据数字返回对应的字母列号 PAGEREF _Toc290228954 h 90 HYPERLINK l _Toc290228955 94.函数作用:取工作表名字 PAGEREF _Toc290228955 h 90 HYPERLINK l _Toc290228956 95.函数作用:取消所有隐藏的宏表 PAGEREF _Toc290228956 h 91 HYPERLINK l _Toc290228957 96.函数作用:导出VBA Project代码 PAGEREF _Toc290228957

25、 h 91 HYPERLINK l _Toc290228958 97.函数作用:导入VBA Project代码 PAGEREF _Toc290228958 h 91 HYPERLINK l _Toc290228959 98.函数作用:取得汉字拼音的第一个字母 PAGEREF _Toc290228959 h 91 HYPERLINK l _Toc290228960 99.函数作用:获取两栏中相同的数据 PAGEREF _Toc290228960 h 94 HYPERLINK l _Toc290228961 100.函数作用:选取当前工作表中公式出错的单元格关返回出错个数 PAGEREF _Toc

26、290228961 h 95 HYPERLINK l _Toc290228962 101.函数作用:将工作表中最后一列作为页脚打印在每一面页尾 PAGEREF _Toc290228962 h 95 HYPERLINK l _Toc290228963 102.函数作用:获取vbproject引用工程 PAGEREF _Toc290228963 h 96 HYPERLINK l _Toc290228964 103.函数作用:移除Excel工作表中的外部数据连接 PAGEREF _Toc290228964 h 96 HYPERLINK l _Toc290228965 104.函数作用:将选择定单元格

27、作成镜像图片 PAGEREF _Toc290228965 h 97 HYPERLINK l _Toc290228966 105.函数作用:反选择单元格中的数 PAGEREF _Toc290228966 h 99 HYPERLINK l _Toc290228967 106.函数作用:在Excel中参加一个量度尺(以厘米为单位) PAGEREF _Toc290228967 h 100 HYPERLINK l _Toc290228968 107.函数作用:在Excel中参加一个量度尺(以寸为单位) PAGEREF _Toc290228968 h 102 HYPERLINK l _Toc2902289

28、69 108.函数作用:取得一个短文件名的长文件名 PAGEREF _Toc290228969 h 105 HYPERLINK l _Toc290228970 109.函数作用:取得临时文件名 PAGEREF _Toc290228970 h 105 HYPERLINK l _Toc290228971 110.函数作用:等用Shell调用的程序执行完成后再执行其它程序 PAGEREF _Toc290228971 h 106 HYPERLINK l _Toc290228972 111.函数作用:将Mouse显示成动画 PAGEREF _Toc290228972 h 107 HYPERLINK l

29、_Toc290228973 112.函数作用:限制Mouse移动范围 PAGEREF _Toc290228973 h 107 HYPERLINK l _Toc290228974 113.函数作用:取得当前激活窗品句柄及标题 PAGEREF _Toc290228974 h 108 HYPERLINK l _Toc290228975 114.函数作用:取得屏幕分辨率 PAGEREF _Toc290228975 h 108 HYPERLINK l _Toc290228976 115.函数作用:自动建立多级目录 PAGEREF _Toc290228976 h 108 HYPERLINK l _Toc2

30、90228977 116.函数作用:将文件长度置零 PAGEREF _Toc290228977 h 109 HYPERLINK l _Toc290228978 117.函数作用:读取WIN9X / Me共享文件夹密码 PAGEREF _Toc290228978 h 109 HYPERLINK l _Toc290228979 118.函数作用:取得预设的打印机及设置预设的打印机 PAGEREF _Toc290228979 h 112 HYPERLINK l _Toc290228980 119.函数作用:获得当前操作系统的打印机个数及检测打印是否存在 PAGEREF _Toc290228980 h

31、 113 HYPERLINK l _Toc290228981 120.函数作用:枚举打印机名称清单 PAGEREF _Toc290228981 h 113 HYPERLINK l _Toc290228982 121.函数作用:读取网络效劳器当前时间 PAGEREF _Toc290228982 h 115 HYPERLINK l _Toc290228983 122.函数作用:下载文件到指定目录 PAGEREF _Toc290228983 h 117 HYPERLINK l _Toc290228984 123.函数作用:自动映射网络驱动器 PAGEREF _Toc290228984 h 117 H

32、YPERLINK l _Toc290228985 124.函数作用:自动断开网络驱动器 PAGEREF _Toc290228985 h 118 HYPERLINK l _Toc290228986 125.函数作用:连接选定单元格中的内容 PAGEREF _Toc290228986 h 118 HYPERLINK l _Toc290228987 126.函数作用:获取一个单元格中有指定字体颜色部份数据 PAGEREF _Toc290228987 h 119 HYPERLINK l _Toc290228988 127.函数作用:对指定文件加XLS加密 PAGEREF _Toc290228988 h

33、 119 HYPERLINK l _Toc290228989 128.函数作用:选择指定范围内使用了填充颜色的单元格 PAGEREF _Toc290228989 h 120 HYPERLINK l _Toc290228990 129.函数作用:在特定的区域内查找文本,返回值是包含查找文本的单元格 PAGEREF _Toc290228990 h 120 HYPERLINK l _Toc290228991 130.函数作用:返回特定区域中最大值的地址 PAGEREF _Toc290228991 h 121 HYPERLINK l _Toc290228992 131.函数作用:删除表格中使用范围内的

34、所有空白单元格 PAGEREF _Toc290228992 h 121 HYPERLINK l _Toc290228993 132.函数作用:返回数组中有多少个指定的字符串 PAGEREF _Toc290228993 h 122 HYPERLINK l _Toc290228994 133.函数作用:返回当前工作表中引用了指定的单元的地址 PAGEREF _Toc290228994 h 123 HYPERLINK l _Toc290228995 134.函数作用:获取Excel中字型列表 PAGEREF _Toc290228995 h 123 HYPERLINK l _Toc290228996

35、135.函数作用:获取一个字符串中有多少个数字字符 PAGEREF _Toc290228996 h 124 HYPERLINK l _Toc290228997 136.函数作用:在Excel中对多列进行填充 PAGEREF _Toc290228997 h 124 HYPERLINK l _Toc290228998 137.函数作用:对选定的范围进行数据填充忽略单元格格式 PAGEREF _Toc290228998 h 124 HYPERLINK l _Toc290228999 138.函数作用:VBA Project加密及解密 PAGEREF _Toc290228999 h 125 HYPER

36、LINK l _Toc290229000 139.函数作用:列出收藏夹中的网址 PAGEREF _Toc290229000 h 126 HYPERLINK l _Toc290229001 140.函数作用:计算两个日期之间相隔的年份,比方年龄,工龄等.可计算从1000年01月01日起的日期 PAGEREF _Toc290229001 h 127 HYPERLINK l _Toc290229002 141.函数作用:从字符串提取纯数字 PAGEREF _Toc290229002 h 127 HYPERLINK l _Toc290229003 142.函数作用:将一个数组按升序排列 PAGEREF

37、 _Toc290229003 h 128 HYPERLINK l _Toc290229004 143.函数作用:将一个数组按降序排列 PAGEREF _Toc290229004 h 129 HYPERLINK l _Toc290229005 144.函数作用:删除空白列 PAGEREF _Toc290229005 h 129 HYPERLINK l _Toc290229006 145.函数作用:判断工作表是否为空白 PAGEREF _Toc290229006 h 130 HYPERLINK l _Toc290229007 146.函数作用:将数据按类分到不同工作薄 PAGEREF _Toc29

38、0229007 h 130 HYPERLINK l _Toc290229008 147.函数作用:单元格内数据排序 PAGEREF _Toc290229008 h 131 HYPERLINK l _Toc290229009 148.函数作用:对多栏排序 PAGEREF _Toc290229009 h 132 HYPERLINK l _Toc290229010 149.函数作用:返回计算公式的值 ,值的计算公式 PAGEREF _Toc290229010 h 132 HYPERLINK l _Toc290229011 150.函数作用:把第一列=某个值对应的第二列的内容连在一起，并用、隔开 PA

39、GEREF _Toc290229011 h 133 HYPERLINK l _Toc290229012 151.函数作用:取得系统使用模式 PAGEREF _Toc290229012 h 134 HYPERLINK l _Toc290229013 152.函数作用:计算机注销/关机/重启 PAGEREF _Toc290229013 h 134 HYPERLINK l _Toc290229014 153.函数作用:更改计算机名称 PAGEREF _Toc290229014 h 135 HYPERLINK l _Toc290229015 154.函数作用:从n位开始取出字符串中的汉字、英文字母、数

40、字 PAGEREF _Toc290229015 h 135 HYPERLINK l _Toc290229016 155.函数作用:在指定列中寻找含有指定字符串的单元格，并将符合条件的单元格标为红色，并将对应的下一列单元格赋值为1 PAGEREF _Toc290229016 h 136 HYPERLINK l _Toc290229017 156.函数作用:去除字符串中的空格 PAGEREF _Toc290229017 h 136 HYPERLINK l _Toc290229018 157.函数作用:查找合并单元格位置 PAGEREF _Toc290229018 h 137 HYPERLINK l

41、 _Toc290229019 158.函数作用:阴阳历转换和阴阳历生日 PAGEREF _Toc290229019 h 137 HYPERLINK l _Toc290229020 159.函数作用:利用数组和Substitute来替换某字符 PAGEREF _Toc290229020 h 141 HYPERLINK l _Toc290229021 160.函数作用:一键创立斜线表头 PAGEREF _Toc290229021 h 141 HYPERLINK l _Toc290229022 161.函数作用:自动获取指定月的工作日 PAGEREF _Toc290229022 h 143#1.函数

42、作用：返回 Column 英文字#Function ColLetter(ColNumber As Integer) As String On Error GoTo Errorhandler ColLetter = Left(Cells(1, ColNumber).Address(0, 0), 1 - (ColNumber 26) Exit FunctionErrorhandler: MsgBox Error encountered, please re-enter End Function#2.函数作用：查询某一值第num次出现的值 参数说明：Value1：查询引用的数值; Range1：查询

43、区域; num：指定查询第几次出现; Col：返回值, 相对引用区域, 相对引用列的右数第Col列#Function MyFind(Value1, ByVal Range1 As Range, ByVal num As Integer, ByVal Col As Integer) If Value1 = Then Exit Function If Range1.Columns.Count 1 Then Exit Function For Each D In Range1 If D.Value = Value1 Then c = c + 1 If c = num Then v1 = D(1, C

44、ol) Exit For End If ElseIf IsEmpty(D) Then Exit For End If Next If v1 = Then v1 = not MyFind = v1End Function#3.函数作用：返回当个人工资薪金所得为2000元(起征点为850元)时的应纳个人所得税税额 语 法：Grsds(bsc, mysala) 参数说明：bsc: 必选项，为起征点，包括税法规定的工资基数800元加上允许税前扣除的合理费用; mysala: 必选项，为人个工资薪金所得。 示 例：Grsds(850, 20000) =#Function Grsds(bsc As Dou

45、ble, mysala As Double) As Double bsc为起征点加上允许税前扣除的合理费用,mysala为工资薪金所得 On Error GoTo Grsds_err Select Case mysala Case Is = bsc Grsds = 0 Case Is = bsc + 500 Grsds = Application.WorksheetFunction.Round(mysala - bsc) * 0.05, 2) Case Is = bsc + 2000 Grsds = Application.WorksheetFunction.Round(mysala - bs

46、c) * 0.1 - 25, 2) Case Is = bsc + 5000 Grsds = Application.WorksheetFunction.Round(mysala - bsc) * 0.15 - 125, 2) Case Is = bsc + 20000 Grsds = Application.WorksheetFunction.Round(mysala - bsc) * 0.2 - 375, 2) Case Is = bsc + 40000 Grsds = Application.WorksheetFunction.Round(mysala - bsc) * 0.25 - 1

47、375, 2) Case Is = bsc + 60000 Grsds = Application.WorksheetFunction.Round(mysala - bsc) * 0.3 - 3375, 2) Case Is = bsc + 80000 Grsds = Application.WorksheetFunction.Round(mysala - bsc) * 0.35 - 6375, 2) Case Is 0 i = i + 1 Loop mydata = Val(Mid(mystring, i, Len(mystring) - i + 1)End Function#6.函数作用：

48、按SplitType取得RangeName串值中的起始位置#1:单元格，2:行号，3:列号，4:范围Public Const SINGLE_CELL = 1Public Const ROW_NUM = 2Public Const COL_NUM = 3Public Const RANGE_ALL = 4Public Function SplitRangeName(RangeName As String, SplitType As Integer) As String If VBA.Len(RangeName) 0 Then RangeName = VBA.Left(RangeName, VBA

49、.InStr(1, RangeName, :) - 1) Select Case SplitType Case SINGLE_CELL If VBA.InStr(1, RangeName, :) 0 Then SplitRangeName = $ & VBA.Left(RangeName, VBA.InStr(1, RangeName, :) - 1) Else SplitRangeName = $ & RangeName End If Case ROW_NUM SplitRangeName = VBA.IIf(VBA.InStr(1, RangeName, $) 0, VBA.Right(R

50、angeName, VBA.Len(RangeName) - VBA.InStr(1, RangeName, $), RangeName) If Not IsNumeric(SplitRangeName) Then SplitRangeName = MsgBox , vbInformation, End If Case COL_NUM If VBA.InStr(1, RangeName, $) 0 Then SplitRangeName = VBA.Left(RangeName, VBA.InStr(1, RangeName, $) - 1) Else SplitRangeName = Ran

51、geName End If If IsNumeric(SplitRangeName) Then SplitRangeName = MsgBox , vbInformation, End If Case RANGE_ALL SplitRangeName = $ & RangeName End Select End IfEnd Function#7.函数作用:将金额数字转成中文大写#Function Money(Number As Currency) Dim i, j, k, m, leng As Integer 计数器 Dim Zero As Integer 连续零标识 Dim Tnumber

52、As String 储存数字字符串,计算数组长度 Dim Num() As String 定义数组 Dim Num1(3) As String 存储万元以下数字 Dim Num2(1) As String 储存拆分后的数字 Dim Cha(8), Cha1(9), Cha2(4) As String 储存转化后的汉字 Dim Zcha As String 连接后的字符串 Dim Flag, Flag1 As Boolean 正负标志 Flag = True Flag1 = False Zero = 0 如果大于一亿，那么不处理 If (Number 99999999) Or (Number -

53、99999999) Then MsgBox (Sorry,数据超过一亿，暂不处理。) MsgBox (顺便问一下，你真有那么多钱吗？) Money = Sorry! Else If (Number = 0) Then Money = 零元整 Else *将负数数字转化正数并更改标识* If (Number 0) Then Tnumber = CStr(Int(Number * 100) / 100) Else Tnumber = CStr(Number) End If *处理四舍五入* If (Number - Int(Number) * 100 - Int(Number - Int(Numb

54、er) * 100) = 0.5) Then Tnumber = CStr(CCur(Tnumber) + 0.01) End If Number = CCur(Tnumber) *重新分配数组空间* ReDim Num(Len(Tnumber) - 1) As String *将字符串分开存储至数组中* For i = 0 To Len(Tnumber) - 1 Num(i) = Mid(Tnumber, i + 1, 1) Next i *定义所需字符* Dim M1, M2 M1 = Array(零, 壹, 贰, 叁, 肆, 伍, 陆, 柒, 捌, 玖) M2 = Array(, 拾,

55、佰, 仟, 万, 亿) *处理小于一元金额* *小数点后一位，那么* If (Number - Int(Number) 0) And (Number * 100 - Int(Number) * 100) Mod 10) = 0) Then i = i - 1 Num2(0) = Num(i) Num(i) = i = i - 1 Num(i) = i = i - 1 Cha2(0) = M1(CByte(Num2(0) Cha2(1) = 角 Cha2(2) = 整 Else *小数点后两位那么* If (Number - Int(Number) 0) Then i = i - 1 Num2(

56、1) = Num(i) Num2(0) = Num(i - 1) Num(i) = i = i - 1 Num(i) = i = i - 1 Num(i) = i = i - 1 Cha2(0) = M1(CByte(Num2(0) Cha2(1) = 角 Cha2(2) = M1(CByte(Num2(1) Cha2(3) = 分 End If End If *分解大于一万的整数局部* If (Int(Number) 9999) Then If (Cha2(0) ) Then i = i + 1 End If For j = 3 To 0 Step -1 Num1(j) = Num(i -

57、1) Num(i - 1) = i = i - 1 Next j Else If (Cha2(0) ) Then i = i + 1 End If For j = 0 To i - 1 Num1(j) = Num(j) Num(j) = Next j End If *转换万元以上数字* If (Num(0) ) Then leng = i j = 0 For k = 0 To leng - 1 If (Num(k) = 0) Then Zero = Zero + 1 For m = 1 To 5 If (Cha(j - 1) = M2(m) Then Flag1 = True End If N

58、ext m If (Zero = 1) And (Flag1 = False) Then Cha(j) = M1(CByte(Num(k) End If If (Zero = 1) Then j = j + 1 End If Else If (Num(k) ) Then If (Zero 0) Then Cha(j - 1) = 零 End If Cha(j) = M1(CByte(Num(k) End If j = j + 1 End If If (Num(k) = 0) Then i = i - 1 Else Cha(j) = M2(i - 1) j = j + 1 i = i - 1 Z

59、ero = 0 End If Next k Cha(j - 1) = 万 Zero = 0 End If *转换万元以下数字* If (Num1(0) ) Then j = 0 Flag1 = False leng = 3 While (Num1(leng) = ) leng = leng - 1 Wend i = leng + 1 For k = 0 To leng If (Num1(k) ) Then If (Num1(k) = 0) Then Zero = Zero + 1 For m = 1 To 5 If (j 0) Then If (Cha1(j - 1) = M2(m) Then

60、 Flag1 = True End If End If Next m If (Zero = 1) And (Flag1 = False) Then Cha1(j) = M1(CByte(Num1(k) End If If (Zero = 1) Then j = j + 1 End If Else If (Num1(k) ) Then If (Zero 0) Then Cha1(j - 1) = 零 End If Cha1(j) = M1(CByte(Num1(k) End If j = j + 1 End If If (Num1(k) = 0) Then i = i - 1 Else Cha1