excel ——vba 的自定义函数 [推广有奖]

0关注
0粉丝

大专生

还不是VIP/贵宾

威望: 0 级
论坛币: 7 个
通用积分: 0
学术水平: 0 点
热心指数: 0 点
信用等级: 0 点
经验: 687 点
帖子: 22
精华: 0
在线时间: 53 小时
注册时间: 2010-5-10
最后登录: 2016-11-10

楼主

马家寨 发表于 2010-6-23 00:16:33 |AI写论文

1论坛币

求求各位大虾
我在excel——vba 里写下了这样一个函数produtarray（list）
Public Function productarray(list)
Dim item As Variant
productarray = 1
For Each item In list
If WorksheetFunction.IsNumber(item) Then
productarray = productarray * item
End If
Next item
End Function
我知道一般的注释可以这样做：用冒号或是rem
我的问题是：怎么做才能注释，能在菜单“插入”——函数——自定义函数——productarray 时看到这样一个注释：这是一个求数组乘积的函数？？？？

分享0 收藏0 回帖

关键词：EXCEL 自定义函数 xcel exce VBA EXCEL VBA 函数定义

相关帖子

像火一样的有爱心！

沙发

bluebluestar 发表于 2010-6-23 21:10:03

Sub setoption()
Application.MacroOptions Macro:="productarray", Description:="计算数组乘积", helpFile:=ThisWorkbook.Path & "\productarrayHelp.chm"
End Sub

藤椅

bluebluestar 发表于 2010-6-23 21:11:32

Sub setoption()
Application.MacroOptions Macro:="productarray", Description:="计算数组乘积", HelpFile:=ThisWorkbook.Path & "\productarrayHelp.chm"
End Sub

板凳

马家寨 发表于 2010-6-30 23:24:56

非常谢谢楼主

像火一样的有爱心！

报纸

马家寨 发表于 2010-6-30 23:49:58

呵呵，楼主啊，怎么还是没搞定啊。我把文件放到c盘里名为11.xls，程序如下：
Public Function prodarray(list)
Dim item As Variant
prodarray = 1
For Each item In list
If WorksheetFunction.IsNumber(item) Then
prodarray = prodarray * item
End If
Next item
End Function

Sub setoption()
Application.MacroOptions Macro:="prodarray", Description:="计算数组乘积", HelpFile:="c:\11.xls\productarrayHelp.chm"
End Sub

像火一样的有爱心！