如何给自定义函数的参数添加描述信息？

SCYANGYU · 发表于 2003-9-16 10:57

The description of this function is truncated in the SDK. The authors have kept the
definition of the FIRST xlfRegister function (the one of EXCEL 4!!!) and they don't have
updated it, whereas the new xlfRegister function (Excel 5 and above) supports more
arguments. With these new arguments, you can pass to xlfRegister a description string
for each parameter of your UDF, which will be displayed by the function wizard.

If you want to get a complete description of xlfRegister, open the file "Macrofun.hlp"
(directory "xlm" in the CD-ROM provided with the SDK), and search the topic REGISTER.

Here is an example of a complete UDF registration which I have used recently. This
"ESPERVIE" function calculates an "esperance de vie" (life expectancy). It returns a
pointer to an OPER structure and is based on four arguments : two FP structures (type
"K") and two OPERs (type "P"). The five last parameters passed to xlfRegister, displayed
by the function wizard, describe the function and each of its arguments.
When the user selects ESPERVIE in the function wizard and calls the help, it opens the
help file "Mortalit.hlp" and activates the help topic number 0.

Excel(xlfRegister,0,14,&xModuleText,TempStr(" Espervie"),
TempStr(" PKKPP"),TempStr(" ESPERVIE"),TempStr(" Deces,Pop,Age,Annees"),
TempNum(1),TempStr(" Indicateurs de mortalitй"),TempMissing(),
TempStr(" C:\\Program Files\\XLLs\\Mortalit.hlp!0"),
TempStr(" Calcule une espйrance de vie"),
TempStr(" Effectifs cumulйs de dйcиs par classes d'вge (en 5)"),
TempStr(" Population par classes d'вge quinquennales"),
TempStr(" Age de base (par dйfaut : 0)"),
TempStr(" Nombre d'annйes de dйcиs (par dйfaut : 1) "));

复制代码

Another advice : avoid the XLOPER arguments (type "R") in your user defined functions;
if you just want to get the passed values and no range references, use rather OPER
arguments ("P"). Two reasons for this : when a XLOPER structure refers to a cell
containing the RAND() function, trying to coerce this XLOPER can either return a zero if
the structure contains a single value, or entail a GPF if it contains an array (at least
in Excel 97).
I don't know if this bug has been corrected by the SR1. It arises even if you do a
xlRetUncalced test. And with OPER structures you don't have to use xlCoerce at all
(Excel does it automatically before calling the function).

[ 本帖最后由 taller 于 2008-11-16 13:30 编辑 ]

SCYANGYU · 发表于 2003-9-21 09:08

另一种更好的方法：

This example shows how to register functions into user-defined catagories and
provide descriptions for their arguments. The Auto_Open procedure registers
the two functions, Multiply and Divide in two categories Multiplication and
Division and provides descriptions of the input parameters.

