创建一个返回的UDF返回一个公式

Question

我是VBA的新手，并且一直在阅读有关用户定义函数和宏的所有信息。我希望有人可以帮助我完成一个项目。

我订阅了一项服务，该服务使用功能区中的加载项将信息提取到excel中。拉入公式的唯一方法是：1）使用涉及大量点击和等待的色带或2）将公式输入到单元格中也需要花费时间。

在excel上，对于普通函数（即if，find，text），我经常使用制表符快捷键来填写公式。我想在excel中创建一个公式（使用VBA），这样我就可以写“=” - 然后点击标签 - 然后引用一个单元格 - 然后公式获取引用的单元格并返回一个公式。

仅供参考 - 我使用的是Windows 7和Office 2013

例如：

• IF cell A1输入数= 12345
• 在Cell B1中输入引入data =“= ABC（A1，”Value_Name“）
的Comm公式
• Cell B1将显示= ZYZYZYZY（来自订阅数据库）

如何编写基本上执行的VBA代码：

Function (Value)
Returns =ABC(Value,"Value_Name") 
: Which then calls the comm function and returns ZYZYZYZY
End Function

我尽力解释我想要做什么 - 如果难以理解，请道歉。

由于

Answer 1

您可以使用Application.Run调用其他函数：

Public Function MyUDF(Value As Variant) As Variant
    MyUDF = Application.Run("ABC", Value, "Value_Name")
End Function