当前位置:主页 > Office办公 > excel自定义函数

excel自定义函数

excel 自定义函数,以及excel自定义函数如何添加和使用
excel 自定义函数,以及excel自定义函数如何添加和使用

第一,excel自定义函数简介  Excel自带很多函数供使用,但有些问题用内置函数解决起来很复杂,甚至是无能为力,这时就可以利用VBA开发自定义函数。第二,excel如何添加自定义函数  excel自定义函数是利用VBA二次开发功能所编写的函数程序,可以与工作表函数一样在工作表中使用。  创建excel自定义函数的步骤如下:  在Excel工作表界面下按<ALT+F11>组合键打开VBA编辑器,单击“插入”→“模块”,并在右边的代码窗口输入自定义函数的程序代码。  单击窗口右上角的“关闭”按钮关闭VBA编辑器,返回excel工作表界面。第三,excel如何使用自定义函数  在当前工作簿中使用创建的自定义函数,并且可以在函数列表的“用户定义”类别中找到此自定义函数。

592 次浏览
excel中使用内置函数和自定义函数来获取母亲节的具体日期的方法
excel中使用内置函数和自定义函数来获取母亲节的具体日期的方法

母亲节的具体日期是哪天呢?中国母亲节日期是每年5月份的第2个星期日是母亲节。  2012年母亲节是哪天呢?根据5月份的第2个星期日推算出来,2012年母亲节的具体日期是:2012年5月13日。  尽管用系统自带工具日历一类的,很容易就能查看到2012母亲节是那一天。但对我们excel发烧友来说,使用excel的日期函数也是很容易获取到2012年母亲节日期的。  以在excel中计算2012母亲节为例,来说明这类有年、月、周、天组合的特殊日期的计算方法。明白了方法,类似母亲节、父亲节这一类特殊日期就只是修改一下数据源的问题。  使用内置函数获取2012母亲节具体日期的方法:B1:B4单元格分别是对应的2012年5月第2周的第1天,即为母亲节的具体日期。  我们在B5单元格输入公式:=DATE(B1,B2,1)+B4-WEEKDAY(DATE(B1,B2,1))+(B3-(B4>=WEEKDAY(DATE(B1,B2,1))))*7  除了上面使用excel内置函数完成以外,还可以自己编写一个自定义函数来实现:按ALT+F11,打开VBE编辑器,插入——模块,复制下面的代码,返回工作表B5单元格输入:=日期(B1,B2,B3,B4),就可以得到2012年母亲节的具体日期是:2012-5-13。  这个自定义函数表示在每年的第几个星期的周几。

excel 自定义函数实现提取汉字
excel 自定义函数实现提取汉字

 从字符串中提取或者删除汉字是在我们日常使用Excel中时常遇到的问题,这里提供一个从网络上收集而来的提取或者删除汉字的自定义函数,方便大家日常使用。'---------------------------------------------------'功能:提取字符串中汉字或者非汉字'说明:Rg原字符串或单元格'Et为True时,提取汉字,否则为提取非汉字'发布:http://www.office26.com'---------------------------------------------------FunctionExtractHanzi(RgAsVariant,_OptionalEtAsBoolean=True)AsStringWithCreateObject("VBSCRIPT.REGEXP")

excel 自定义函数说明文字的添加,通过Application.MacroOptions方法来添加自定义函数说明
excel 自定义函数说明文字的添加,通过Application.MacroOptions方法来添加自定义函数说明

当excel内置函数不能或者不适合自己使用时,有能力可以编写自定义函数来解决实际问题。  当自己编写了一个自定义函数之后,为了让其余的人知道并了解自定义函数的相关参数用法,我们就可以为excel自定义函数添加功能说明。  下面我们以一个关于小写数字转大写数字的自定义函数来说明如何为excel自定义函数说明。  excel自定义函数说明文字,可以使用 Application.MacroOptions 方法来写。  下面是上面截图DA自定义函数相关的VBA代码:Function DA$(num As Long, mType As Byte)     If mType <> 1 And mType <> 2 Then         DA = ""         Exit Function     End If     DA = Application.Text(num, "[DBNum" & mType & "]") End FunctionSub 按钮1_Click()     Application.MacroOptions Macro:="DA", Description:="说明:把数字转换为中文大小写数字,mType 为1时,中文小写数字,为2时,中文大写数字。"     ActiveCell.Formula = "=DA()"     Application.Dialogs(xlDialogFunctionWizard).Show End Sub  其中的代码说明:Application.MacroOptions Macro:="DA", Description:="说明:把数字转换为中文大小写数字,mType 为1时,中文小写数字,为2时,中文大写数字。"  上面这段文字就是excel自定义函数说明文字。

612 次浏览