乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > Excel中怎样自定义函数-excel函数的定义函数,excel自定义函数怎么用

Excel中怎样自定义函数-excel函数的定义函数,excel自定义函数怎么用

作者:乔山办公网日期:

返回目录:excel表格制作


首先打开“工具”菜单,单击“宏”命令中的“Visual Basic编辑器”,进入Visual Basic编辑环境,在“工程-VBAobject”栏中的当前表上单击鼠标右键,选择“插入”-“模块”,在右边栏创建你需要的函数(VBA程序)。


用户自定义函数--如果要在公式或计算中使用特别复杂的计算,而工作表函数又无法满足需要,则需要创建用户自定义函数。
用户自定义函数,可以通过使用 Visual Basic for Applications 来创建。

举个简单的例子:

在上述Excel工作表中,选择菜单“工具→宏→Visual Basic编辑器”命令,打开Visual Basic窗口,然后选择菜单“插入→模块”命令,插入一个名为“模块1”的模块。
在新窗口中拷贝以下代码:

function v(a,b)
v=a*b
end function

关闭

回到EXCEL工作表界面,输入公式
=V(B1,C1)
如果B1=9,C1=9,则自定义函数执行结果为B1*C1=81(就是代码中的a*b)

完毕之后点文件-另存格式为-加载宏。
宏的保存与调用
菜单--文件--另存为 保存类型选-加载宏.xla
菜单--工具--加载宏,找出V

相关语法涉及VB内容,请参阅相关资料。

举例说明。

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

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

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)。结果如图:

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网