Как получить таблицу, на которую ссылается формула ячейки

Question

Function LinkedSheet(rgCell As Range) As Worksheet 
'Returns the worksheet that the cell formula references 
'Returns nothing if there's no formula 
    Dim strFormula As String 

    strFormula = rgCell.Cells(1, 1).Formula 

    If (strFormula <> "") Then 
     'Return the sheet that this range is linked to 
    End If 
End Function 

Может ли кто-нибудь помочь мне выполнить эту функцию? Имейте в виду, что это должно работать для внутренних ссылок, внешних ссылок, а также ссылки на листы с пробелом в имени как «Лист 1»

Edit: В ответ на Сиддхарт Rout, я уже пытался

Function LinkedSheet(rgCell As Range) As Worksheet 
'Returns the worksheet that the cell formula references 
'Returns nothing if there's no formula 
    Dim strFormula As String, sheetName As String 

    strFormula = rgCell.Cells(1, 1).Formula 

    If (strFormula <> "") Then 
     'Return the sheet that this range is linked to 
     sheetName = Mid(strFormula, 2, InStr(1, strFormula, "!") - 2) 
     Set LinkedSheet = ThisWorkbook.Worksheets(sheetName) 
    End If 
End Function 

, который не подходит для листов с пробелом в названии. Тем не менее, я не хотел публиковать это, потому что я считаю, что должен быть лучший, более эффективный способ решения проблемы, и я не хотел туннелировать мысли людей в том же направлении, в котором я пошел.

Answer 1

Вот мое решение

Function LinkedSheet(rgCell As Range) As Worksheet 
'Returns the worksheet that the cell formula references 
'Returns nothing if there's no formula 
    Dim strFormula As String, sheetName As String 

    strFormula = rgCell.Cells(1, 1).Formula 

    If (strFormula <> "") Then 
     'Return the sheet that this range is linked to 
     If (InStr(1, strFormula, "='") = 0) Then 
      sheetName = Mid(strFormula, 2, InStr(1, strFormula, "!") - 2) 
     Else 
      sheetName = Mid(strFormula, 3, InStr(1, strFormula, "!") - 4) 
     End If 
     Set LinkedSheet = ThisWorkbook.Worksheets(sheetName) 
    End If 
End Function 

Я не совсем доволен. Я все еще думаю, что могут быть лучшие подходы, но это работает.