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

SCYANGYU

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.

1. 
   
2. Excel(xlfRegister,0,14,&xModuleText,TempStr(" Espervie"),
   
3. TempStr(" PKKPP"),TempStr(" ESPERVIE"),TempStr(" Deces,Pop,Age,Annees"),
   
4. TempNum(1),TempStr(" Indicateurs de mortalitй"),TempMissing(),
   
5. TempStr(" C:\\Program Files\\XLLs\\Mortalit.hlp!0"),
   
6. TempStr(" Calcule une espйrance de vie"),
   
7. TempStr(" Effectifs cumulйs de dйcиs par classes d'вge (en 5)"),
   
8. TempStr(" Population par classes d'вge quinquennales"),
   
9. TempStr(" Age de base (par dйfaut : 0)"),
   
10. 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

另一种更好的方法：


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.

1. 
   
2. Const Lib = """c:\windows\system\user32.dll"""
   
3. Option Base 1
   
4. 
   
5. Private Function Multiply(N1 As Double, N2 As Double) As Double
   
6.   Multiply = N1 * N2
   
7. End Function
   
8. 
   
9. '==========================================
   
10. 
    
11. Private Function Divide(N1 As Double, N2 As Double) As Double
    
12.   Divide = N1 / N2
    
13. End Function
    
14. 
    
15. '==========================================
    
16. 
    
17. Sub Auto_open()
    
18. 
    
19.   Register "DIVIDE", 3, "Numerator,Divisor", 1, "Division", _
    
20.     "Divides two numbers", """Numerator"",""Divisor """, "CharPrevA"
    
21.   Register "MULTIPLY", 3, "Number1,Number2", 1, "Multiplication", _
    
22.     "Multiplies two numbers", """First number"",""Second number """, _
    
23.     "CharNextA"
    
24. 
    
25. End Sub
    
26. 
    
27. '==========================================
    
28. 
    
29. Sub Register(FunctionName As String, NbArgs As Integer, _
    
30.   Args As String, MacroType As Integer, Category As String, _
    
31.   Descr As String, DescrArgs As String, FLib As String)
    
32.   
    
33.   Application.ExecuteExcel4Macro _
    
34.   "REGISTER(" & Lib & ",""" & FLib & """,""" & String(NbArgs, "P") _
    
35.   & """,""" & FunctionName & """,""" & Args & """," & MacroType _
    
36.   & ",""" & Category & """,,,""" & Descr & """," & DescrArgs & ")"
    
37. 
    
38. End Sub
    
39. 
    
40. '==========================================
    
41. 
    
42. Sub Auto_close()
    
43.   
    
44.   Dim FName, FLib
    
45.   Dim I As Integer
    
46.   FName = Array("DIVIDE", "MULTIPLY")
    
47.   FLib = Array("CharPrevA", "CharNextA")
    
48.   For I = 1 To 2
    
49.     With Application
    
50.       .ExecuteExcel4Macro "UNREGISTER(" & FName(I) & ")"
    
51.       .ExecuteExcel4Macro "REGISTER(" & Lib & _
    
52.         ",""CharPrevA"",""P"",""" & FName(I) & """,,0)"
    
53.       .ExecuteExcel4Macro "UNREGISTER(" & FName(I) & ")"
    
54.     End With
    
55.   Next
    
56.   
    
57. End Sub
    

复制代码

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

lxcapp

汉语太少了

Laolangsex

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

SCYANGYU

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

SCYANGYU

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

Laolangsex

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

Laolangsex

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

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

SCYANGYU

实际上，我用的是我自己的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

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