excel中161个VBA_自定义函数(超级实用)(精)
目录 '1.函数作用：返回 Column 英文字 (9)
'2.函数作用：查询某一值第num 次出现的值................9 '3.函数作用：返回当个人工资薪金所得为2000元(起征点为850元时的应纳个人所得税税额.............................10 '4.函数作用：从形如"123545ABCDE"的字符串中取出数字....11 '5.函数作用：从形如"ABCD12455EDF"的字符串中取出数字...11 '6.函数作用：按SplitType 取得RangeName 串值中的起始位置12 '7.函数作用:将金额数字转成中文大写....................13 '8.函数作用:计算某种税金..............................18 '9.函数作用:人民币大、小写转换........................19 '10.函数作用:查汉字区位码.............................20 '11.函数作用:把公元年转为农历.........................21 '12.函数作用:返回指定列数的列标.......................42 '13.函数作用:用指定字符替换某字符.....................43 '14.函数作用:从右边开始查找指定字符在字符串中的位置...43 '15.函数作用:从右边开始查找指定字符在字符串中的位置...44 '16.函数作用:计算工龄.................................44 '17.函数作用:计算日期差，除去星期六、星期日.. (45)
'18.函数作用:将英文字反转的自定函数 (46)
'19.函数作用:计算个人所得税...........................46 '20.函数作用:一个能计算是否有重复单元的函数...........47 '21.数字金额转中文大写................................48 '22.函数
作用:将数字转成英文...........................49 '23.函数作用:人民币大小写转换.........................52 '24.函数作用:获取区域颜色值...........................53 '25.函数作用:获取活动工作表名.........................53 '26.函数作用:获取最后一行行数. (54)
'27.函数作用:判断是否连接在线.........................54 '28.函数作用:币种转换.................................54 '29.函数作用:检验工作表是否有可打印内容...............55 '30. 函数作用:查找一字符串(withinstr在另一字符串中(findstr1中某一次(startnum出现
时的位置，返回零表示没找到。..................................................57 '31.函数作用:增加文件路径最后的“\”符号..............58 '32.函数作用:计算所得税...............................58 '33.函数作用:从工作表第一行的标题文字以数字形式返回所在列号..................................................58 '34.函数作用:在多个工作表中查找一个范围内符合某个指定条件的项目对应指定范围加总求和..........................59 '35.函数作用:返回
Column 英文字.......................60 '36.函数作用:查找指定列名的列数.. (60)
'37.函数作用:文字格式的时间(分:秒转化为数字格式(秒..61
'38.函数作用:将"hh:mm:ss"格式的时分秒数转换成秒数.....62 '39.函数作用:金额中文大写转数字.......................62 '40.函数作用:把角度转为度秒分、弧度等显示.............63 '41.函数作用:身份证号码侦测...........................64 '42.函数作用:显示公式.................................65 '43.函数作用:方便财务人员理帐查找.....................66 '44.函数作用:数值转换为字符地址.......................68 '45.函数作用:字符地址转换为数值.......................69 '46.函数作用:等待时间（以秒计算）.....................69 '47.函数作用:得到字符串实际的长度（以单字节记）. (70)
'48.函数作用:18位身份证最后一位有效性验证 (70)
'49.函数作用:计算符合maturity condition的拆解金额....72 '50.函数作用:对多个用同一分隔符分隔的待查找元素，逐一在表区域首列内搜索，将返回选定单元格的值相加，............72 '51.函数作用:根据个人所得税（工资）反算工资数.........73 '52.函数作用:判断表是否存在...........................74 '53.函数作用:角度转弧.................................74 '54.函数作用:比较相同的字符串.........................75 '55.函数作用:对选定的数组进行排序.....................76 '56.函数作用:取得指定月份天数.........................77 '57.函数作用:排序工作表活页薄.........................77 '58.函数作用:统计数组中非重复数据个数.................78 '59.函数作用:摘取子字符串.. (79)
'60.函数作用:计算20000余个汉字的笔画.................79 '61.函数作用:删除当前工作表中的全部超连接.............80 '62.函数作用:取得相近数据.............................81 '63.函数作用:提取定串中汉字...........................81 '64.函数作用:搜索重复数据(选定范围...................81 '65.函数作用:字符型转数字型...........................82 '66.函数作用:小写人民币转大写人民币...................83 '67.函数作用:取得指定月份人星期天个数.................84 '68.函数作用:侦测档案是否包含宏.......................84 '69.函数作用:获取循环参照单元格.......................85 '70.函数作用:创建桌面快捷方式. (86)
'71.函数作用:自动建立多级目录.........................86 '72.函数作用:统计经筛选后符合条件的记录条数...........87 '73.函数作用:复制单元格列高与栏宽.....................87 '74.函数作用:取消隐藏工作表（包括vba Project工程保护的88 '75.函数作用:删除单元格自定义名称.....................88 '76.函数作用:从文件路径中取得文件名...................89 '77.函数作用:取得一个文件的扩展名.....................89 '78.函数作用:取得一个文件的路径.......................90 '79.函数作用:十进制转二进制...........................90 '80.函数作用:检查一个数组是否为空.....................90 '81.函数作用:字母栏名转数字栏名.......................91 '82.函数作用:数字栏名转文字栏名.. (91)
'83.函数作用:判断一件活页夹中是否还有子目录...........92 '84.函数作用:判断一个文件是否在使用中.................92 '85.函数作用:列出档案详细摘要信息 (93)
'86.函数作用:获取菜单ID 编号及名称列表................93 '87.函数作用:状态列动态显示文字.. (94)
'88.函数作用:取得一个文件的路径2 (94)
'89.函数作用:取得一个文件的路径3 (95)
'90.函数作用:取得Activecell 的栏名....................95 '91.函数作用:取得单元格中指定字符前的字符.............95 '92.函数作用:前单元格指定字符前的字符颜色改成红色.....95 '93.函数作用:根据数字返回对应的字母列号...............96 '94.函数作用:取工作表名字.............................96 '95.函数作用:取消所有隐藏的宏表.. (97)
'96.函数作用:导出VBA Project代码 (97)
'97.函数作用:导入VBA Project代码.....................97 '98.函数作用:取得汉字拼音的第一个字母.................98 '99.函数作用:获取两栏中相同的数据....................100 '100.函数作用:选取当前工作表中公式出错的单元格﹐关返回出错个数...............................................101 '101.函数作用:将工作表中最后一列作为页脚打印在每一面页尾101 '102.函数作用:获取vbproject 引用项目.................102 '103.函数作
用:移除Excel 工作表中的外部数据连接.......103 '104.函数作用:将选择定单元格作成镜像图片. (103)
'105.函数作用:反选择单元格中的数.....................105 '106.函数作用:在Excel 中加入一个量度尺(以厘米为单位.106 '107.函数作用:在Excel 中加入一个量度尺(以寸为单位...109 '108.函数作用:取得一个短文件名的长文件名.............111 '109.函数作用:取得临时文件名.........................112 '110.函数作用:等用Shell 调用的程序执行完成后再执行其它程序...................................................112 '111.函数作用:将Mouse 显示成动画.....................113 '112.函数作用:限制Mouse 移动范围.....................114 '113.函数作用:取得当前激活窗品句柄及标题.............114 '114.函数作用:取得屏幕分辨率.........................115 '115.函数作用:自动建立多级目录.......................115 '116.函数作用:将文件长度置零.........................116 '117.函数作用:读取WIN9X / Me共享文件夹密码..........116 '118.函数作用:取得预设的打印机及设置预设的打印机.....119 '119.函数作用:获得当前操作系统的打印机个数及检测打印是否存在.................................................120 '120.函数作用:枚举打印机名称清单.....................120 '121.函数作用:读取网络服务器当前时间.................122 '122.函数作用:下载文件到指定目录.....................123 '123.函数作用:自动映射网络驱动器.....................124 '124.函数作用:自动断开网络驱动器.....................125 '125.函数作用:连接选定单元格中的内容.. (125)
'126.函数作用:获取一个单元格中有指定字体颜色部份数据.126 '127.函数作用:对指定文件加XLS 加密...................126 '128.函数作用:选择指定范围内使用了填充颜色的单元格...127 '129.函数作用:在特定的区域内查找文本,返回值是包含查找文本的单元格...........................................127 '130.函数作用:返回特定区域中最大值的地址.............128 '131.函数作用:删除表格中使用范围内的所有空白单元格...129 '132.函数作用:返回数组中有多少个指定的字符串.........129 '133.函数作用:返回当前工作表中引用了指定的单元的地址.130 '134.函数作用:获取Excel 中字型列表...................131 '135.函数作用:获取一个字符串中有多少个数字字符.......131 '136.函数作用:在Excel 中对多列进行填充...............131 '137.函数作用:对选定的范围进行
数据填充（忽略单元格格式）132 '138.函数作用:VBA Project加密及解密................. 132 '139.函数作用:列出收藏夹中的网址.....................133 '140.函数作用:计算两个日期之间相隔的年份,比如年龄,工龄等.可计算从1000年01月01日起的日期....................134 '141.函数作用:从字符串提取纯数字.....................135 '142.函数作用:将一个数组按升序排列...................136 '143.函数作用:将一个数组按降序排列...................137 '144.函数作用:删除空白列.............................137 '145.函数作用:判断工作表是否为空白...................138 '146.函数作用:将数据按类分到不同工作薄 (138)
'147.函数作用:单元格内数据排序.......................139 '148.函数作用:对多栏排序.............................140 '149.函数作用:返回计算公式的值 [,值的计算公式]. (140)
'150.函数作用:把第一列=某个值对应的第二列的内容连在一起，并用、隔开...........................................141 '151.函数作用:取得系统使用模式.. (142)
'152.函数作用:计算机注销/关机/重启...................142 '153.函数作用:更改计算机名称.........................143 '154.函数作用:从n 位开始取出字符串中的汉字、英文字母、数字...................................................143 '155.函数作用:在指定列中寻找含有指定字符串的单元格，并将符合条件的单元格标为红色，并将对应的下一列单元格赋值为1。..................................................... 144 '156.函数作用:清除字符串中的空格.....................145 '157.函数作用:查找合并单元格位置.....................145 '158.函数作用:阴阳历转换和阴阳历生日.................145 '159.函数作用:利用数组和Substitute 来替换某字符......149 '160.函数作用:一键创建斜线表头.......................150 '161.函数作用:自动获取指定月的工作日.. (151)
正文
'################################################################ '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, B yVal 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, Col
Exit For
End If
ElseIf IsEmpty (D Then
Exit For
End If
Next
If v1 = "" Then v1 = "not"
MyFind = v1
End Function
'################################################################
'3. 函数作用：返回当个人工资薪金所得为2000元(起征点为850元时的应纳个人所得税税额 ' 语法：Grsds(bsc, mysala
' 参数说明：bsc: 必选项，为起征点，包括税法规定的工资基数800元加上允许税前扣除的合理费用;
' mysala: 必选项，为人个工资薪金所得。
' 示例：Grsds(850, 20000 =
'################################################################
Function Grsds(bsc As Double, 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 ‐ bsc * 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 ‐ 1375,
2
Case Is <= bsc + 60000
语文七年级下册总复习资料
七年级下册语文字词总复习
七年级下册语文文章内容总复习
七年级下册语文文言文总复习
七年级下册语文文学常识总复习
七年级下册语文古诗文默写总复习
七年级下册语文综合性学习总复习
七年级下册语文名著导读总复习
七年级下册语文字词总复习
第一单元:
攒(cuán 拗（ǎo）确凿（záo）菜畦（qí）桑葚（shèn ）轻捷（jié）蟋蟀（xī shuài）臃肿（yōnɡ zhǒnɡ）相宜（yí）书塾（shú）蝉蜕（tuì）人迹罕至（jì hǎn）人声鼎沸（dǐnɡ）斑蝥（máo）窍（qiào）覆盖
（fù）收敛（liǎn ）脑髓（nǎo suǐ）秕谷（bǐ ɡǔ）鉴赏（jiàn shǎnɡ）肿胀（zhànɡ）叮嘱（dīnɡ zhǔ）恐惧（kǒnɡ jù）骊歌（lí）花圃
（pǔ ）耻笑（chǐ）玉簪花（zān）衣襟（jīn ）掸子（dǎn zǐ）徘徊（pái huái）栅栏（zhà lán）蒲公英（pú）丑陋（lòu）讪笑（shàn）嫉妒（jí dù）啄（zhuó）吐绶鸡（shòu）篱笆（lí bā）沼泽（zhǎo zé）沮丧（jǔ sànɡ）嘎（ɡā）泥泞（nìnɡ）骇人（hài）简陋（lòu）铰链（jiǎo liàn）冰雹（báo）木屐（jī）飕（sōu）佣人（yònɡ）灌木（ɡuàn）恭敬（ɡōnɡ jìnɡ）火钳（qián）弥漫（mí màn）瞬息（shùn）幽寂（jì）延绵（yán mián ）荒草萋萋（huānɡ qī）涉足（shè）伫立（zhù）足迹（jì）路径（jìnɡ）忧郁（yōu yù）方仲永（zhònɡ）皆（jiē ）邑（yì）扳（pān ）环谒(yè泯(mǐn
第二单元：
颠（diān）澎湃（pénɡ pài）屏障（pínɡ zhànɡ）哺育（bǔ）九曲连环（qū）气魄（pò）郝（hǎo ）叟（sǒu）哽（ɡěnɡ）懊悔（ào huǐ）祈祷（qí dǎo）捂（wǔ）惩罚（chénɡ）逼狭（bī xiá）崎岖（qí qū）阻抑（zǔ yì）亦复如是(yì fù rú shì浊流(zhuó雄健(xiónɡ jiàn 险峻( jùn）炽痛(chì tònɡ 嗥鸣(háo mínɡ 斑斓(bān lán 谰语(lán 怪诞(dàn 亘古(ɡèn 默契(mò qì田垄(lǒnɡ 蚱蜢(zhà měnɡ 污秽(huì泛滥(làn 呻吟(shēn yín 镐头
(ɡǎo碾(niǎn辘(lù杼(zhù鞍鞯(ān jiān 辔头(pèi 啾(jiū 朔(shuò柝(tuò鬓(bìn 戎(rónɡ
第三单元：
宰割（zǎi ɡē）筹划（chóu）彷徨（pánɡ huánɡ）仰慕（yǎnɡmù）可歌可泣（qì）鲜为人知（xiǎn）当之无愧（kuì）锋芒毕露（lù）家喻户晓妇孺皆知（rú）马革裹尸（ɡuǒ）鞠躬尽瘁死而后已
（ɡōnɡ cuì yǐ）至死不懈（xiè）元勋（xūn）孕育（yùn）黯然神伤（àn）曛（xūn）铤（tǐng）衰微(shuāi wēi 赫然(hè 迭起(dié锲而不舍(qiè 兀兀穷年(wù沥尽心血(lì xuè 潜心贯注(qián 迥乎不同(jiǒnɡ一反既往(fǎn jì慷慨淋漓(kānɡ kǎi lín lí 气冲斗牛(dǒu 卓越（zhuó）浠水（xī）弥高（mí）炯炯（jiǒnɡ）窥视（kuī）
无暇（xiá）衙门（yá）重荷（hè）深邃（suì）踌躇（c hóu chú）磐石（pán）喧嚣（xuān xiāo）沉郁（yù）应声而至（yìnɡ shēnɡ）一拍即合（jí）义愤填膺（yīnɡ）魅力（mèi）琐事（suǒ）滑稽
（jī）荒谬（miù）头颅（lú）轮廓（kuò）钦佩（qīn）白皙
（xī）脚踝（huái）卿（qīnɡ）邪（yé）涉猎（shè liè）孰（shú）刮目相待（ɡuā）
第四单元：
惮（dàn）踱（duó）归省（xǐng）行辈（hánɡ）撺掇（cuān duō）凫水（fú）潺（chán ）倘(tǎnɡ絮叨（xù dāo ）怠慢（dài）蕴藻
（yùn zǎo）懈（xiè）屹立（yì）舀（yǎo）吁气（xū）家眷
（juàn）楫（jí）亢奋（kànɡ）晦暗（huì）羁绊（jī）蓦然（mò）冗杂（rǒnɡ）烧灼（zhuó）恬静（tián）闭塞（sāi）磅礴（pánɡ
bó）辐射（fú）戛然而止（jiá）撇（piě ）蘸（zhàn ）惬意
（qiè）参差不齐（cēn cī）水门汀（tīnɡ）咿哑（yī yǎ）静穆（mù）颦蹙（pín cù ）粲然（càn）嗔视（chēn）低回婉转（wǎn zhuǎn ）叱咤风云（chì zhà）浑身解数（xiè）尽态极妍（yán）惆怅（chóu chànɡ）少顷（shǎo qǐnɡ）犬吠（quǎn fèi ）呓语（yì yǔ）叱（chì ）曳屋许许声（yè hǔ）
第五单元：
拽（zhuài）无垠（yín ）癫狂（diān）凛冽（lǐn liè）吞噬（shì）销蚀（xiāo shí）羸弱（léi ruò ）步履（lǚ）告罄（qìnɡ）遗孀（yí shuānɡ）坚持不懈（xiè）精疲力竭（jié）闷闷不乐（mèn）毛骨悚然（sǒnɡ）怏怏不乐（yànɡ）姗姗来迟（shān）忧心忡忡
（chōnɡ）疲惫不堪（pí bèi bù kān）畏缩不前（wèi）鲁莽大胆
（mǎnɡ）语无伦次（lún）与其……毋宁（yǔ qí……wú nìnɡ）战栗（zhàn lì ）角逐（jué）履行（lǚ）充沛（pèi）贮藏（zhù）雪橇（qiāo）胆怯（qiè）踉踉跄跄（liànɡ qiānɡ）皑皑（ái）泅
（qiú）作践（zuò jiàn）沮丧（jǔ sànɡ）斫痕（zhuó hén ）抵御（dǐ yù）愁闷（mèn）冻饿之虞（yú）铁锹（qiāo ）剔出（tī）砭骨（biān）履践（lǚ jiàn）崔巍（cuī wēi）养精蓄锐（xù ruì）缭绕（liáo rào ）体力不济（jì）凄厉（qī lì）滞留（zhì）窒息（zhì）阴霾（mái）孜孜不倦（zī）哀悼（āi dào ）锤炼（chuí liàn）企求（qǐ）凝聚（nínɡ）拓荒（tuó huānɡ）弥补（mí bǔ）不朽（bù xiǔ）盘盂（pán yú）沧沧凉凉（cānɡ liánɡ）
第六单元：
巢（cháo）瞅（chǒu）雏（chú）呷（xiā）垂蔓（chuí màn）眼睑（jiǎn）眸子（móu）流泻（liú xiè）斑斑驳驳（bān bó）生意葱茏（shēnɡ yì cōnɡ lónɡ）细腻（nì）信赖（lài）肌腱（jī jiàn）逞能（chěnɡ）恍惚（huǎnɡ hū）甜腻（nì）娴熟（xián）进退维谷
（wéi）略胜一筹（lüè chóu）眼花缭乱（liáo）狩猎（shòu）剖开（pōu）对峙（zhì）姑妄（ɡū wànɡ）湛蓝（zhàn）苍穹（cānɡ
qiónɡ）铰（jiǎo）劝诱（yòu）抽搐（chù）沟壑（hè）不羁（jī）叽叽喳喳（jī zhā）呵斥（hē chì）咆哮（páo xiào）掠（lüě）觑
（qù）鬣（liè）剽悍（piāo hàn）疆场（jiānɡ）驯良（xùn）勇毅（yǒnɡ yì）窥伺（kuī sì）疮痍（chuānɡ yí）枉然（wǎnɡ rán）阔绰（kuò chuō）观瞻（zhān）妍丽（yán lì）庇荫（bì yìn）遒劲（qiú jìng）犷野（ɡuǎnɡ）畸形（jī）颚骨（è）慷慨以赴（kānɡ kǎi yǐ
fù）相得益彰（zhānɡ）驾驭（jià yù）束缚（shù fù）鞍辔（ān
pèi）侮辱（wǔ rǔ）妒忌（dù jì）眷恋（juàn）缀（zhuì）窘
（jiǒnɡ）苫蔽（shàn bì）倚（yǐ）弛（chí）耽（dān）瞑（mínɡ）暇（xiá）劈（pī）毙（bì）尻（kāo）寐（mèi）诱（yòu）黠（xiá）顷刻（qǐnɡ kè）
词语解释：
人迹罕至——少有人来。迹，足迹、脚印。罕，稀少。
人声鼎沸——形容人声喧闹。鼎，古代的一种铜铸的锅，一般是三足两耳。沸，水开。鼎沸，本意是锅里的水烧开了，发出响声。
高枕而卧——与“高枕无忧”同义，垫高枕头、无忧无虑地睡觉。
兴高采烈——兴致高，情绪热烈。
来势汹汹——形容声势盛大的样子。
恭恭敬敬——对尊长或宾客严肃有礼貌。
亦复如是——也是像这样。
可歌可泣——值得歌颂，使人感动得流泪，指悲壮的事迹使人非常感动。
鲜为人知——很少有人知道。鲜，少。
至死不懈——到死都不松懈。形容坚持到底。
鞠躬尽瘁，死而后已——兢兢业业，不辞辛劳，知道死了为止，指辛勤地贡献自己的一切。
当之无愧——当得起某种荣誉或称号，没有愧色。
家喻户晓——每家每户都知道，都明白。
锋芒毕露——比喻锐气和才干全部显露出来。
截然不同——形容完全不同，有很大的差别。
妇孺皆知——连妇女和小孩都知道了，形容人人都知道。
马革裹尸——用马皮把尸体包裹起来，指军人战死于沙场。
层出不穷——接连不断地出现，没有穷尽。
锲而不舍——镂刻不停，比喻有恒心，有毅力。锲，刻。
兀兀穷年——辛辛苦苦地一年到头都这样做。兀兀，劳苦的样子。穷年，终年，一年到头。
目不窥园——西汉董仲舒专心读书，“三年目不窥园”。后世用来形容埋头读书。
迥乎不同——很不一样。迥，差得远。
一如既往——与过去完全不一样。
气冲斗牛——形容气势之盛可以直冲云霄。斗、牛，星宿名，泛指天空。
杂乱无章——又多又乱，没有条理。
博学多识——有广博精深的学问和多方面的知识。
一拍即合——一打拍子就合上了曲子的节奏，比喻双方很容易一致。
忘乎所以——由于过度兴奋或骄傲自满而忘记了一切。
义愤填膺——胸中充满了正义的愤恨。膺，胸。
叹为观止——赞美看到的事物好到了极点。
戛然而止——声音突然终止。
大彻大悟——佛教用语，彻底醒悟的意思。
惊心动魄——形容使人感受很深，震动很大。
本色当行——做本行的事，成绩十分显著。
叱咤风云——形容威力极大。
尽态极妍——使仪态和丽质最充分地显示出来。
息息相通——呼吸想关连，比喻关系密切。
毛骨悚然——形容十分恐惧。悚然，恐惧的样子。
泱泱不乐——形容不高兴或不满意的神情。
语无伦次——话讲得很乱，没有条理。
姗姗来迟——形容来得很晚。姗姗，形容走路缓慢从容的姿态。
冻饿之虞——受冻、挨饿的忧虑。
养精蓄锐——使身心得到滋补或休息，以增进精力或恢复健康。
迫不及待——急迫得不能在等待。
斑斑驳驳——原指一种颜色中杂有别的颜色，这里有颜色深浅不一的意思。
生意葱茏——形容草木生机盎然，茂盛青翠。
进退维谷——无论是进还是退，都是处在困境之中。维，是。谷，穷尽，指困境。
目瞪口呆——形容受惊而而愣住的样子。
力不从心——心里想做，可是力量办不到或能力够不上。
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 <= bsc + 100000
Grsds = Application.WorksheetFunction. Round ((mysala ‐ bsc * 0.
4 ‐ 10375,
2
迥然不同——形容差别很大，一点也不同。迥，差得远。
眼花缭乱——眼睛看见复杂纷繁的东西而感到迷乱。
苍苍莽莽——无边无际的样子。
慷慨以赴——毫无私心，毫不吝惜得前往。
mydata = Val(Mid (mystring, i, Len (mystring ‐ i + 1
End Function
'################################################################ '6. 函数作用：按SplitType 取得RangeName 串值中的起始位置
'################################################################
'1:单元格，2:行号，3:列号，4:范围
Public Const SINGLE_CELL = 1
Public Const ROW_NUM = 2
Public Const COL_NUM = 3
Public Const RANGE_ALL = 4
七年级下册语文文章内容总复习
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 (RangeName, VBA. Len (RangeName ‐ VBA. InStr
(1, RangeName, "$", RangeName
If Not IsNumeric (SplitRangeName Then
SplitRangeName = ""
MsgBox "" , vbInformation, ""
End If
《从百草园到三味书屋》用“从……到……”点明了作者回忆童年生活的地点和范围，同时也告诉我们文章前后两部分的
SplitRangeName = ""
MsgBox "" , vbInformation, ""
End If
Case RANGE_ALL
SplitRangeName = "$" & RangeName
End Select
End If
End Function
'################################################################ '7. 函数作用:将金额数字转成中文大写
'################################################################
Function Money(Number As Currency
Dim i, j, k, m, leng As Integer ' 计数器
Dim Zero As Integer ' 连续零标识
Dim Tnumber 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 < ‐99999999 Then MsgBox ("Sorry, 数据超过一亿，暂不处理。"
MsgBox (" 顺便问一下，你真有那么多钱吗？"
Money = "Sorry!"
Else
If (Number = 0 Then
Money = " 零元整"
Else
'*****将负数数字转化正数并更改标识*****
If (Number < 0 Then
Number = Number * ( ‐1
Flag = False
End If
'*****小数点后超过两位，则截断*****
If (((Number ‐ Int (Number * 100 ‐ Int ((Number ‐ Int (Number * 100 > 0 Then
Tnumber = CStr (Int (Number * 100 / 100
Else
Tnumber = CStr (Number
End If
'*****处理四舍五入*****
If (((Number ‐ Int (Number * 100 ‐ Int ((Number ‐ Int (Number * 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
'*****定义所需字符*****
Excel(ESteel)自定义函数源代码
Public Function DJ(钢筋直径As Single, 最小搭接直径As Single, 搭接类别As String, 机械接头As String, 锚固As Single) Dim x As Integer, X1 As Integer, X2 As Integer, a As Integer If 钢筋直径> 0 Then a = 1 Else a = 0 End If If 钢筋直径> 最小搭接直径Then If 机械接头= "双面焊10D" Then DJ = 钢筋直径+ 2 End If If 机械接头= "单面焊5D" Then DJ = 钢筋直径/ 2 + 2 End If If 机械接头= "直螺纹" Then DJ = 0 End If End If If 钢筋直径<= 最小搭接直径Then If 搭接类别= "腰筋G" Then DJ = 钢筋直径* 1.5: x = 1 End If If 搭接类别= "搭接100%" Or 搭接类别= "构造柱" Then DJ = MAX(锚固* 1.6, 30, 0, 0) * a: X1 = 1 End If If 搭接类别= "Q" Or 搭接类别= "Z" Or 搭接类别= "搭接25%" Then DJ = MAX(锚固* 1.2, 30, 0, 0) * a: X2 = 1 End If If x + X1 + X2 = 0 Or 搭接类别= "" Then DJ = MAX(锚固* 1.4, 30, 0, 0) * a End If End If End Function Public Function MG(抗震级别As Single, 钢筋级别As Single, 砼号C As Single, 钢筋直径As Single) Dim j As Single Dim k As Single Dim g As Single If 钢筋直径>= 28 Then If 钢筋级别>= 2 Then j = 1.1 Else j = 1
Excel常用函数详解
计算机二级考试MS_Office应用Excel函数 =公式名称（参数1，参数2，。。。。。） =sum(计算范围) =average(计算范围) =sumifs(求和范围，条件范围1，符合条件1，条件范围2，符合条件2，。。。。。。) =vlookup(翻译对象，到哪里翻译，显示哪一种，精确匹配) =rank(对谁排名，在哪个范围里排名) =max(范围) =min(范围) =index(列范围，数字) =match(查询对象，范围，0) =mid(要截取的对象，从第几个开始，截取几个) =int(数字) =weekda y(日期，2) =if(谁符合什么条件，符合条件显示的内容，不符合条件显示的内容) =if(谁符合什么条件，符合条件显示的内容，if(谁符合什么条件，符合条件显示的内容，不符合条件显示的内容)) SUM函数 简单求和。 函数用法 SUM(number1,[number2],…) =SUM(A1:A5)是将单元格 A1 至 A5 中的所有数值相加； =SUM(A1,A3,A5)是将单元格 A1,A3,A5 中的数字相加。 SUMIFS函数 根据多个指定条件对若干单元格求和。 函数用法 SUMIFS(sum_range, criteria_range1, criteria1, [criteria_range2, criteria2], ...) 1） sum_range 是需要求和的实际单元格。包括数字或包含数字的名称、区域或单元格引用。忽略空白值和文本值。 2) criteria_range1为计算关联条件的第一个区域。 3) criteria1为条件1，条件的形式为数字、表达式、单元格引用或者文本，可用来定义将对criteria_range1参数中的哪些单元格求和。例如，条件可以表示为32、“>32”、B4、"苹果"、或"32"。 4）criteria_range2为用于条件2判断的单元格区域。 5) criteria2为条件2，条件的形式为数字、表达式、单元格引用或者文本，可用来定义将对criteria_range2参数中的哪些单元格求和。 4）和5）最多允许127个区域/条件对，即参数总数不超255个。 VLOOKUP函数 是Excel中的一个纵向查找函数，按列查找，最终返回该列所需查询列序所对应的值。
EXCEL常见基本用法
EXCEL用法大全 2009年11月23日星期一09:31 01、如何在已有的单元格中批量加入一段固定字符？ 例如：在单位的人事资料，在excel中输入后，由于上级要求在原来的职称证书的号码全部再加两位，即要在每个人的证书号码前再添上两位数13，如果一个一个改的话实在太麻烦了，那么我们可以用下面的办法，省时又省力： 1）假设证书号在A列，在A列后点击鼠标右键，插入一列，为B列； 2）在B2单元格写入：="13"&A2后回车； 3）看到结果为13xxxxxxxxxxxxx了吗？鼠标放到B2位置，单元格的下方不是有一个小方点吗，按着鼠标左键往下拖动直到结束。当你放开鼠标左键时就全部都改好了。若是在原证书号后面加13则在B2单元格中写入：=A2&“13”后回车。 02、如何设置文件下拉窗口的最下面的最近运行的文件名个数？ 打开“工具”，选“选项”，再选“常规”，在“最近使用的文件清单”下面的文件个数输入框中改变文件数目即可。若不在菜单中显示最近使用的文件名，则将“最近使用的文件清单”前的复选框去掉即可。 03、在EXCEL中输入如“1-1”、“1-2”之类的格式后它即变成1月1日，1月2日等日期形式，怎么办？ 这是由于EXCEL自动识别为日期格式所造成，你只要点击主菜单的“格式”菜单，选“单元格”，再在“数字”菜单标签下把该单元格的格式设成文本格式就行了。 04、在EXCEL中如何使它象WORD一样的自动定时保存文件？ 点击“工具”菜单“自动保存”项，设置自动保存文件夹的间隔时间。如果在“工具”菜单下没有“自动保存”菜单项，那么执行“工具”菜单下“加载宏...”选上“自动保存”，“确定”。然后进行设置即可。 05、用Excel做多页的表格时，怎样像Word的表格那样做一个标题，即每页的第一行（或几行）是一样的。但是不是用页眉来完成？ 在EXCEL的文件菜单－页面设置－工作表－打印标题；可进行顶端或左端标题设置，通过按下折叠对话框按钮后，用鼠标划定范围即可。这样Excel就会自动在各页上加上你划定的部分作为表头。 06、在Excel中如何设置加权平均？ 加权平均在财务核算和统计工作中经常用到，并不是一项很复杂的计算，关键是要理解加权平均值其实就是总量值（如金额）除以总数量得出的单位平均值，而不是简单的将各个单位值（如单价）平均后得到的那个单位值。在Excel中可设置公式解决（其实就是一个除法算式），分母是各个量值之和，分子是相应的各个数量之和，它的结果就是这些量值的加权平均值。 07、如果在一个Excel文件中含有多个工作表，如何将多个工作表一次设置成同样的页眉和页脚？如何才能一次打印多个工作表？ 把鼠标移到工作表的名称处（若你没有特别设置的话，Excel自动设置的名称是“sheet1、sheet2、sheet3.......”），然后点右键，在弹出的菜单中选择“选择全部工作表”的菜单项，这时你的所有操作都是针对全部工作表了，不管是设置页眉和页脚还是打印你工作表。 08、EXCEL中有序号一栏，由于对表格进行调整，序号全乱了,可要是手动一个一个改序号实在太慢太麻烦，用什么方法可以快速解决？ 如果序号是不应随着表格其他内容的调整而发生变化的话，那么在制作EXCEL表格时就应将序号这一字段与其他字段分开，如在“总分”与“排名”之间空开一列，为了不影响显示美观，可将这一空的列字段设为隐藏，这样在调整表格（数据清单）的内容时就不会影响序号了。
(完整版)excel-公式大全-包含所有excel函数(经典版),推荐文档
Excel函数大全 第一章：统计函数 1.AVEDEV 用途：返回一组数据与其平均值的绝对偏差的平均值，该函数可以评测数据(例如学生的某科考试成绩)的离散度。 语法：AVEDEV(number1，number2，...) 参数：Number1、number2、...是用来计算绝对偏差平均值的一组参数，其个数可以在1～30个之间。 实例：如果A1=79、A2=62、A3=45、A4=90、A5=25，则公式“=AVEDEV(A1:A5)”返回20.16。 2.AVERAGE 用途：计算所有参数的算术平均值。 语法：AVERAGE(number1，number2，...)。 参数：Number1、number2、...是要计算平均值的1～30个参数。 实例：如果A1:A5区域命名为分数，其中的数值分别为100、70、92、47和82，则公式“=AVERAGE(分数)”返回78.2。 3.AVERAGEA 用途：计算参数清单中数值的平均值。它与AVERAGE函数的区别在于不仅数字，而且文本和逻辑值(如TRUE和FALSE)也参与计算。 语法：AVERAGEA(value1，value2，...) 参数：value1、value2、...为需要计算平均值的1至30个单元格、单元格区域或数值。 实例：如果A1=76、A2=85、A3=TRUE，则公式“=AVERAGEA(A1:A3)”返回54(即76+85+1/3=54)。 4.BETADIST 用途：返回Beta分布累积函数的函数值。Beta分布累积函数通常用于研究样本集合中某些事物的发生和变化情况。例如，人们一天中看电视的时间比率。 语法：BETADIST(x，alpha，beta，A，B) 参数：X用来进行函数计算的值，须居于可选性上下界(A和B)之间。Alpha分布的参数。Beta分布的参数。A是数值x所属区间的可选下界，B是数值x所属区间的可选上界。 实例：公式“=BETADIST(2，8，10，1，3)”返回0.685470581。 5.BETAINV 用途：返回beta分布累积函数的逆函数值。即，如果probability=BETADIST(x，...)，则 BETAINV(probability，...)=x。beta分布累积函数可用于项目设计，在给出期望的完成时间和变化参数后，模拟可能的完成时间。 语法：BETAINV(probability，alpha，beta，A，B) 参数：Probability为Beta分布的概率值，Alpha分布的参数，Beta分布的参数，A数值x所属区间的可选下界，B数值x所属区间的可选上界。 实例：公式“=BETAINV(0.685470581，8，10，1，3)”返回2。 30.GEOMEAN 用途：返回正数数组或数据区域的几何平均值。可用于计算可变复利的平均增长率。 语法：GEOMEAN(number1，number2，...)
Excel自定义函数157个(精)
自定义函数功能 查看代码： 自定义函数取值范围如何设定 相当于VLOOKUP 吧，查询某一值第num 次出现的值 返回指定列数的列标 用指定字符替换某字符 从右边开始查找指定字符在字符串中的位置 将20040510数字格式，转换为2004－5－10的日期格式的函数工龄计算： 计算日期差，除去星期六、星期日的自定义函数 這是一個將英文字反轉的自定函數 关于个人所得税的 一个能计算是否有重复单元的函数 试编写数字金额转中文大写的函数 人民币大小写转换函数 获取区域颜色值: 获取活动工作表名的： 显示在“插入函数”对话框的“或选择类别”下拉列表中 复合函数
对工作表的第一列进行各种查询 序数词转换函数 获取最后一行行数的： 判断是否连接在线的函数 查找一字符串(withinstr在另一字符串中 从工作表第一行的标题文字以数字形式返回所在列号多工作表有条件求和 有的时候需要返回多个数值，那就是用返回数组吧Excel 自定义函数返回一组字符串 也来个返回指定列数的列标号自定义函数 返回 Column 英文字 查找指定列名的列数 文字格式的时间(分:秒转化为数字格式(秒 将"hh:mm:ss"格式的时分秒数转换成秒数 试编写金额中文大写转数字函数 身份证号码侦测自定义函数 显示公式的函数 为财务人员理帐查找用的 数值转换为字符地址
字符地址转换为数值 VB 中用的，虽然VBA 中也有一个Application.Wait 功能得到字符串实际的长度（以单字节记） 也做个个人所得税 18位身份证最后一位有效性验证 计算符合maturity condition的拆解金额 相当于多个vlookup 函数相加， 判断表是否存在的函数 我这个是角度转弧度的，以供大家参考 比较相同的字符串 對選定的陣列進行排序 取得指定月份天數 排序工作表活頁薄 統計陣列中非重復數據個數 摘取子字符串自定义函数 根据列表返回列序号 查找某值在某区域第n 次出现时对应列的值 刪除當前工作表中的全部超連接。 取得相近數據
excel常用公式详解
一、数字处理 1、取绝对值 =ABS(数字) 2、取整 =INT(数字) 3、四舍五入 =ROUND(数字,小数位数) 二、判断公式 1、把公式产生的错误值显示为空 公式：C2 =IFERROR(A2/B2,'') 说明：如果是错误值则显示为空，否则正常显示。
2、IF多条件判断返回值 公式：C2 =IF(AND(A2<500,B2='未到期'),'补款','') 说明：两个条件同时成立用AND,任一个成立用OR函数。 三、统计公式 1、统计两个表格重复的内容 公式:B2 =COUNTIF(Sheet15!A:A,A2)
说明：如果返回值大于0说明在另一个表中存在，0则不存在。 2、统计不重复的总人数 公式：C2 =SUMPRODUCT(1/COUNTIF(A2:A8,A2:A8)) 说明:用COUNTIF统计出每人的出现次数，用1除的方式把出现次数变成分母，然后相加。 四、求和公式
1、隔列求和 公式：H3 =SUMIF($A$2:$G$2,H$2,A3:G3) 或 =SUMPRODUCT((MOD(COLUMN(B3:G3),2)=0)*B3:G3)说明：如果标题行没有规则用第2个公式 2、单条件求和 公式：F2 =SUMIF(A:A,E2,C:C) 说明：SUMIF函数的基本用法
3、单条件模糊求和 公式：详见下图 说明：如果需要进行模糊求和，就需要掌握通配符的使用，其中星号是表示任意多个字符，如'*A*'就表示a前和后有任意多个字符，即包含A。
4、多条件模糊求和 公式：C11 =SUMIFS(C2:C7,A2:A7,A11&'*',B2:B7,B11) 说明：在sumifs中可以使用通配符* 5、多表相同位置求和 公式：b2 =SUM(Sheet1:Sheet19!B2) 说明：在表中间删除或添加表后，公式结果会自动更新。 6、按日期和产品求和
excel函数公式大全
excel函数公式大全 类别一:数据库和清单管理函数 DAVERAGE 返回选定数据库项的平均值 DCOUNT 计算数据库中包含数字的单元格的个数 DCOUNTA 计算数据库中非空单元格的个数 DGET 从数据库中提取满足指定条件的单个记录 DMAX 返回选定数据库项中的最大值 DMIN 返回选定数据库项中的最小值 DPRODUCT 乘以特定字段(此字段中的记录为数据库中满足指定条件的记录)中的值DSTDEV 根据数据库中选定项的示例估算标准偏差 DSTDEVP 根据数据库中选定项的样本总体计算标准偏差 DSUM 对数据库中满足条件的记录的字段列中的数字求和 DVAR 根据数据库中选定项的示例估算方差 DVARP 根据数据库中选定项的样本总体计算方差 GETPIVOTDATA 返回存储在数据透视表中的数据 类别二:日期和时间函数 DATEDIF 计算两个日期之间的年、月、日数
DATEVALUE 将文本格式的日期转换为系列数 DAY 将系列数转换为月份中的日 DAYS360 按每年360 天计算两个日期之间的天数 EDATE 返回在开始日期之前或之后指定月数的某个日期的系列数EOMONTH 返回指定月份数之前或之后某月的最后一天的系列数HOUR 将系列数转换为小时 MINUTE 将系列数转换为分钟 MONTH 将系列数转换为月 NETWORKDAYS 返回两个日期之间的完整工作日数 NOW 返回当前日期和时间的系列数 SECOND 将系列数转换为秒 TIME 返回特定时间的系列数 TIMEVALUE 将文本格式的时间转换为系列数 WEEKDAY 将系列数转换为星期 WORKDAY 返回指定工作日数之前或之后某日期的系列数 YEAR 将系列数转换为年 YEARFRAC 返回代表start_date(开始日期)和end_date(结束日期)之间天数的以年为单位的分数DDE 和外部函数CALL 调用动态链接库(DLL) 或代码源中的过程REGISTER.ID 返回已注册的指定DLL 或代码源的注册IDSQL.REQUEST 连接外部
Excel自定义求农历函数――nongli(公历日期,显示序号)
Option Base 1 Dim rq As Integer '日期 Dim y As Date '农历正月月初一的阳历日期 Dim yts As Variant '农历每月的天数 Dim yy(2) As Integer '农历闰月数、阳历闰年数（闰年为1，不闰年为0） Dim nl(3, 385) As String '阳历日期字符串、农历日期字符串、农历闰月字符串 Function NONGLI(glrq As Date, nlr As Integer) Dim X As Integer, i As Integer, k As Integer, n1 As Integer, n2 As Integer X = Year(glrq) If X < 1900 Or glrq > #1/28/2101# Then NONGLI = "？" Exit Function End If '1、将X年的阴阳历等，通过运行程序2，装入数组 If X < 2021 Then Call Array1(X, n1, glrq) If X > 2020 Then Call Array2(X, n1, glrq) '2、查找阳历日期所在数组的序号rq di2bu: rq = 0 If X = 1899 Then rq = Day(glrq)
Else For i = 1 To n1 If nl(1, i) = glrq Then rq = i: Exit For Next i End If '3、填写"农历日期"(包括节日、纪念日) Dim nongli1$, yr$, yuefen$, yf$, rizi$, rz$ Dim jr1 As String, jr2 As String, jr3 As String nongli1 = nl(2, rq)'农历日期以"2014-2-1"或"2014-闰9-1"的形式表示 yr = Strings.Right(nongli1, Strings.Len(nongli1) - 5) '农历日期以"2-1"或"闰9-1"形式表示yuefen = Strings.Left(yr, Strings.InStrRev(yr, "-") - 1) '农历的月份以"2"或"闰9"形式表示rizi = Strings.Right(yr, Strings.Len(yr) - Strings.InStrRev(yr, "-")) '农历的日子以"2"形式表示Dim yuefenB As Variant, yfB As Variant yuefenB = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, "闰2", "闰3", "闰4", "闰5", "闰6", "闰7", "闰8", "闰9", "闰10", "闰11", "闰12") yfB = Array("正月", "二月", "三月", "四月", "五月", "六月", "七月", "八月", "九月", "十月", "冬月", "腊月", "闰二月", "闰三月", "闰四月", "闰五月", "闰六月", "闰七月", "闰八月", "闰九月", "闰十月", "闰冬月", "闰腊月") For i = 1 To 23'农历的月份以汉字形式表示 If yuefen = yuefenB(i) Then yf = yfB(i): Exit For Next i Dim rzB As Variant
EXCEL函数公式大全
excel常用函数公式及技巧搜集（常用的）【身份证信息？提取】 从身份证号码中提取出生年月日 =TEXT(MID(A1,7,6+(LEN(A1)=18)*2),"#-00-00")+0 =TEXT(MID(A1,7,6+(LEN(A1)=18)*2),"#-00-00")*1 =IF(A2<>"",TEXT((LEN(A2)=15)*19&MID(A2,7,6+(LEN(A2)=18)*2),"#-00-00")+0,) 显示格式均为yyyy-m-d。（最简单的公式，把单元格设置为日期格式） =IF(LEN(A2)=15,"19"&MID(A2,7,2)&"-"&MID(A2,9,2)&"-"&MID(A2,11,2),MID(A2,7,4)& "-"&MID(A2,11,2)&"-"&MID(A2,13,2)) 显示格式为yyyy-mm-dd。（如果要求为“1995/03/29”格式的话，将”-”换成”/”即可） =IF(D4="","",IF(LEN(D4)=15,TEXT(("19"&MID(D4,7,6)),"0000年00月00日 "),IF(LEN(D4)=18,TEXT(MID(D4,7,8),"0000年00月00日")))) 显示格式为yyyy年mm月dd日。（如果将公式中“0000年00月00日”改成“0000-00-00”,则显示格式为yyyy-mm-dd） =IF(LEN(A1:A2)=18,MID(A1:A2,7,8),"19"&MID(A1:A2,7,6)) 显示格式为yyyymmdd。 =TEXT((LEN(A1)=15)*19&MID(A1,7,6+(LEN(A1)=18)*2),"#-00-00")+0 =IF(LEN(A2)=18,MID(A2,7,4)&-MID(A2,11,2),19&MID(A2,7,2)&-MID(A2,9,2)) =MID(A1,7,4)&"年"&MID(A1,11,2)&"月"&MID(A1,13,2)&"日" =IF(A1<>"",TEXT((LEN(A1)=15)*19&MID(A1,7,6+(LEN(A1)=18)*2),"#-00-00")) 从身份证号码中提取出性别 =IF(MOD(MID(A1,15,3),2),"男","女") （最简单公式） =IF(MOD(RIGHT(LEFT(A1,17)),2),"男","女") =IF(A2<>””,IF(MOD(RIGHT(LEFT(A2,17)),2),”男”,”女”),) =IF(VALUE(LEN(ROUND(RIGHT(A1,1)/2,2)))=1,"男","女") 从身份证号码中进行年龄判断 =IF(A3<>””,DATEDIF(TEXT((LEN(A3)=15*19&MID(A3,7,6+(LEN(A3)=18*2),”#-00-00”),T ODAY(),”Y”),) =DATEDIF（A1，TODAY（），“Y”） （以上公式会判断是否已过生日而自动增减一岁） =YEAR(NOW())-MID(E2,IF(LEN(E2)=18,9,7),2)-1900 =YEAR(TODAY())-IF(LEN(A1)=15,"19"&MID(A1,7,2),MID(A1,7,4)) =YEAR(TODAY())-V ALUE(MID(B1,7,4))&"岁" =YEAR(TODAY())-IF(MID(B1,18,1)="",CONCATENATE("19",MID(B1,7,2)),MID(B1,7,4)) 按身份证号号码计算至今天年龄 =DATEDIF(TEXT((LEN(A1)=15)*19&MID(A1,7,6+(LEN(A1)=18)*2),"#-00-00"),TODAY(),"y") 以2006年10月31日为基准日,按按身份证计算年龄(周岁)的公式
(完整版)excel基本常用函数公式大全
1、查找重复内容公式：=IF(COUNTIF(A:A,A2)>1,"重复","")。 2、用出生年月来计算年龄公式： =TRUNC((DAYS360(H6,"2009/8/30",FALSE))/360,0)。 3、从输入的18位身份证号的出生年月计算公式： =CONCATENATE(MID(E2,7,4),"/",MID(E2,11,2),"/",MID(E2,13,2))。 4、从输入的身份证号码内让系统自动提取性别，可以输入以下公式： =IF(LEN(C2)=15,IF(MOD(MID(C2,15,1),2)=1,"男","女"),IF(MOD(MID(C2,17,1),2)=1,"男","女"))公式内的“C2”代表的是输入身份证号码的单元格。 1、求和：=SUM(K2:K56) ——对K2到K56这一区域进行求和； 2、平均数：=AVERAGE(K2:K56) ——对K2 K56这一区域求平均数； 3、排名：=RANK(K2，K$2:K$56) ——对55名学生的成绩进行排名； 4、等级：=IF(K2>=85,"优",IF(K2>=74,"良",IF(K2>=60,"及格","不及格"))) 5、学期总评：=K2*0.3+M2*0.3+N2*0.4 ——假设K列、M列和N列分别存放着学生的“平时总评”、“期中”、“期末”三项成绩； 6、最高分：=MAX(K2:K56) ——求K2到K56区域（55名学生）的最高分；
7、最低分：=MIN(K2:K56) ——求K2到K56区域（55名学生）的最低分； 8、分数段人数统计： （1）=COUNTIF(K2:K56,"100") ——求K2到K56区域100分的人数；假设把结果存放于K57单元格； （2）=COUNTIF(K2:K56,">=95")－K57 ——求K2到K56区域95～99.5分的人数；假设把结果存放于K58单元格； （3）=COUNTIF(K2:K56,">=90")－SUM(K57:K58) ——求K2到K56区域90～94.5分的人数；假设把结果存放于K59单元格； （4）=COUNTIF(K2:K56,">=85")－SUM(K57:K59) ——求K2到K56区域85～89.5分的人数；假设把结果存放于K60单元格； （5）=COUNTIF(K2:K56,">=70")－SUM(K57:K60) ——求K2到K56区域70～84.5分的人数；假设把结果存放于K61单元格； （6）=COUNTIF(K2:K56,">=60")－SUM(K57:K61) ——求K2到K56区域60～69.5分的人数；假设把结果存放于K62单元格； （7）=COUNTIF(K2:K56,"<60") ——求K2到K56区域60分以下的人数；假设把结果存放于K63单元格；
常用excel函数公式大全
常用的excel函数公式大全 一、数字处理 1、取绝对值 =ABS(数字) 2、取整 =INT(数字) 3、四舍五入 =ROUND(数字,小数位数) 二、判断公式 1、把公式产生的错误值显示为空 公式：C2 =IFERROR(A2/B2,"") 说明：如果是错误值则显示为空，否则正常显示。
2、IF多条件判断返回值 公式：C2 =IF(AND(A2<500,B2="未到期"),"补款","") 说明：两个条件同时成立用AND,任一个成立用OR函数。 三、统计公式 1、统计两个表格重复的内容 公式:B2 =COUNTIF(Sheet15!A:A,A2) 说明：如果返回值大于0说明在另一个表中存在，0则不存在。
2、统计不重复的总人数 公式：C2 =SUMPRODUCT(1/COUNTIF(A2:A8,A2:A8)) 说明:用COUNTIF统计出每人的出现次数，用1除的方式把出现次数变成分母，然后相加。 四、求和公式
1、隔列求和 公式：H3 =SUMIF($A$2:$G$2,H$2,A3:G3) 或 =SUMPRODUCT((MOD(COLUMN(B3:G3),2)=0)*B3:G3)说明：如果标题行没有规则用第2个公式 2、单条件求和 公式：F2 =SUMIF(A:A,E2,C:C) 说明：SUMIF函数的基本用法
3、单条件模糊求和 公式：详见下图 说明：如果需要进行模糊求和，就需要掌握通配符的使用，其中星号是表示任意多个字符，如"*A*"就表示a前和后有任意多个字符，即包含A。
4、多条件模糊求和 公式：C11 =SUMIFS(C2:C7,A2:A7,A11&"*",B2:B7,B11) 说明：在sumifs中可以使用通配符* 5、多表相同位置求和 公式：b2 =SUM(Sheet1:Sheet19!B2) 说明：在表中间删除或添加表后，公式结果会自动更新。 6、按日期和产品求和
Excel常用的函数计算公式大全(一看就会)
计算机等级考试 =公式名称（参数1，参数2，。。。。。） =sum(计算范围) =average(计算范围) =sumifs(求和范围，条件范围1，符合条件1，条件范围2，符合条件2，。。。。。。) =vlookup(翻译对象，到哪里翻译，显示哪一种，精确匹配) =rank(对谁排名，在哪个范围里排名) =max(范围) =min(范围) =index(列范围，数字) =match(查询对象，范围，0) =mid(要截取的对象，从第几个开始，截取几个) =int(数字) =weekday(日期，2) =if(谁符合什么条件，符合条件显示的内容，不符合条件显示的内容) =if(谁符合什么条件，符合条件显示的内容，if(谁符合什么条件，符合条件显示的内容，不符合条件显示的内容)) EXCEL的常用计算公式大全 一、单组数据加减乘除运算： ①单组数据求加和公式：=（A1+B1） 举例：单元格A1：B1区域依次输入了数据10和5，计算：在C1中输入=A1+B1 后点击键盘“Enter（确定）”键后，该单元格就自动显示10与5的和15。 ②单组数据求减差公式：=（A1-B1） 举例：在C1中输入=A1-B1即求10与5的差值5，电脑操作方法同上； ③单组数据求乘法公式：=（A1*B1） 举例：在C1中输入=A1*B1即求10与5的积值50，电脑操作方法同上； ④单组数据求乘法公式：=（A1/B1） 举例：在C1中输入=A1/B1即求10与5的商值2，电脑操作方法同上； ⑤其它应用： 在D1中输入=A1^3即求5的立方（三次方）； 在E1中输入=B1^（1/3）即求10的立方根 小结：在单元格输入的含等号的运算式，Excel中称之为公式，都是数学里面的基本 运算，只不过在计算机上有的运算符号发生了改变——“×”与“*”同、“÷”与 “/”同、“^”与“乘方”相同，开方作为乘方的逆运算，把乘方中和指数使用成分数 就成了数的开方运算。这些符号是按住电脑键盘“Shift”键同时按住键盘第二排 相对应的数字符号即可显示。如果同一列的其它单元格都需利用刚才的公式计算，只 需要先用鼠标左键点击一下刚才已做好公式的单元格，将鼠标移至该单元格的右下 角，带出现十字符号提示时，开始按住鼠标左键不动一直沿着该单元格依次往下拉到 你需要的某行同一列的单元格下即可，即可完成公司自动复制，自动计算。
VSTO4.0创建EXCEL自定义函数
前段时间装了个visual studio 2010，试着用里面的VSTO4.0，但是对如何生成一个自定义函数始终搞不明白（之前也看了《VSTO开发指南》，但觉得里面所讲的东西太泛了，而且版本不一样，形式也改变了不少），终于在网上看到有人写出一个完整的过程（原文请看https://www.360docs.net/doc/2314079363.html,/brooks-dotnet/archive/2011/01/16/1936871.html），但在实操中还是有不少问题，但经过多次尝试，终于解决了所遇到的问题，现在我就根据原文的内容以及建立过程中所遇到的问题，重新整理后讲述建立一个自定义函数的过程。 一、启动VS2010，（这里尝试着用C#来编写）新建一个类库，填好名称之后按确定，开始编码。 二、进入编程界面后，先引用必须的类库 using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Runtime.InteropServices; using Microsoft.Win32; using Microsoft.Office.Interop.Excel 设置GUID及COM的一些特性 [Guid("A4AAE79B-9587-4014-BABB-966C5DF76C83")] [ClassInterface(ClassInterfaceType.AutoDual),ComVisible(true)] 如图示：
Guid这个标识码可用LINQPad程序来获取（可从https://www.360docs.net/doc/2314079363.html,/下载） 在类中，除了有函数主体外，还必须有注册及注销时的行为语句，所以必须添加以下语句：#regi on COM Related [ComRegisterFunction] public static void Regi sterFunction(Type type) { Registry.ClassesRoot.CreateSubKey(GetSubKeyName(type, "Programmable")); var key = Registry.ClassesRoot.OpenSubKey(GetSubKeyName(type, "InprocServer32"), true); key.SetValue("", Environment.SystemDirectory + @"\mscoree.dll", Regi stryValueKind.String); } [ComUnregisterFunction] public static void Unregi sterFuncti on(Type type) { Registry.ClassesRoot.DeleteSubKey(GetSubKeyName(type, "Programmable"), false); } private static string GetSubKeyName(Type type, string subKeyName)
EXCEL常用函数公式大全与举例
EXCEL常用函数公式大全及举例 一、相关概念 （一）函数语法 由函数名+括号+参数组成 例：求和函数：SUM（A1,B2,…) 。参数与参数之间用逗号“,”隔开（二）运算符 1. 公式运算符：加（+）、减（-）、乘（*）、除（/）、百分号（%）、乘幂（＾） 2. 比较运算符：大与（>）、小于（<）、等于（=）、小于等于（<=）、大于等于（>=）、不等于（<>） 3. 引用运算符：区域运算符（：）、联合运算符（,） （三）单元格的相对引用与绝对引用 例： A1 $A1 锁定第A列 A$1 锁定第1行 $A$1 锁定第A列与第1行 二、常用函数 （一）数学函数 1. 求和 =SUM（数值1,数值2,……） 2. 条件求和 =SUMIF（查找的范围,条件(即对象),要求和的范围） 例：（1）=SUMIF(A1:A4,”>=200”,B1:B4) 函数意思：对第A1栏至A4栏中，大于等于200的数值对应的第B1列至B4列中数值求和 （2）=SUMIF(A1:A4,”<300”,C1:C4)
函数意思：对第A1栏至A4栏中，小于300的数值对应的第C1栏至C4栏中数值求和 3. 求个数 =COUNT（数值1,数值2,……） 例：（1） =COUNT(A1:A4) 函数意思：第A1栏至A4栏求个数（2） =COUNT(A1:C4) 函数意思：第A1栏至C4栏求个数 4. 条件求个数 =COUNTIF（范围,条件） 例：（1） =COUNTIF(A1:A4，”<>200”) 函数意思：第A1栏至A4栏中不等于200的栏求个数 （2）=COUNTIF(A1:C4,”>=1000”) 函数意思：第A1栏至C4栏中大于等1000的栏求个数 5. 求算术平均数 =AVERAGE（数值1,数值2,……） 例：（1） =AVERAGE(A1,B2) （2） =AVERAGE(A1:A4) 6. 四舍五入函数 =ROUND(数值,保留的小数位数) 7. 排位函数 =RANK（数值,范围,序别） 1-升序 0-降序 例：（1） =RANK(A1,A1:A4,1) 函数意思：第A1栏在A1栏至A4栏中按升序排序，返回排名值。 （2） =RANK(A1,A1:A4,0) 函数意思：第A1栏在A1栏至A4栏中按降序排序，返回排名值。 8. 乘积函数 =PRODUCT（数值1,数值2,……） 9. 取绝对值 =ABS(数字) 10. 取整 =INT(数字) （二）逻辑函数
Excel自定义函数实例集锦文章
在Excel中自定义函数 Excel函数虽然丰富，但并不能满足我们的所有需要。我们可以自定义一个函数，来完成一些特定的运算。下面，我们就来自定义一个计算梯形面积的函数： 1.执行“工具→宏→Visual Basic编辑器”菜单命令（或按“Alt+F11”快捷键），打开Visual Basic编辑窗口。 2.在窗口中，执行“插入→模块”菜单命令，插入一个新的模块——模块1。 3.在右边的“代码窗口”中输入以下代码： Function V（a,b,h） V = h*（a+b）/2 End Function 4.关闭窗口，自定义函数完成。 以后可以像使用内置函数一样使用自定义函数。 提示：用上面方法自定义的函数通常只能在相应的工作簿中使用。
经验分享Excel中自定义函数实例剖析 一、认识VBA 在介绍自定义函数的具体使用之前，不得不先介绍一下VBA，原因很简单，自定义函数就是用它创建的。VBA的全称是Visual Basic for Ap pli ca tion，它是微软最好的通用应用程序脚本编程语言，它的特点是容易上手，而且功能非常强大。 在微软所有的Office组件中，如Word、Access、Powerpoint等等都包含VBA，如果你能在一种Office组件中熟练使用VBA，那么在其它组件中使用VBA的原理是相通的。 Excel中VBA主要有两个用途，一是使电子表格的任务自动化；二是可以用它创建用于工作表公式的自定义函数。 由此可见，使用Excel自定义函数的一个前提条件是对VBA基础知识有所了解，如果读者朋友有使用Visual Basic编程语言的经验，那么使用VBA时会感觉有很多相似之处。如果读者朋友完全是一个新手，也不必太担心，因为实际的操作和运用是很简单的。 二、什么时候使用自定义函数？ 有些初学Excel的朋友可能有这样疑问：Excel已经内置了这么多函数，我还有必要创建自己的函数吗？ 回答是肯定的。原因有两个，它们也正好可以解释什么时候使用Excel自定义函数的问题。 第一，自定义函数可以简化我们的工作。 有些工作，我们的确可以在公式中组合使用Excel内置的函数来完成任务，但是这样做的一个明显缺点是，我们的公式可能太冗长、繁琐，可读性很差，不易于管理，除了自己之外别人可能很难理解。这时，我们可以通过使用自定义函数来简化自己的工作。 第二，自定义函数可以满足我们个性化的需要，可以使我们的公式具有更强大和灵活的功能。 实际工作的要求千变万化，仅使用Excel内置函数常常不能圆满地解决问题，这时，我们就可以使用自定义函数来满足实际工作中的个性化需求。
excel表格常用函数详解
excel工作表常用函数详解 (注:查看函数运算过程，点击表格中工具—公式审核—公式求值) 数学和三角函数 ABS(number) 返回数字的绝对值 单元格A1输入:=ABS(-2) 显示结果:2 INT(number) 将数字向下舍入(取小)到最接近的整数 单元格A1输入:=INT(8.9) 显示结果:8 单元格A1输入:=INT(-8.9) 显示结果:-9 MOD(number,divisor)返回被除后的余数 单元格A1输入:=MOD(3, 2) 显示结果:1 单元格A1输入:=MOD(3, -2) 显示结果:-1 RAND 返回 0 和 1 之间的一个随机数 单元格A1输入:=RAND() 显示结果: 大于等于0及小于1之间的一个随机数RANDBETWEEN 返回指定数字间的随机数 单元格A1输入:=RANDBETWEEN(1,36) 显示结果: 大于等于1及小于36之间的一个随机数ROUND(number,num_digits)将数字按指定位数舍入 单元格A1输入:=ROUND(2.15, 1) 显示结果:2.2 单元格A1输入:=ROUND(-1.475, 2) 显示结果: -1.48 ROUNDDOWN(number,num_digits)向绝对值减小的方向舍入数字 单元格A1输入:=ROUNDDOWN(2.15, 1) 显示结果:2.1 单元格A1输入:=ROUNDDOWN(-1.475,2) 显示结果: -1.47 ROUNDUP(number,num_digits)向绝对值增大的方向舍入数字 单元格A1输入:=ROUNDUP(2.13, 1) 显示结果:2.2 单元格A1输入:=ROUNDUP(-1.473,2) 显示结果: -1.48 SIGN(number)返回数字的正负数符号 单元格A1输入:=SIGN(10) 显示结果:1 单元格A1输入:=SIGN(-5) 显示结果: -1 SUBTOTAL(function_num, ref1, ref2, ...)返回列表或数据库中的分类汇总(自动筛选用) Function_num为1到11,对忽略隐藏行列数据分类汇总 Function_num为1到11,对包含隐藏行列数据分类汇总 SUM(number1,number2, ...) 返回某一单元格区域中所有数字之和(快捷键:alt+=) 单元格输入:=SUM(3,2) 显示结果:3+2=5 单元格A1输入:=SUM(A2:A4) 显示结果: A2+A3+A4的和 SUMIF(range,criteria,sum_range) 根据指定条件对若干单元格求和 SUMIF(条件区域,条件,求和区域) 常量条件加""号，单元格条件直接引用，条件首尾可以加*号通配符，单元格的条件加&来连接"*"。求和区域可以用起始单元格代替 单元格输入:=SUMIF(A2:A4,"张*", B2:B4) 显示结果:对A2,A3,A4三个单元格满足以"张"开头对应的B2,B3,B4求和 SUMPRODUCT(array1,array2,array3, ...) 将数组间对应的元素相乘，并返回乘积之和 单元格输入:=SUMPRODUCT({1,2,3}*{1,2,3})显示结果:1*1+2*2+3*3=14 SUMPRODUCT((条件区域1=条件1)* (条件区域2=条件2)*求和区域)条件不能用通配符