Получить ячейку с адреса

Question

В Excel VBA я хотел бы сделать это:

Dim cellAddress As String, cell As Range
Set cellAddress = "=Sheet1!A7"
Set cell = GetCellFromAddress(cellAddress)

Как наилучшим образом реализовать «GetCellFromAddress»?Я знаю, что могу разобрать cellAddress, но это немного неловко ...

Я использую Excel 2007, если это важно.

Answer 1

Dim cellAddress As String, cell As Range
cellAddress = "=Sheet1!A7"

Set cell = Range(cellAddress)

MsgBox cell.Address(True, True, xlR1C1, True)

Появится окно сообщения с текстом:

---------------------------
Microsoft Excel
---------------------------
[Book1]Sheet1!R7C1
---------------------------
OK   
---------------------------

Веселитесь!

Answer 2

Я думаю, что ответ фрирайдера достаточно хорош, и я проголосовал за него.

Если вы хотите, чтобы его решение было реализовано как GetCellFromAddress

Function GetCellFromAddress(cellAddress As String) As Range
    Set GetCellFromAddress = Range(cellAddress)
End Function

Sub test()
    Dim cellAddress As String, cell As Range
    cellAddress = "=Sheet1!A7"

    Set cell = GetCellFromAddress(cellAddress)
    MsgBox cell.Address(True, True, xlR1C1, True)
End Sub