excel怎样调用自定义vba函数,电子表格vba自定义函数调用自定义函数
减小字体
增大字体1. vba自定义函数调用自定义函数
Public Function SelectFrom8(All As Range, i As Integer, j As Integer) SelectFrom8 = All.Cells(i, j).ValueEnd Function
两个问题：
函数的返回值不要指定As Range
用All.Cells(i,j).Value来返回指定单元格的值
2. vba和自定义函数的使用
Excel 当中VBA定义名称的函数是：
names.add
Names.Add
方法
为单元格区域定义新名称。
语法
表达式.Add(Name,
RefersTo, Visible, MacroType, ShortcutKey,Category,NameLocal,RefersToLocal,CategoryLocal,RefersToR1C1, RefersToR1C1Local)
表达式含义：
一个表示 Names 对象的变量。
参数名称
必选/可选
数据类型说明
Name可选
Variant如果未指定 NameLocal参数，则指定要用作名称的英文文本。名称不能包括空格，并且不能设置为单元格引用的格式。
RefersTo可选
Variant如果未指定 RefersToLocal、RefersToR1C1 和
RefersToR1C1Local 参数，则说明名称引用的内容（使用 A1 格式表示法以英文表示）。
注释
如果引用不存在，则返回 Nothing。
Visible可选
Variant
True 指定将名称定义为可见。False 指定将名称定义为隐藏。已隐藏的名称不会在“定义名称”、“粘贴名称”或“转到”对话框中显示。默认值为True。
MacroType可选
Variant
由以下值之一确定的宏类型：
1 - 用户定义函数（Function 过程）
2 - 宏（Sub 过程）
3 或省略 - 无（该名称不引用用户定义函数或宏）
ShortcutKey
可选
Variant
指定宏的快捷键。必须是单个字母，例如“z”或“Z”。仅适用于命令宏。
Category
可选
Variant
如果 MacroType 参数等于 1 或
2，则此参数为宏或函数的分类。该分类在“函数向导”中使用。可以用数字（从 1 开始）或名称（以英文指定）引用现有的分类。如果指定的分类不存在，Microsoft
Office Excel 2007 将创建新分类。
NameLocal可选
Variant
如果未指定 Name
参数，则指定要用作名称的本地化的文本。名称不能包括空格，并且不能设置为单元格引用的格式。
RefersToLocal
可选
Variant
如果未指定 RefersTo、RefersToR1C1 和
RefersToR1C1Local 参数，则说明名称引用的内容（使用 A1 格式表示法以本地化的文本表示）。
CategoryLocal
可选
Variant
如果未指定 Category 参数，则指定标识自定义函数分类的本地化的文本。
RefersToR1C1
可选
Variant
如果未指定 RefersTo、RefersToLocal 和
RefersToR1C1Local 参数，则说明名称引用的内容（使用 R1C1 格式表示法以英文表示）。
RefersToR1C1Local
可选
Variant
如果未指定 RefersTo、RefersToLocal 和
RefersToR1C1 参数，则说明名称引用的内容（使用 R1C1
格式表示法以本地化的文本表示）。
返回值：一个表示新名称的 Name 对象
3. vba如何自定义函数
是读写的时候不停的更新屏幕，导致VBA执行速度慢。只需要停止渲染即可提高速度。或者一次性操作范围而不是单个单个单元格，降低读写频率即可提高速度。
4. vba怎么调用自定义函数
①种调用方法
Worksheets(1).Range("E6") = WorksheetFunction.Median(Range("A1:B4"))
这种调用形式，函数的参数是单元格地址区域，属于普通型，但数据区域的定义难于确定。
②种调用方法
Worksheets("sheet1").Range("D6") = Application.Min(Range("A1:B4"))
这种调用形式，函数参数的数据区域及工作表名称，属于普通型，灵活性不够。
③种调用方法
Worksheets(1).Range("C6") = Application.Max(Worksheets("Sheet1").Range("A1:B4"))
5. excel vba 调用自定义函数
你这个要求不能实现啊，我用了ParamArray 关键字，用来指定一个 任意元素个数 的数组
共参考：
---------
Function shuzu(ParamArray x())
Application.Volatile
Dim i, n, m, tmp
n = UBound(x) - LBound(x) + 1
If n Mod 2 0 Then tmp = "#Err_x()": GoTo 1000
n = n / 2
m = LBound(x)
For i = 1 To n
tmp = tmp + x(m + i - 1) * x(m + i - 1 + n)
Next
1000:
shuzu = tmp
End Function
-----------
输入公式的时候，需要 成对 的元素，套用你的公式如下：
=shuzu((K5,L5,M7,N9),(M13,L15,K13,M17))
可以输入任意 成对的 元素，比如使用10个参数：
=shuzu((K5,L5,M7,N9,M10),(M13,L15,K13,M17,N20))
6. excel vba自定义函数
VBA自定义函数就是用VBA编写一段小程序，并给该段程序取一个名字（自定义函数的函数名），用来实现自己的运算逻辑，得到一个运算结果。自定义函数的结构如下：
Function functioName()
'自定义函数代码
functionName= "自定义函数运算结果"
7. excel vba定义函数
保存为早期版本的.xls格式的文件没有任何无问题，所有提示一律单击是 如果是.xlsx格式不行，要另存为二进制格式.xlsb,这种格式还有一个最大的好处就是比原文件占用内存少，启动也快。
8. vba自带函数
利用CVErr函数可以返回错误值 常量 错误号 单元格错误值 xlErrDiv0 2007 #DIV/0! xlErrNA 2042 #N/A xlErrName 2029 #NAME? xlErrNull 2000 #NULL! xlErrNum 2036 #NUM! xlErrRef 2023 #REF! xlErrValue 2015 #VALUE! 比如 Function MyFun(A) If MyFun="" Then MyFun=CVErr(2042) End Function
9. vba如何调用自定义函数
步骤如下：
1.首先就是打开excel软件
2.然后就是打开VBA编程界面
3.接着就是定义一个执行函数
4.然后就是介绍定义局部变量，定义方式为【dim 变量 as 类型】
5.接着就是私有变量的定义，定义方式【private 变量 as 类型】
6.然后就是共有变量的定义，定义方式【public 变量 as 类型】
7.接着就是全局变量，定义方式【Globlal 变量】
8.最后就是静态变量的定义，形如【static 变量 as 类型】，即可调用公共函数了。