У меня написана пользовательская функция, которая прописывает номера накладных, как мне преобразовать формулы функции в значение?
Код |
---|
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 |