如何在UDF中传递范围以计算范围大小？

Question

有人可以帮我纠正用户定义函数的编码吗？我只是试图测量用户指定范围的尺寸。我无法通过范围。

Function PageSize(MyArea As Range) As String

Dim r As Range
    Application.Volatile

    Set r = Range("MyArea") ' did not work without quotes

    Debug.Print r.Width
    Debug.Print r.Height

        PageSize = r.Width & " x " & r.Height

End Function

谢谢。我看到的例子比我认为的要复杂得多。

Answer 1

我改变了

Set r = Range("MyArea")

到

Set r = Range(MyArea.Address)

它奏效了。