エクセルVBAでアドレス

Question

からセルを取得し、私はこれを行うしたいと思います：

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

私はfreeriderの答えは十分だと思うし、私はそれをupvoted。

あなたは彼のソリューションは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