Ссылочный номер c столбец для функции

Question

Я пытаюсь удалить CellRef As Range в качестве параметра, поэтому пользователю просто нужно ввести имя функции. Как мне ссылаться на абсолютный столбец с относительной строкой? (т.е. $G4).

Function CO_NAMEREFORM(CellRef As Range) As String
    '=LEFT($G4,FIND("/",$G4)+1)
    CO_NAMEREFORM = Left(CellRef, InStr(CellRef, "/") + 1)
End Function

Answer 1

Вы можете использовать Application.ThisCell.

Public Function CO_NAMEREFORM() As String
    Application.Volatile

    With Application.ThisCell
        Dim CellRef As Range
        Set CellRef = .Parent.Range("G" & .Row)
    End With

    '=LEFT($G4,FIND("/",$G4)+1) 
    CO_NAMEREFORM = Left(CellRef.Value, InStr(CellRef.Value, "/") + 1)  
End Function

Но, по моему мнению (и другим), это плохая идея - в качестве @Scott Craner указал, что теперь функция должна быть изменчивой, и это только увеличивает накладные расходы.