VBA：如何按定义的名称显示单元格值？

Question

我已经为工作表中的特定列定义了名称。 如何通过定义的名称显示单元格值？

我已经尝试过这些：

  Public Sub Test()
    Dim R As Range
    Set R = ThisWorkbook.Names("SomeName").RefersToRange
    MsgBox CStr(R.Value)
  End Sub

但发生运行时错误“类型不匹配”（错误代码：13）。

代码有什么问题吗？ RefersToRange.Value 的实际数据类型是什么？

文档说 RefersToRange 返回 Range 对象，但它似乎与 ActiveCell 返回的 Range 对象不同，因为我对以下代码没有问题：

  MsgBox CStr(ActiveCell.Value)

我一直在使用 Excel 2003

Answer 1

RefersToRange 确实返回一个 Range 对象。我假设您在 Cstr 线上发现类型不匹配。如果该区域有多个单元格，则 Value 属性返回一个 Variant 数组。在立即窗口中执行此操作（VBE 中的 Control+G）。

?typename(thisworkbook.Names("SomeRange").RefersTorange)
Range
?typename(thisworkbook.Names("SomeRange").RefersToRange.Value)
Variant()

CStr 函数无法处理数组参数，这就是您收到该错误的原因。您可以访问该范围内的特定单元格，例如第一个单元格，如下所示

ThisWorkbook.Names("SomeRange").RefersToRange(1).Value

，或者按照 Fink 的建议循环遍历它们。

Answer 2

如果范围跨越多个单元格，您需要迭代该范围内的单元格并分别获取每个单元格的值。否则会抛出错误。

Sub Test()

    Dim r As Range
    Dim cell As Range

    Set r = Range("Something")

    If r.Cells.Count > 1 Then
        For Each cell In r.Cells
            MsgBox cell.Value
        Next cell
    Else
        MsgBox r.Value
    End If
End Sub

但是，您可以通过设置多单元格区域的值来将该值设置为区域中定义的所有单元格，如下所示：

Sub Test()

    Dim r As Range

    Set r = Range("Something")

    r.Value = "Test"
End Sub

Answer 3

您应该能够只向 Range（甚至 Cells）属性提供名称：

Set R = ThisWorkbook.Range("SomeName")

Answer 4

您可以通过名称获取单元格值，如下所示：-

Workbook.Range("SomeName").Value