Excel中怎样自定义函数

Question

如题所述

Answer 1

举例说明。

例如要做一个单元格求和的自定义函数，比sum函数增加一个条件，就是如果单元格有删除线标记，则不计入该单元格的数值。如图：

第一步：在visual basic模式下插入模块，并创建自定义函数。代码如下：

Public Function mysum(qu As Range)
Dim s As Double
Dim b
mysum = 0
For Each b In qu
If b.Font.Strikethrough = False Then
   mysum = mysum + b.Value
End If
Next
End Function

第二步：在c15单元格输入公式：=mysum(C4:C14)。结果如图：

Answer 2

1、点击“工具”中的“宏”，选择“Visual Basic编辑器”项（按“Alt+F11”快捷键一样效果），如图。

2、在执行1步骤后跳出“Visual Basic编辑器-Book1”窗口，如图。

3、在“Visual Basic编辑器-Book1”窗口中，点击“插入”中的“模块”项，如图。

4、执行3步骤，会跳出如下命令窗口，如图。

5、在“Book1-模块1（代码）”窗口里输入：
Function S(a, b)
S = a * b / 2
End Function
如图。

6、Function S(a, b)是定义函数及参数的，自定义函数必须首先这么定义自己的函数，然后以End Function作结束。输入完毕，关闭窗口，自定义的函数就完成了。

7、下面看看我们自定义的函数实际的运用,如图中的两组数据，我们来计算面积。

8、表格中，点击C3单元格，在fx处输入“=S（A3,B3）”就行了，只要一回车确定，面积就出来了，如图。

9、C4单元格面积的确定，和C3单元格一样，只是“=S（A4,B4）”依次类推。其实，其他函数也差不多类似这样做，只是有时候自定义复杂函数，需要基本的数学知识和VBA基础，这需用自身的积累。本回答被提问者采纳

Answer 3

1、点击“工具”中的“宏”，选择“Visual Basic编辑器”项（按“Alt+F11”快捷键一样效果）

2、在执行1步骤后跳出“Visual Basic编辑器-Book1”窗口，

3、在“Visual Basic编辑器-Book1”窗口中，点击“插入”中的“模块”项

4、执行3步骤，会跳出如下命令窗口

5、在“Book1-模块1（代码）”窗口里输入：

Function S(a, b)
S = a * b / 2
End Function

6、Function S(a, b)是定义函数及参数的，自定义函数必须首先这么定义自己的函数，然后以End Function作结束。输入完毕，关闭窗口，自定义的函数就完成了。

7、下面看看自定义的函数实际的运用,如图中的两组数据，我们来计算面积。

8、表格中，点击C3单元格，在fx处输入“=S（A3,B3）”就行了，只要一回车确定，面积就出来了

9、C4单元格面积的确定，和C3单元格一样，只是“=S（A4,B4）”依次类推。其实，函数也差不多类似这样做，只是有时候自定义复杂函数，需要基本的数学知识和VBA基础，这需用自身的积累。