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

grandf

hao tai haole

hhzjxss

我不明白的是：

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

 

 

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

 

 

动画操作过程如下：

 

sd6310514

学习下 谢谢楼主

xzqzgr

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

hotels

总算找到了实现的方法

wjmm

不错，做个标记

xwloveyou888

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

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

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

香川群子

很好，很有趣。

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

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


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

baomaboy

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