Добрый день, уважаемый форумчани!
ниже пользовательская функция, которая ругается на Ошибку: Compile error: ByRef argument type mismatch
как можно от этого избавиться?
функция в отделенной книге работает без проблем, а я добавил её в мою надстройку и начала ругаться.
ниже пользовательская функция, которая ругается на Ошибку: Compile error: ByRef argument type mismatch
Код |
---|
Function GETLASTWORD(ByVal Text As String, Optional Separator As Variant) Dim lastword As String If IsMissing(Separator) Then Separator = " " End If lastword = StrReverse(Text) lastword = Left(lastword, InStr(1, lastword, Separator, vbTextCompare)) GETLASTWORD = StrReverse(replace(lastword, Separator, "")) End Function |
как можно от этого избавиться?
функция в отделенной книге работает без проблем, а я добавил её в мою надстройку и начала ругаться.