作者:乔山办公网日期:
返回目录:excel表格制作
举例说明。
例如要做一个单元格求和的自定义函数zhidao,比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)。结答果如图:
用户自知定义函数--如果要在公式或计算中使用特别复杂的计算,而工作表函数又无法满足需要,则需要创建用户自定义函数。
用户自定义函数,可以通过使用 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内容,请参阅相关资料。
用户自定百义函数--如果要在公式或计算中使用特别复杂的计算,而工作表函数又无法满足需要,则需要创建用户自定义函数。
用户自定义函数,可以通过使用 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内容,请参阅相关资料。