没有合适的资源?快使用搜索试试~ 我知道了~
Excel-165个VBA自定义函数大全
5星 · 超过95%的资源 需积分: 34 42 下载量 194 浏览量
2012-04-26
10:08:23
上传
评论 5
收藏 843KB DOC 举报
温馨提示
试读
64页
Excel-165个VBA自定义函数大全
资源推荐
资源详情
资源评论
VBA
自定义函数大全
目录
'1.函数作用:返回 Column 英文字.................................................................................................................5
'2.函数作用:查询某一值第 num 次出现的值...............................................................................................5
'3.函数作用:返回当个人工资薪金所得为 2000 元(起征点为 850 元)时的应纳个人所得税税额...........6
'4.函数作用:从形如"123545ABCDE"的字符串中取出数字......................................................................7
'5.函数作用:从形如"ABCD12455EDF"的字符串中取出数字...................................................................7
'6.函数作用:按 SplitType 取得 RangeName 串值中的起始位置.................................................................8
'7.函数作用:将金额数字转成中文大写...........................................................................................................9
'8.函数作用:计算某种税金.............................................................................................................................14
'9.函数作用:人民币大、小写转换.................................................................................................................15
'10.函数作用:查汉字区位码...........................................................................................................................16
'11.函数作用:把公元年转为农历...................................................................................................................17
'12.函数作用:返回指定列数的列标...............................................................................................................39
'13.函数作用:用指定字符替换某字符...........................................................................................................39
'14.函数作用:从右边开始查找指定字符在字符串中的位置......................................................................40
'15.函数作用:从右边开始查找指定字符在字符串中的位置......................................................................40
'16.函数作用:计算工龄...................................................................................................................................41
'17.函数作用:计算日期差,除去星期六、星期日......................................................................................42
'18.函数作用:将英文字反转的自定函数......................................................................................................42
'19.函数作用:计算个人所得税.......................................................................................................................43
'20.函数作用:一个能计算是否有重复单元的函数......................................................................................44
'21.数字金额转中文大写................................................................................................................................44
'22.函数作用:将数字转成英文.......................................................................................................................46
'23.函数作用:人民币大小写转换...................................................................................................................49
'24.函数作用:获取区域颜色值.......................................................................................................................50
'25.函数作用:获取活动工作表名...................................................................................................................50
'26.函数作用:获取最后一行行数...................................................................................................................50
'27.函数作用:判断是否连接在线...................................................................................................................51
'28.函数作用:币种转换...................................................................................................................................51
'29.函数作用:检验工作表是否有可打印内容..............................................................................................52
'30.函数作用:查找一字符串(withinstr)在另一字符串中(findstr1)中某一次(startnum)出现时的位置,返
回零表示没找到。..........................................................................................................................................54
'31.函数作用:增加文件路径最后的“\”符号..................................................................................................55
'32.函数作用:计算所得税...............................................................................................................................55
'33.函数作用:从工作表第一行的标题文字以数字形式返回所在列号......................................................55
'34.函数作用:在多个工作表中查找一个范围内符合某个指定条件的项目对应指定范围加总求和......56
'35.函数作用:返回 Column 英文字...............................................................................................................57
'36.函数作用:查找指定列名的列数...............................................................................................................57
'37.函数作用:文字格式的时间(分:秒)转化为数字格式(秒)........................................................................58
'38.函数作用:将"hh:mm:ss"格式的时分秒数转换成秒数...........................................................................59
'39.函数作用:金额中文大写转数字...............................................................................................................59
'40.函数作用:把角度转为度秒分、弧度等显示..........................................................................................60
'41.函数作用:身份证号码侦测.......................................................................................................................61
'42.函数作用:显示公式...................................................................................................................................62
'43.函数作用:方便财务人员理帐查找...........................................................................................................63
'44.函数作用:数值转换为字符地址...............................................................................................................66
'45.函数作用:字符地址转换为数值...............................................................................................................66
'46.函数作用:等待时间(以秒计算)...........................................................................................................67
'47.函数作用:得到字符串实际的长度(以单字节记)..............................................................................67
'48.函数作用:18 位身份证最后一位有效性验证..........................................................................................68
'49.函数作用:计算符合 maturity condition 的拆解金额...............................................................................69
'50.函数作用:对多个用同一分隔符分隔的待查找元素,逐一在表区域首列内搜索,将返回选定单元
格的值相加,..................................................................................................................................................70
'51.函数作用:根据个人所得税(工资)反算工资数..................................................................................71
'52.函数作用:判断表是否存在.......................................................................................................................71
'53.函数作用:角度转弧...................................................................................................................................72
'54.函数作用:比较相同的字符串...................................................................................................................73
'55.函数作用:对选定的数组进行排序...........................................................................................................73
'56.函数作用:取得指定月份天数...................................................................................................................74
'57.函数作用:排序工作表活页薄...................................................................................................................75
'58.函数作用:统计数组中非重复数据个数..................................................................................................76
'59.函数作用:摘取子字符串...........................................................................................................................76
'60.函数作用:计算 20000 余个汉字的笔画...................................................................................................76
'61.函数作用:删除当前工作表中的全部超连接..........................................................................................78
'62.函数作用:取得相近数据...........................................................................................................................78
'63.函数作用:提取定串中汉字.......................................................................................................................79
'64.函数作用:搜索重复数据(选定范围)........................................................................................................79
'65.函数作用:字符型转数字型.......................................................................................................................79
'66.函数作用:小写人民币转大写人民币......................................................................................................80
'67.函数作用:取得指定月份人星期天个数..................................................................................................81
'68.函数作用:侦测档案是否包含宏...............................................................................................................82
'69.函数作用:获取循环参照单元格...............................................................................................................83
'70.函数作用:创建桌面快捷方式...................................................................................................................83
'71.函数作用:自动建立多级目录...................................................................................................................84
'72.函数作用:统计经筛选后符合条件的记录条数......................................................................................85
'73.函数作用:复制单元格列高与栏宽...........................................................................................................85
'74.函数作用:取消隐藏工作表(包括 vba Project 工程保护的).................................................................86
'75.函数作用:删除单元格自定义名称...........................................................................................................86
'76.函数作用:从文件路径中取得文件名......................................................................................................86
'77.函数作用:取得一个文件的扩展名...........................................................................................................87
'78.函数作用:取得一个文件的路径...............................................................................................................87
'79.函数作用:十进制转二进制.......................................................................................................................88
'80.函数作用:检查一个数组是否为空...........................................................................................................88
'81.函数作用:字母栏名转数字栏名...............................................................................................................89
'82.函数作用:数字栏名转文字栏名...............................................................................................................89
'83.函数作用:判断一件活页夹中是否还有子目录......................................................................................89
'84.函数作用:判断一个文件是否在使用中..................................................................................................90
'85.函数作用:列出档案详细摘要信息...........................................................................................................90
'86.函数作用:获取菜单 ID 编号及名称列表.................................................................................................91
'87.函数作用:状态列动态显示文字...............................................................................................................92
'88.函数作用:取得一个文件的路径 2............................................................................................................92
'89.函数作用:取得一个文件的路径 3............................................................................................................92
'90.函数作用:取得 Activecell 的栏名............................................................................................................93
'91.函数作用:取得单元格中指定字符前的字符..........................................................................................93
'92.函数作用:前单元格指定字符前的字符颜色改成红色..........................................................................93
'93.函数作用:根据数字返回对应的字母列号..............................................................................................94
'94.函数作用:取工作表名字...........................................................................................................................94
'95.函数作用:取消所有隐藏的宏表...............................................................................................................94
'96.函数作用:导出 VBA Project 代码............................................................................................................95
'97.函数作用:导入 VBA Project 代码............................................................................................................95
'98.函数作用:取得汉字拼音的第一个字母..................................................................................................95
'99.函数作用:获取两栏中相同的数据...........................................................................................................98
'100.函数作用:选取当前工作表中公式出错的单元格﹐关返回出错个数................................................99
'101.函数作用:将工作表中最后一列作为页脚打印在每一面页尾............................................................99
'102.函数作用:获取 vbproject 引用项目......................................................................................................100
'103.函数作用:移除 Excel 工作表中的外部数据连接................................................................................100
'104.函数作用:将选择定单元格作成镜像图片..........................................................................................101
'105.函数作用:反选择单元格中的数...........................................................................................................103
'106.函数作用:在 Excel 中加入一个量度尺(以厘米为单位).....................................................................104
'107.函数作用:在 Excel 中加入一个量度尺(以寸为单位).........................................................................107
'108.函数作用:取得一个短文件名的长文件名..........................................................................................109
'109.函数作用:取得临时文件名...................................................................................................................110
'110.函数作用:等用 Shell 调用的程序执行完成后再执行其它程序........................................................110
'111.函数作用:将 Mouse 显示成动画...........................................................................................................111
'112.函数作用:限制 Mouse 移动范围..........................................................................................................112
'113.函数作用:取得当前激活窗品句柄及标题...........................................................................................112
'114.函数作用:取得屏幕分辨率...................................................................................................................113
'115.函数作用:自动建立多级目录...............................................................................................................113
'116.函数作用:将文件长度置零...................................................................................................................114
'117.函数作用:读取 WIN9X / Me 共享文件夹密码....................................................................................114
'118.函数作用:取得预设的打印机及设置预设的打印机..........................................................................117
'119.函数作用:获得当前操作系统的打印机个数及检测打印是否存在..................................................118
'120.函数作用:枚举打印机名称清单...........................................................................................................118
'121.函数作用:读取网络服务器当前时间..................................................................................................120
'122.函数作用:下载文件到指定目录...........................................................................................................122
'123.函数作用:自动映射网络驱动器...........................................................................................................122
'124.函数作用:自动断开网络驱动器...........................................................................................................123
'125.函数作用:连接选定单元格中的内容..................................................................................................124
'126.函数作用:获取一个单元格中有指定字体颜色部份数据..................................................................124
'127.函数作用:对指定文件加 XLS 加密.....................................................................................................125
'128.函数作用:选择指定范围内使用了填充颜色的单元格......................................................................125
'129.函数作用:在特定的区域内查找文本,返回值是包含查找文本的单元格.........................................126
'130.函数作用:返回特定区域中最大值的地址..........................................................................................127
'131.函数作用:删除表格中使用范围内的所有空白单元格......................................................................127
'132.函数作用:返回数组中有多少个指定的字符串..................................................................................128
'133.函数作用:返回当前工作表中引用了指定的单元的地址..................................................................129
'134.函数作用:获取 Excel 中字型列表........................................................................................................129
'135.函数作用:获取一个字符串中有多少个数字字符..............................................................................130
'136.函数作用:在 Excel 中对多列进行填充................................................................................................130
'137.函数作用:对选定的范围进行数据填充(忽略单元格格式)..........................................................130
'138.函数作用:VBA Project 加密及解密.....................................................................................................131
'139.函数作用:列出收藏夹中的网址...........................................................................................................132
'140.函数作用:计算两个日期之间相隔的年份,比如年龄,工龄等.可计算从 1000 年 01 月 01 日起的日期
........................................................................................................................................................................133
'141.函数作用:从字符串提取纯数字...........................................................................................................134
'142.函数作用:将一个数组按升序排列......................................................................................................135
'143.函数作用:将一个数组按降序排列......................................................................................................135
'144.函数作用:删除空白列...........................................................................................................................136
'145.函数作用:判断工作表是否为空白......................................................................................................137
'146.函数作用:将数据按类分到不同工作薄..............................................................................................137
'147.函数作用:单元格内数据排序...............................................................................................................138
'148.函数作用:对多栏排序...........................................................................................................................138
'149.函数作用:返回计算公式的值 [,值的计算公式].................................................................................139
'150.函数作用:把第一列=某个值对应的第二列的内容连在一起,并用、隔开....................................140
'151.函数作用:取得系统使用模式...............................................................................................................141
'152.函数作用:计算机注销/关机/重启........................................................................................................141
'153.函数作用:更改计算机名称...................................................................................................................142
'154.函数作用:从 n 位开始取出字符串中的汉字、英文字母、数字......................................................142
'155.函数作用:在指定列中寻找含有指定字符串的单元格,并将符合条件的单元格标为红色,并将
对应的下一列单元格赋值为 1。.................................................................................................................143
'156.函数作用:清除字符串中的空格...........................................................................................................143
'157.函数作用:查找合并单元格位置...........................................................................................................144
'158.函数作用:阴阳历转换和阴阳历生日..................................................................................................144
'159.函数作用:利用数组和 Substitute 来替换某字符.................................................................................148
'160.函数作用:一键创建斜线表头...............................................................................................................149
'161.函数作用:自动获取指定月的工作日..................................................................................................150
正文
'################################################################
'1.函数作用:返回 Column 英文字
'################################################################
Function ColLetter(ColNumber As Integer) As String
On Error GoTo Errorhandler
ColLetter = Left(Cells(1, ColNumber).Address(0, 0), 1 - (ColNumber
> 26))
Exit Function
Errorhandler:
MsgBox "Error encountered, please re-enter "
End Function
'################################################################
'2.函数作用:查询某一值第 num 次出现的值
' 参数说明:Value1:查询引用的数值;
' Range1:查询区域;
' 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
剩余63页未读,继续阅读
资源评论
- qq_364611192018-01-25不错的东西
chrisorfk
- 粉丝: 0
- 资源: 2
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功