如何在输入自定义函数也显示参数提示

grandf · 发表于 2007-11-13 13:06

hao tai haole

hhzjxss · 发表于 2008-8-4 15:45

我不明白的是：

1、第一次在空白单元格插入该自定义函数时，是没有参数显示的？

2、但在已经有该自定义函数的单元格再次插入该自定义函数时，就有参数显示了？

动画操作过程如下：

sd6310514 · 发表于 2009-8-8 11:12

学习下谢谢楼主

xzqzgr · 发表于 2011-7-2 18:49

找到一个非常详细的说明，提供链接，供参考。
http://hi.baidu.com/%B4%BA%B7%D6 ... a7b6ae6d811925.html

hotels · 发表于 2011-3-13 17:50

总算找到了实现的方法

wjmm · 发表于 2011-5-16 20:24

不错，做个标记

xwloveyou888 · 发表于 2011-8-1 11:20

Const Lib = """c:\windows\system32\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
使用这个例子可以添加自定义函数说明。
对于xp系统，Const Lib = """c:\windows\system32\user32.dll"""，其他系统需要找到user32.dll的路径填入。输入代码保存后，需要重启excel改函数才能加入说明
代码原地址：http://www.j-walk.com/ss/excel/eee/eee009.txt
基本原理是利用了Excel4Macro来伪造一个自定义函数同名的dll，使用dll的说明在添加自定义函数的说明，而excel正常调用的函数为自定义函数，参数显示为dll。
其他添加自定义函数说明的方法为：http://hi.baidu.com/%B4%BA%B7%D6 ... a7b6ae6d811925.html

xwloveyou888 · 发表于 2011-8-1 11:51

原帖由 hhzjxss 于 2008-8-4 15:45 发表
我不明白的是：1、第一次在空白单元格插入该自定义函数时，是没有参数显示的？  2、但在已经有该自定义函数的单元格再次插入该自定义函数时，就有参数显示了？  动画操作过程如下： 

个人感觉出现12楼现象的原因是没有能立即注册该函数对应的说明。具体更改本人不会但是贴出一个实例，可以实现函数说明的添加。
请问12楼得兄弟，您的那个gif动画是怎么做出来的，用了什么软件啊？

香川群子 · 发表于 2011-8-11 15:47

很好，很有趣。

我自己的自定义函数，是把参数说明作为注释写在代码里的。

需要看得话，打开VBA编辑器看就是了。

不过，如果做成dll注册，就能方便其他使用者了。
也确实是件好事。

baomaboy · 发表于 2011-8-11 20:23

并不是做成dll注册，只是借用一下系统dll文件的入口。

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

如何在输入自定义函数也显示参数提示

回复 2楼 yxy博的帖子

回复 19楼香川群子的帖子

如何在输入自定义函数也显示参数提示

回复 2楼 yxy博 的帖子

回复 19楼 香川群子 的帖子

回复 2楼 yxy博的帖子

回复 19楼香川群子的帖子