在 VBA Excel 2007 中使用命名范围

Posted 2023-04-14

【中文标题】在 VBA Excel 2007 中使用命名范围

【英文标题】：Using Named Ranges in VBA Excel 2007

【发布时间】：2017-03-30 15:32:28

【问题描述】：

我正在尝试通过在 Excel 2007 中使用 VBA 访问命名范围。当我使用显式范围，即“A3:M53”时，我可以使下面的公式起作用。但是，当我用命名范围替换显式范围时，出现错误。我需要使用命名范围，因为程序需要根据导入的数据选择不同的范围。 Fixed.OAX.5 是 OAX50 工作表上的一个命名范围。

WorksheetFunction.Match(5, Worksheets("OAX50").Range("Fixed.OAX.5"), 1)

当我运行此代码时，我得到“无法获取 WorksheetFunction 类的匹配属性。

【问题讨论】：

尝试删除工作表引用。

【参考方案1】：

您很可能在 Worksheets("OAX50").Range("Fixed.OAX.5") 中找不到价值 5

使用Application.Match() 并包装任何可能的错误：

Dim x As Variant
With Worksheets("OAX50").Range("Fixed.OAX.5")
    x = Application.Match(5, .Cells, 1)
    If IsError(x) Then
        MsgBox "Sorry, no match for '5' in range " & .Address & " of worksheet '" & .Parent.Name & "'"
    Else
        'your code to exploit 'x'
    End If
End With

【讨论】：

@physics90，你通过了吗？

我将根据您的建议尝试一下。

那行得通。谢谢一堆。但为什么？为什么我不能使用 worksheetfunction.match 或 worksheetfunction.index？为什么我不能直接在方程式中使用参考？

使用这些方法的 WoksheetFunction version 会带来处理错误的需要，如果这些方法无法找到您告诉他们搜索的内容。虽然应用程序 version 将错误包装在 Variant 返回值中，您可以使用 IsError() 函数查询

问题是没有任何错误。值 5 在表中，是在我切换到您的方法时找到的。