Как получить диапазон смещения для работы в формуле?

Question

У меня проблемы с получением диапазона смещения в формуле. Идея состоит в том, чтобы пользователь ввел текст, который он хочет найти, в строке, значение, если оно найдено, и значение, если оно не найдено. А затем превратить все это в формулу, которая вставляется в выбранную ячейку на активном листе. Проблема заключается в том, что формула возвращает значение SearchCell, а не диапазон.

Как можно указать диапазон SearchCell в формуле, а не значение SearchCell?

Sub SearchString()


Dim SelectedCell    As Range
Dim SearchCell      As Range
Dim SearchValue     As Variant
Dim FoundValue      As Variant
Dim NotFoundValue   As Variant


Set SelectedCell = Application.Selection
Set SearchCell = SelectedCell.Offset(, -1)

SearchValue = InputBox("What do you want to search for?")
FoundValue = InputBox("If found?")
NotFoundValue = InputBox("If not found?")

SelectedCell.Formula = "=IF(ISNUMBER(SEARCH(""*" & SearchValue & "*""," & SearchCell & ")), _
""" & FoundValue & """, """ & NotFoundValue & """)"


End Sub

Answer 1

SearchCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)