Const Lib = """c:\windows\system\user32.dll"""
Option Base 1
Private Function Multiply(N1 As Double, N2 As Double) As Double
Multiply = N1 * N2
End Function
'==========================================
Private Function Divide(N1 As Double, N2 As Double) As Double
Divide = N1 / N2
End Function
'==========================================
Sub Auto_open()
Register "DIVIDE", 3, "Numerator,Divisor", 1, "Division", _
"Divides two numbers", """Numerator"",""Divisor """, "CharPrevA"
Register "MULTIPLY", 3, "Number1,Number2", 1, "Multiplication", _
"Multiplies two numbers", """First number"",""Second number """, _
"CharNextA"
End Sub
'==========================================
Sub Register(FunctionName As String, NbArgs As Integer, _
Args As String, MacroType As Integer, Category As String, _
Descr As String, DescrArgs As String, FLib As String)
Application.ExecuteExcel4Macro _
"REGISTER(" & Lib & ",""" & FLib & """,""" & String(NbArgs, "P") _
& """,""" & FunctionName & """,""" & Args & """," & MacroType _
& ",""" & Category & """,,,""" & Descr & """," & DescrArgs & ")"
End Sub
'==========================================
Sub Auto_close()
Dim FName, FLib
Dim I As Integer
FName = Array("DIVIDE", "MULTIPLY")
FLib = Array("CharPrevA", "CharNextA")
For I = 1 To 2
With Application
.ExecuteExcel4Macro "UNREGISTER(" & FName(I) & ")"
.ExecuteExcel4Macro "REGISTER(" & Lib & _
",""CharPrevA"",""P"",""" & FName(I) & """,,0)"
.ExecuteExcel4Macro "UNREGISTER(" & FName(I) & ")"
End With
Next
End Sub

复制代码

[ 本帖最后由 taller 于 2008-11-16 13:30 编辑 ]

lxcapp · 发表于 2003-9-21 11:51

汉语太少了

Laolangsex · 发表于 2003-9-21 14:08

你是在练英文吗不是的话那你练练汉语吧,我想这个论坛识汉语的人多的

SCYANGYU · 发表于 2003-9-22 11:15

我从老外的网上找来贴出，未来得及翻译和理解！

SCYANGYU · 发表于 2003-9-22 11:20

对于第一篇文章的内容，我未能理解！对于第二篇文章的内容，我已经运用到我的程序中！要点：要注意函数名称的大小写！

Laolangsex · 发表于 2003-9-22 14:45

我的为何只能注册两个我总共注了7个可是在选择的时候函数时最后一个"CharPrevA"各"CharNextA"有效,参数等都是这两个的那么在REGISTER中FLib该如何取值我的系统为OFFICE2000+WINXP

Laolangsex · 发表于 2003-9-22 16:27

以下是引用SCYANGYU在2003-9-22 11:20:00的发言： 对于第一篇文章的内容，我未能理解！对于第二篇文章的内容，我已经运用到我的程序中！要点：要注意函数名称的大小写！

REGISTER的最后一个参数为什么只能添加2个第三,第四......第N个该用何参数

SCYANGYU · 发表于 2003-10-7 08:22

实际上，我用的是我自己的DLL! Const Lib = """IFCSW67.dll""" Sub Auto_open() Register "Fun1", 3, "Numerator,Divisor", 1, "Division", _ "Divides two numbers", """Numerator"",""Divisor """, "F1" Register "Fun2", 3, "Number1,Number2", 1, "Multiplication", _ "Multiplies two numbers", """First number"",""Second number """, _ "F2" Register "Fun3", 3, "Numerator,Divisor", 1, "Division", _ "Divides two numbers", """Numerator"",""Divisor """, "F3" Register "Fun4", 3, "Number1,Number2", 1, "Multiplication", _ "Multiplies two numbers", """First number"",""Second number """, _ "F4" Register "Fun5", 3, "Numerator,Divisor", 1, "Division", _ "Divides two numbers", """Numerator"",""Divisor """, "F5" Register "Fun6", 3, "Number1,Number2", 1, "Multiplication", _ "Multiplies two numbers", """First number"",""Second number """, _ "F6" Register "Fun7", 3, "Numerator,Divisor", 1, "Division", _ "Divides two numbers", """Numerator"",""Divisor """, "F7" End Sub Sub Auto_close() Dim FName, FLib Dim I As Integer FName = Array("Fun1", "Fun2", "Fun3", "Fun4", "Fun5", "Fun6", "Fun7") FLib = Array("F1", "F2", "F3", "F4", "F5", "F6", "F7") For I = 1 To 7 With Application .ExecuteExcel4Macro "UNREGISTER(" & FName(I) & ")" .ExecuteExcel4Macro "REGISTER(" & Lib & _ ",""CharPrevA"",""P"",""" & FName(I) & """,,0)" .ExecuteExcel4Macro "UNREGISTER(" & FName(I) & ")" End With Next End Sub

Laolangsex · 发表于 2003-10-7 08:41

那么你将函数也放在自己的DLL!中了吗?你用什么工具来制作的DLL

		自动登录	找回密码
密码			免费注册