Страницы: 1
RSS
Преобразовать формулу в значение
 
У меня написана пользовательская функция, которая прописывает номера накладных, как мне преобразовать формулы функции в значение?
Код
Function AWB(Префикс_авиакомпании As Variant, Порядковый_номер As Variant) As String
    Dim l As Long
    Dim k As Long
    k = CDbl(Порядковый_номер) + Application.Caller.Row - 2
    l = k - Int(k / 7) * 7
    AWB = Префикс_авиакомпании & "-" & k & l
End Function
 
Данный макрос преобразует формулы выделенного диапазона ячеек в значения.
Код
Sub FormulasToValues()
    Selection.Formula = Selection.Value
End Sub
 
Цитата
Ибрагим Белхороев написал: преобразовать формулы функции в значение
Пользовательская функция возвращает значение, не формулу. Вы что спрашиваете? Заменить формулу с функцией значением? Функция НЕ МОЖЕТ сама себя удалить из ячейки. Это можно сделать только другим макросом
Страницы: 1
Наверх