Excel 2013 自定义函数的使用

摘要：使用MS Office嵌入的VBA，通过VBA编程的方式，可以实现Excel内置函数无法实现的个性化功能。本文以Excel 2013 为例来说明自定义函数的使用方法。文中自定义函数change_week()，实现对将数1~7转换为星期。

关键字：Excel, 2013, 自定义函数,VBA

效果预览：

自定义函数根据

A1~A7计算得到

B1~B7

步骤

1.新建一Excel工作簿文件(注意须保存为“Excel启用宏的工作簿”类型的文

件，文件类型为：xlsm，而不是xlsx)：

2.鼠标在选项卡上点右键菜单，设置自定义功能区，注意鼠标必须放到选项卡

4.选定“开发工具”

此时，选项卡增加了“开发工具”，

5.单击“Visual Basic”命令，进入

Excel启用宏的工作簿

类型名：xlsm

注意前面命名的“Excel启用宏的工作簿”类型的文件扩展名为：xlsm 6.使用菜单“插入”｜“模块”

7.使用菜单“插入”|“过程”

8.在弹出的“添加过程”对话框中，“类型”设置为函数，“名称”输入为：

change_week，然后确定。

9.进入代码设计窗口：

VBA代码编辑窗口

10.为函数添加参数，并编写函数

窗口，在A1~A7中输入序列1~7，选定B1, 在单元格编辑栏中输入函数，设定其参数为A1：

输入函数并设置参数12.函数输入完毕后确定，并自动填充B2~B7单元格：

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函数公式大全

常用的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用法大全 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自定义函数157个(精)

自定义函数功能查看代码：自定义函数取值范围如何设定相当于VLOOKUP 吧，查询某一值第num 次出现的值返回指定列数的列标用指定字符替换某字符从右边开始查找指定字符在字符串中的位置将20040510数字格式，转换为2004－5－10的日期格式的函数工龄计算：计算日期差，除去星期六、星期日的自定义函数這是一個將英文字反轉的自定函數关于个人所得税的一个能计算是否有重复单元的函数试编写数字金额转中文大写的函数人民币大小写转换函数获取区域颜色值: 获取活动工作表名的：显示在“插入函数”对话框的“或选择类别”下拉列表中复合函数

