在引用中添加带有公式的名称时出现 VBA 错误

Question

我正在尝试向我的工作簿添加名称。该引用有一个 INDEX 公式。我在这行代码上遇到错误:

ActiveWorkbook.Names.Add Name:=RangeName, RefersTo:=Reference

我尝试使用ActiveWorkbook并尝试定义工作表。

我想它不起作用，因为名称范围无法与工作表匹配，因为它有一个函数，但我不知道如何解决。有人有建议吗？

Sub NameRange_Add3()
Dim RangeName As String
Dim Reference As String
Dim i As Integer


For i = 2 To 6
    RangeName = "list" & i
    Reference = "=INDEX(tabla_1;;MATCH(" & "hszis" & i & ";hszi_list;0))"
    ActiveWorkbook.Names.Add Name:=RangeName, RefersTo:=Reference
Next i

End Sub

Answer 1

当您在 VBA 中创建公式时，您需要使用英文表示法，这意味着点作为小数分隔符，逗号作为函数参数分隔符。

您可以执行@brettdj 所做的操作并使用逗号

Reference = "=INDEX(tabla_1,,MATCH(" & "hszis" & 1 & ",hszi_list,0))"

或者使用RefersToLocal代替RefersTo

ActiveWorkbook.Names.Add Name:=RangeName, RefersToLocal:=Reference

不过，我更喜欢第一个解决方案，因为否则如果您在具有不同语言设置的计算机上执行宏，它可能会失败。