Excel VBA 检查是否设置了命名范围

Question

我正在尝试确定是否已通过 VBA 设置命名范围。命名范围称为 LoadedToken，本质上是在用户单击特定按钮时加载的。我用它作为初始化已经发生的证据。

我有一个函数来检查是否发生了这种情况:

Function ToolIsEnabled()

    ' We check if the R2A add-in has been loaded by detecting the named range
    If ActiveWorkbook.Names("LoadedToken") Is Nothing Then
        ToolIsEnabled = False
    Else
        ToolIsEnabled = True
    End If

End Function

并且我收到应用程序错误。当然，VBA是不正确的。但是我怎样才能真正做到这一点？!

Answer 1

Sub Test()
    Debug.Print IsNamedRange("Bumsti")
End Sub

Function IsNamedRange(RName As String) As Boolean
Dim N As Name

    IsNamedRange = False
    For Each N In ActiveWorkbook.Names
        If N.Name = RName Then
            IsNamedRange = True
            Exit For
        End If
    Next
End Function

OP 上下文中的用法可能是

' ...
If IsNamedRange("LoadedToken") Then
    ' ...
End If
' ...

或者 - 如果需要设置程序特定的 bool 值

' ...
Dim IsTokenLoaded as Boolean
IsTokenLoaded = IsNamedRange("LoadedToken")
' ...

这两种结构都在源代码中非常清楚地表明了您的目标。