Как заставить функцию с формулой внутри работать:
Код |
---|
Public Function ОБРЕЗАТЬ(SelectCell As Range, First As String, Last As String)
ОБРЕЗАТЬ = "=LEFT(REPLACE(" + SelectCell.Address + ";1;SEARCH(""" + First + """;" + SelectCell.Address + ")+6;"""");SEARCH(""" + Last + """;REPLACE(" + SelectCell.Address + ";1;SEARCH(""" + First + """;" + SelectCell.Address + ")+6;"""")))"
End Function |
Код |
---|
Public Function ОБРЕЗАТЬ(SelectCell As Range, First As String, Last As String)
ОБРЕЗАТЬ = "=ЛЕВСИМВ(ЗАМЕНИТЬ(" + SelectCell.Address + ";1;ПОИСК(""" + First + """;" + SelectCell.Address + ")+6;"""");ПОИСК(""" + Last + """;ЗАМЕНИТЬ(" + SelectCell.Address + ";1;ПОИСК(""" + First + """;" + SelectCell.Address + ")+6;"""")))"
End Function |
При использовании в ячейке появляется сама формула, а нужен результат. Как правильно сделать??