VBA Excel - 尝试使用函数创建范围时出错

Question

I'm not sure where the problem is with this bit of code I worked out. I have the following public declarations and function:

Public g_0 As Range
Public Enum RngType
    A = 1
    H = 2
    X = 3
End Enum


Function RngMk(csTable As String, csType As RngType, Optional csHeaderName As Variant = "")

Dim str As String

Select Case csType
    Case RngType.A
        If csHeaderName = "" Then
            str = csTable & "[#All]"
        Else:
            str = csTable & "[[#All],[" & csHeaderName & "]]"
        End If
    Case RngType.H
        If csHeaderName = "" Then
            str = csTable & "[#Headers]"
        Else:
            str = csTable & "[[#Headers],[" & csHeaderName & "]]"
        End If
    Case RngType.X
        If csHeaderName = "" Then
            str = csTable
        Else:
            str = csTable & Chr(91) & csHeaderName & Chr(93)
        End If
End Select

RngMk = Range(str)

End Function

The code above should establish any range inside a given table ListObject. However, when I add the following into a Sub

g_0 = RngMk("Table1", A, "Name")

g_0.Select

I get the error "91 - Object variable or With block variable not set". I'm not sure what I'm missing...

Answer 1

In your function use

Set RngMk = Range(str)

This should solve your issue.

And still "set" g_0 = rngmk(.....)