Excel如何自定义函数？

设数据在a1格，公式如下
=if(iserror(find(".",a1)),numberstring(int(a1),2)&"元整",if(iserror(numberstring(mID(a1,find(".",a1)+2,1),2)),numberstring(int(a1),2)&"元"&numberstring(mID(a1,find(".",a1)+1,1),2)&"角整",numberstring(int(a1),2)&"元"&numberstring(mID(a1,find(".",a1)+1,1),2)&"角"&numberstring(mID(a1,find(".",a1)+2,1),2)&"分"))
当公式整数部份最大为15位时正确，结果舍去分(小数点第二位)以下数据。

vba之自定义函数
这一贴说的是自定义函数。Excel本身已自带了很多函数，供我们使用，但有些问题用原有的函数解决起来很复杂，甚至是无能为力，但有了vba，可能就可以现实。
怎样自定义一个函数?下面我们建一个名为rangecount和函数，用来统计给定单元格数量。上贴说过怎么插入一个宏(子程序)，其实细心的朋友就会发现，里面有一项函数的选项，就是用这个添加了!键入你需要的名称rangecount，即会自动生成一个函数的头public
function
rangecount()和尾end
function!这时大家可以知道，子程序都是以SUb关键字开头，而函数是以function关键字开头。
怎样给自定义函数传递参数?用过SUm函数的朋友都知道SUm的用法，在单元格中键入=SUm(a1:a10)就能对a1:a10进行求和，那么怎么让我们的自定义函数也有此功能呢，其实很简单，只要在function
rangecount()中的(与)之间加入即可，象现在我们要给这个自定义函数传递一个单元格的参数，即在()间加入xran
as
range即可。其中xran就是我们给这个参数设定的名称，as
是关键字，而range就是给定参当数的类型(单元格类型)，更详细的说明可以参见vba的帮助(上贴有说明怎么用帮助了吧:))。
怎么样自定义函数加入功能?其实也和子程序一样，在函数的头public
function
rangecount()和尾end
function之间就可以加入代码，我们这个函数的代码只有一句:rangecount
=
xran.count
怎么样让自定义函数返回值?从上面的例子看出，只要将函数的名称设定为需要返回的值即可。
怎么当前工作表中使用自定久函数?使用自定义函数的方法其实和一般函数的方法是一样的，在单元格中键入=rangecount(a1:a10)，即可以得到值(10)!当然，也可以通过菜单插入/函数，在类别中选择用户自定义里找到你自定义的函数。
怎么在工作表里使用别的工作表里的自定义函数?从菜单插入/函数，类别中的用户自定义里，可以看到，如果这个自定义函数不是在当前的工作表里的，函数会变成--文件名.xls!函数名了，这样我们使用上面的自定义函数就变成=book1.xls!rangecount(a1:a10)(设我们刚才保存文件为book1)。
怎么样在任何工作表中使用自定义函数?自定义了函数后，每一次使用都要打开这个工作簿，不方便，那么怎么样让任何工作簿都能使用这个自定义函数呢?有两个方法，第一个就是把代码写在上面说到的个人宏工作簿中，因为个人宏工作簿都是随Excel自动打开的，那么我们就可以通过personal.xls!函数名来使用这个自定义函数。第二个方法就是加载宏(关于加载宏的其它用法和具体说明以后还会有专门的一贴)，将包含这个自定义函数的工作簿，去掉无关的内容(不去当然也行啦!)后另存为加载宏(不会不知道怎么另存吧，汗!后注!)，这样在菜单工具/加载宏里，将相关项前打勾，即可使用该自定义函数，这时使用函数的方法只要直接用函数名即可，如=rangecount(a1:a10)。
最后再说一点大家少遇到的现象:用过vba后，大家知道在同一模块中是不能有相同名称的子程序与函数的，如果有，运行时会提示存在二义性!但在不同模块中，却能有相同甸称的函数存在，那么怎么使用这样的函数呢?从菜单插入/函数，类别中的用户自定义里，我们可以看出这样的函数变成模块名.函数名了，这样我们的使用方法就是=模块1.rangecount(a1:a10)或=模块2.rangecount(a1:a10)。
后注:详细的另存为加载宏的过程，点击菜单/文件/另存为，在文件类型里选择Microsoft
Excel加载宏项，这时文件夹自动转到保存加载宏的addins，再保存即可。