对工作表的第一列进行各种查询序数词转换函数获取最后一行行数的：判断是否连接在线的函数查找一字符串(withinstr在另一字符串中从工作表第一行的标题文字以数字形式返回所在列号多工作表有条件求和有的时候需要返回多个数值，那就是用返回数组吧Excel 自定义函数返回一组字符串也来个返回指定列数的列标号自定义函数返回 Column 英文字查找指定列名的列数文字格式的时间(分:秒转化为数字格式(秒将"hh:mm:ss"格式的时分秒数转换成秒数试编写金额中文大写转数字函数身份证号码侦测自定义函数显示公式的函数为财务人员理帐查找用的数值转换为字符地址

字符地址转换为数值 VB 中用的，虽然VBA 中也有一个Application.Wait 功能得到字符串实际的长度（以单字节记）也做个个人所得税 18位身份证最后一位有效性验证计算符合maturity condition的拆解金额相当于多个vlookup 函数相加，判断表是否存在的函数我这个是角度转弧度的，以供大家参考比较相同的字符串對選定的陣列進行排序取得指定月份天數排序工作表活頁薄統計陣列中非重復數據個數摘取子字符串自定义函数根据列表返回列序号查找某值在某区域第n 次出现时对应列的值刪除當前工作表中的全部超連接。取得相近數據

Excel公式函数大全(超全)

Excel公式应用大全 1、ABS函数函数名称：ABS 主要功能：求出相应数字的绝对值。使用格式：ABS(number) 参数说明：number代表需要求绝对值的数值或引用的单元格。应用举例：如果在B2单元格中输入公式：=ABS(A2)，则在A2单元格中无论输入正数（如100）还是负数（如-100），B2中均显示出正数（如100）。特别提醒：如果number参数不是数值，而是一些字符（如A等），则B2中返回错误值“#VALUE！”。 2、AND函数函数名称：AND 主要功能：返回逻辑值：如果所有参数值均为逻辑“真（TRUE）”，则返回逻辑“真（TRUE）”，反之返回逻辑“假（FALSE）”。使用格式：AND(logical1,logical2, ...) 参数说明：Logical1,Logical2,Logical3……：表示待测试的条件值或表达式，最多这30个。应用举例：在C5单元格输入公式：=AND(A5>=60,B5>=60)，确认。如果C5中返回TRUE，说明A5和B5中的数值都大于60，如果返回FALSE，说明A5和B5中的数值至少有一个小于60。特别提醒：如果指定的逻辑条件参数中包含非逻辑值时，则函数返回错误值“#VALUE!”或“#NAME”。 3、AVERAGE函数函数名称：AVERAGE 主要功能：求出所有参数的算术平均值。使用格式：AVERAGE(number1,number2,……) 参数说明：number1,number2,……：需要求平均值的数值或引用单元格（区域），参数不超过30个。应用举例：在B8单元格中输入公式： =AVERAGE(B7:D7,F7:H7,7,8)，确认后，即可求出B7至D7区域、F7至H7区域中的数值和7、8的平均值。特别提醒：如果引用区域中包含“0”值单元格，则计算在内；如果引用区域中包含空白或字符单元格，则不计算在内。 4、COLUMN 函数函数名称：COLUMN 主要功能：显示所引用单元格的列标号值。使用格式：COLUMN(reference)

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”) ,TODAY(),”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())-VALUE(MID(B1,7,4))&"岁" =YEAR(TODAY())-IF(MID(B1,18,1)="",CONCATENATE("19",MID(B1,7,2)),MID(B1,7,4)) 按身份证号号码计算至今天年龄

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函数公式大全一、数字处理 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中可以使用通配符*

excel表格常用的函数公式

e x c e l表格常用的函数公式 Prepared on 22 November 2020

1、如何一次性去掉诸多超链接选中所有的超链接，按住Ctrl+c再按Enter键，就取消的所有的超链。 2、如何在每行的下面空一行如A1列有内容，我们需要在B1、C2单元格输入1，选中周边四格，然后向下拉，填充序列，然后在选取定位条件，选中空值，最后点击插入行，就行了。 3、删除一列的后缀

若A1为此，在B1单元格输入=LEFT（A1，LEN （A1）-4），然后下拉填充公式。删除前缀则相反RIGHT 4、把多个单元格串成一句运用=CONCATENATE（“A1”，“B2”，“C2”），比如A1,B1单元格分别是8，个，我们可在C1单元格输入=CONCATENATE("我有",A1,B1,"苹果")，随即C1单元格显示我有8个苹果。 5、数据分类汇总后按需排序在数据分类汇总后，我们选择左侧2，把数据折叠起来，然后选中你按需排序规则的那行，点击排序即可。 6、分类汇总后，只复制汇总的项在把分类汇总后的数据折叠后（只显示分类汇总项），然后选中这些，定位——可见单元格——复制——黏贴即可。 7、【Vlookup函数】查找制定目标的相对应数值公式：B13=VLOOKUP(A13,$B$2:$D$8,3,0) A13是所需要的值对应的属性（姓名）；$B$2:$D$8是指查找的范围从B2开始一直到D8的区间范围内；3是指查找范围的第三列，即查找值所在的列；0表示精确查找或者也可填写false。 8、【sumif函数】在一定条件下求和 G2=sumif（D2：D8，”>=95”）

VSTO4.0创建EXCEL自定义函数

前段时间装了个visual studio 2010，试着用里面的VSTO4.0，但是对如何生成一个自定义函数始终搞不明白（之前也看了《VSTO开发指南》，但觉得里面所讲的东西太泛了，而且版本不一样，形式也改变了不少），终于在网上看到有人写出一个完整的过程（原文请看https://www.360docs.net/doc/638970956.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/638970956.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函数公式大全76850

excel函数公式大全类别一:数据库和清单管理函数 DAVERAGE 返回选定数据库项的平均值 DCOUNT 计算数据库中包含数字的单元格的个数 DCOUNTA 计算数据库中非空单元格的个数 DGET 从数据库中提取满足指定条件的单个记录 DMAX 返回选定数据库项中的最大值 DMIN 返回选定数据库项中的最小值 DPRODUCT 乘以特定字段(此字段中的记录为数据库中满足指定条件的记录)中的值DSTDEV根据数据库中选定项的示例估算标准偏差 DSTDEVP 根据数据库中选定项的样本总体计算标准偏差 DSUM 对数据库中满足条件的记录的字段列中的数字求和 DVAR 根据数据库中选定项的示例估算方差 DVARP 根据数据库中选定项的样本总体计算方差 GETPIVOTDATA 返回存储在数据透视表中的数据类别二:日期和时间函数 DATE返回特定时间的系列数

DATEDIF计算两个日期之间的年、月、日数 DATEVALUE将文本格式的日期转换为系列数 DAY将系列数转换为月份中的日 DAYS360按每年360天计算两个日期之间的天数 EDATE返回在开始日期之前或之后指定月数的某个日期的系列数EOMONTH返回指定月份数之前或之后某月的最后一天的系列数HOUR将系列数转换为小时 MINUTE将系列数转换为分钟 MONTH将系列数转换为月 NETWORKDAYS返回两个日期之间的完整工作日数 NOW返回当前日期和时间的系列数 SECOND将系列数转换为秒 TIME返回特定时间的系列数 TIMEVALUE将文本格式的时间转换为系列数 TODAY返回当天日期的系列数 WEEKDAY将系列数转换为星期 WORKDAY返回指定工作日数之前或之后某日期的系列数

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表格函数公式大全

E x c e l表格函数公式大全-标准化文件发布号：（9456-EUATWK-MWUB-WUNN-INNUL-DDQTY-KII

目录按顺序整理，便于打印学习 EXCEL函数大全 (3) 1.数据库和清单管理函数 (3) 2.日期和时间函数 (3) 3.DDE 和外部函数 (4) 4.工程函数 (4) Excel2003常用函数 (6) 5.ABS函数 (6) 6.AND (7) 7.AVERAGE (7) 8.CELL (8) 9.CHOOSE (8) 10.COLUMN 函数 (9) 11.CONCATENATE函数 (9) 12.COUNT (10) 13.COUNTA (10) 14.COUNTIF (10) 15.DATEDIF函数 (11) 16.DATE函数 (11) 17.DAY函数 (12) 18.DCOUNT函数 (12) 19.FIND (13) 20.FREQUENCY函数 (13) 21.IF (13) 22.INDEX (14) 23.INT (15) 24.ISERROR函数 (16) 25.ISEVEN (16) 26.ISODD (17) https://www.360docs.net/doc/638970956.html,RGE (17) 28.LEFT或LEFTB (17) 29.LEN或LENB (18) 30.LOOKUP (18) 31.MATCH (19) 32.MAX (20) 33.MIN (21) 34.MEDIAN (21) 35.MID或MIDB (22) 36.MOD函数 (22) 37.MONTH函数 (23) 38.NOW (23) 39.OR (24) 40.RAND (24) 41.RANK函数 (25) 42.RIGHT或RIGHTB (25) 43.ROUND (26) 44.SUBTOTAL函数 (26) 45.SUM (27) 46.SUMIF (27) 47.TEXT (28) 48.TODAY (29) 49.VALUE (29) 50.VLOOKUP (30) 51.WEEKDAY函数 (31) 关于EXCEL中函数COUNT的用法 (31)

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.函数作用:返回

用VBA编写Excel自定义的累加函数

用VBA编写Excel自定义的累加函数郑云勇云南楚雄思远投资有限公司摘要：Excel是常用的数据统计分析软件，本文介绍了用VBA编写加载宏的方法来扩展、定制Excel，以适合工程统计专业的特殊需要。下面，讨论如何实现一个自定义的具有任意合计形如“30.2m/165.45m3”的“分子/分母”工程量统计功能的函数，由于Sum函数系统已经内置，我们要实现的函数不妨命名为uLSum和uRSum。关键词：Excel，定制，加载宏 1引言电子表格软件Microsoft Excel具有快捷方便的数据输入方式和强大的数据处理能力，是工程地质中常用的数据统计分析软件，为我们的工作带来了极大的方便。但Excel毕竟只是一个通用的办公软件，对于工程专业中的各种特殊需求，它自然不会有专门的功能支持。比如：采矿工程师在做每年的采掘生产计划时，通常遇到要累加掘进工程量的合计数，即“30.5/125.6”加“120.2/625.8”的合计，我们通常的做法是分步完成，先将分子之、分母之和求出来后，在填入单元格中。或者将分子、分母分别填入两列中，分别用sum函数求和。这样既劳神，又容易出错，特别是对大量数据进行复杂的公式计算。如果从头编写一个独立、专门的计算程序来处理，则似有小题大作之嫌，而且还不能与Excel无缝集成。那么有

没有更好的解决办法呢？答案是肯定的，那就是定制Excel，通过编程扩展它的功能。事实上，Excel作为Microsoft最优秀的软件之一，很早就开始提供了二次开发的接口，4.0版以前有XLM，4.0版又发布了Excel C API，5.0版则内置了VBA。现在的Excel，除了人所共知的操作功能外，还是一个完善的软件开发平台。它拥有完备的ActiveX Automation服务器和客户机机制，可以通过编程对其进行全方位的扩展、定制，实现各种自定义功能。基于ActiveX Automation技术，使用C/C++等多种支持Automation的编程语言均可控制Excel，但我们最为熟悉和常用的还是内置于Excel中的VBA。 2VBA简介 Visual Basic for Application(VBA)是Microsoft面向最终用户的应用软件编程语言。它最早出现于Microsoft的Excel和Project中，如今VBA已成为VB和所有Office产品的组件。另外，越来越多的软件开发商购买了VBA语言的使用权，如常用的绘图软件AutoCAD等均已支持VBA作为二次开发工具。这意味着我们懂得VB，就已经懂得了VBA，反之亦然。 VBA的最大特点和最大优点是利用面向对象(OOP)的ActiveX Automation技术，使语言的引擎在技术上与开发环境分离，这可以从在任何VBA的IDE环境中都可以看到VBA单独的入口得到印证。因此，VBA的功能在很大程度上依赖于它的客户显露的Automation 接口，例如，VB与Office套件中的VBA，能完成的功能就大不一样。

工作中最常用地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、按日期和产品求和公式：F2

(完整版)Excel自定义函数方法拼音

Excel自定义函数方法： 1.启动Excel 2003 （其它版本请仿照操作），打开相应的工作表； 2.执行“工具→宏→Visual Basic编辑器”命令（或者直接按“Alt+F11”组合键），进入Visual Basic编辑状态； 3.执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态； 4.将代码输入其中； 5.代码输入完成后，关闭 V isual Basic 编辑窗口，返回 Excel 编辑状态； 6. 自定义函数就可以用了，如：选中 D2 单元格，输入公式： =getpy(A2) 。有极个别的汉字不能转换，手动就可以了！很方便了。 Function pinyin (p As String) As String i = Asc(p) Select Case i Case -20319 To -20318: pinyin =“a” Case -20317 To -20305: pinyin =“ai” Case -20304 To -20296: pinyin =“an” Case -20295 To -20293: pinyin =“ang” Case -20292 To -20284: pinyin =“ao” Case -20283 To -20266: pinyin =“ba” Case -20265 To -20258: pinyin =“bai” Case -20257 To -20243: pinyin =“ban” Case -20242 To -20231: pinyin =“bang” Case -20230 To -20052: pinyin =“bao”