Question

我是vba的初学者，但是已经在Excel中创建了一个带有多个用户自定义函数（UDF）的自定义“添加”......它们都适用于多个用户，但我无法弄清楚如何更新参考数据在ThisWorkbook中。背景：我在同一行业中有几个客户，每个客户都有一个自定义电子表格，但是，一般的Excel功能和参考数据（统计费率等）是相同的，所以我建立了UDF以使用index /自动提取费率/计算结果比赛。我无法弄清楚的是如何更新我在添加中保存的参考数据 - “费率”表 - 我需要每年输入一个新费率（并调整范围）但我无法打开/查看我的“添加”中的Excel工作表。这是我的代码：

Function RATE1(Year As Double)
    Dim WBT As Workbook
    Dim WSD As Worksheet
    Set WBT = ThisWorkbook
    Set WSD = WBT.Worksheets("Rates")

RATE1 = Application.WorksheetFunction.Index(WSD.Range("R3:r25"), Application.WorksheetFunction.Match(Year, WSD.Range("N3:n25"), 0), 1)

End Function

非常感谢任何帮助/建议。感谢。

Answer 1

打开一个包含添加内容链接的电子表格。打开VBA编辑器。在项目资源管理器中，您将看到显示的添加项。单击此按钮，然后打开ThisWorkbook。单击此处，然后在Properties Explorer中查找属性“IsAddin”。将此设置为false，将显示您的添加。进行更改，然后将IsAddin属性设置为True。然后单击项目浏览器中的添加项，然后单击VB编辑器工具栏中的“保存”图标，保存更改。

在Excel中编辑数据添加（使用索引/匹配的UDF）

1 个答案: