|
|
| 自定义Excel函数-自定义Excel |
|
|
|
|
自定义Excel函数-自定义Excel来源：excel格子社区BA之自定义函数?这一贴说的是自定义函数。Excel本身已自带了很多函数，供我
们使用，但有些问题用原有的函数解决起来很复杂，甚至是无能为力，但有了VBA，可能就可以现实。?怎样自定义一个函数？下面我们建一个名
为RangeCount和函数，用来统计给定单元格数量。上贴说过怎么插入一个宏（子程序），其实细心的朋友就会发现，里面有一项函数的选
项，就是用这个添加了！键入你需要的名称RangeCount，即会自动生成一个函数的头Public?Function?RangeCo
unt()和尾End?Function!这时大家可以知道，子程序都是以Sub关键字开头，而函数是以Function关键字开头。?怎
样给自定义函数传递参数？用过Sum函数的朋友都知道Sum的用法，在单元格中键入=Sum(A1:A10)就能对A1:A10进行求和，
那么怎么让我们的自定义函数也有此功能呢，其实很简单，只要在Function?RangeCount()中的（与）之间加入即可，象现在
我们要给这个自定义函数传递一个单元格的参数，即在（）间加入XRan?As?Range即可。其中XRan就是我们给这个参数设定的名称
，As?是关键字，而Range就是给定参当数的类型（单元格类型），更详细的说明可以参见VBA的帮助（上贴有说明怎么用帮助了吧：））
。?怎么样自定义函数加入功能？其实也和子程序一样，在函数的头Public?Function?RangeCount()和尾End?F
unction之间就可以加入代码，我们这个函数的代码只有一句：RangeCount?=?XRan.Count?怎么样让自定义函数返
回值？从上面的例子看出，只要将函数的名称设定为需要返回的值即可。?怎么当前工作表中使用自定久函数？使用自定义函数的方法其实和一般函
数的方法是一样的，在单元格中键入=RangeCount(A1:A10)，即可以得到值（10）！当然，也可以通过菜单插入/函数，在类
别中选择用户自定义里找到你自定义的函数。?怎么在工作表里使用别的工作表里的自定义函数？从菜单插入/函数，类别中的用户自定义里，可以
看到，如果这个自定义函数不是在当前的工作表里的，函数会变成——文件名.xls!函数名了，这样我们使用上面的自定义函数就变成=Boo
k1.xls!RangeCount(A1:A10)（设我们刚才保存文件为Book1)。?怎么样在任何工作表中使用自定义函数？自定义
了函数后，每一次使用都要打开这个工作簿，不方便，那么怎么样让任何工作簿都能使用这个自定义函数呢？有两个方法，第一个就是把代码写在上
面说到的个人宏工作簿中，因为个人宏工作簿都是随Excel自动打开的，那么我们就可以通过PERSONAL.XLS!函数名来使用这个自
定义函数。第二个方法就是加载宏（关于加载宏的其它用法和具体说明以后还会有专门的一贴），将包含这个自定义函数的工作簿，去掉无关的内容
（不去当然也行啦！）后另存为加载宏（不会不知道怎么另存吧，汗！后注！），这样在菜单工具/加载宏里，将相关项前打勾，即可使用该自定义
函数，这时使用函数的方法只要直接用函数名即可，如=RangeCount(A1:A10)。?最后再说一点大家少遇到的现象：用过VBA
后，大家知道在同一模块中是不能有相同名称的子程序与函数的，如果有，运行时会提示存在二义性！但在不同模块中，却能有相同甸称的函数存在
，那么怎么使用这样的函数呢？从菜单插入/函数，类别中的用户自定义里，我们可以看出这样的函数变成模块名.函数名了，这样我们的使用方法
就是=模块1.RangeCount(A1:A10)或=模块2.RangeCount(A1:A10)。?后注：详细的另存为加载宏的过
程，点击菜单/文件/另存为，在文件类型里选择Microsoft?Excel加载宏项，这时文件夹自动转到保存加载宏的AddIns，再
保存即可。?附：上面RangeCount的完整代码：?Function?RangeCount(XRan?As?Range)?Ran
geCount?=?XRan.Count?End?Function?下面给出两个自定义函数，按给颜色求和SumColor与计数Co
untColor?Function?SumColor(rColor?As?Range,?rSumRange?As?Range)?D
im?rCell?As?Range?Dim?iCol?As?Integer?Dim?vResult?Application.Vol
atile?iCol?=?rColor.Interior.ColorIndex??For?Each?rCell?In?rSumRa
nge??If?rCell.Interior.ColorIndex?=?iCol?Then??vResult?=?Workshee
tFunction.Sum(rCell)?+?vResult??End?If??Next?rCell?SumColor?=?vRe
sult?End?Function?Function?CountColor(rColor?As?Range,?rSumRange?
As?Range)?Dim?rCell?As?Range?Dim?iCol?As?Integer?Dim?vResult?Appl
ication.Volatile?iCol?=?rColor.Interior.ColorIndex??For?Each?rCel
l?In?rSumRange??If?rCell.Interior.ColorIndex?=?iCol?Then??vResult?=?vResult?+?1??End?If??Next?rCell?CountColor?=?vResult?End?Function1格子社区-Excel互助交流平台 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
