作者:乔山办公网日期:
返回目录:excel表格制作
用户自定义函数--如果要在公式或计算中使用特别复杂的计算,而工作表函数又无法满足需要,则需要创建用户自定义函数。
用户自定义函数,可以通过使用 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)
完毕之后点文件-另存格式为-加载宏。zd
宏的保存与调用
菜单--文件--另存为 保存类型选-加载宏.xla
菜单--工具--加载宏,找出V
相关语法涉及VB内容,请参阅相关资料。
举例说明。
例如要做一个单元格求和的自copy定义函数,比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)。结果如图:
我的是office 2013,在VBE界面可以看到插入菜百单中的【模块】
你确定是度office excel?问不是WPS吧?excel各种版本我都是完全安装的,没有碰到答过不出现插入回模块的情况。
能截图答上来吗?插入菜单下整个界面的截图
函数都是预设的,要记住输入函数时一定要先输入一个等于号.如下:
举个最简单的例子,C1单元格要放来A1说B1的总和数据,你可以在C1单元格内先输入等于号,再用鼠源标单击A1再手动输入一个加号,再单击B1再回车,那么C1就有一个预设的函数了.你将鼠标指针指向C1单元格右下角直至它变成实心加号,按住不放往下拖,你想有多少行就有多少行.你想要求和的数据只要分zd别输入在A1于B1单元格内就OK了.