Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 След.
Ошибка: Compile error: ByRef argument type mismatch
 
sokol92, Спасибо большое!
Ошибка: 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

как можно от этого избавиться?
функция в отделенной книге работает без проблем, а я добавил её в мою надстройку и начала ругаться.
Менять цвет определенных букв в ячейке
 
Андрей VG,
спасибо! прекрасно работает.
а можно сделать так чтобы можно было  передать Const thatChars = "ман" через inputBox
спасибо я разабрался
Изменено: azma - 8 июн 2020 09:23:08
Менять цвет определенных букв в ячейке
 
Андрей VG,

честно вас не понял, к чему Вы клоните?
я взял МАН как пример, можно и другое, головное для меня прядок бук в слове
Изменено: azma - 8 июн 2020 08:04:22
Менять цвет определенных букв в ячейке
 
Доброго времени суток. во общем такой вопрос.
посредством vba нужен макрос, который ищет определенные буквы в ячейках (например: ман) и  если данные буквы присутствует в таком порядке то закрашивает только их  в определенный цвет(красный) а если не в таком порядке то, не меняет не надо.
Извлечь из текста только фамилию
 
Огромное спасибо всем !
Извлечь из текста только фамилию
 
Kuzmich,

у вас хорошо работает
только почему в таких  как ниже переведено   некорректно работает

ЧП   "Джумабаева" г.Шымкент
ЧП "Хажиев Б.Б." г.Шымкент
Извлечь из текста только фамилию
 
Цитата
Kuzmich написал:
Что выделять в отдельную ячейку, если ИП или ТОО в конце текста? Что делать с ЧП?
только фамилию.
Изменено: azma - 31 май 2020 18:37:17
Извлечь из текста только фамилию
 
Цитата
Михаил Л написал:
У вас что, своя лаборатория есть?)
нет, я сотрудник
Извлечь из текста только фамилию
 
Цитата
Михаил Л написал:
А вы когда находите этих людей вы их куда отвозите?)
Спасибо большое!
я планирую объединить клиентов разными способами( сами знаете, что операторы дистрибьюторов как попало пишут контрагентов в 1С)
1 этап у меня будет объединить однофамильцев, далее капать глубже чтобы выявить потенциал кожного клиента.
Извлечь из текста только фамилию
 
посмотрите пожалуйста, файл во вложении

формулы, и функция не корректно работают с некоторыми текстами.
прошу Вас сделать так , чтобы из них тоже можно было извлечь фамилию
Изменено: azma - 31 май 2020 12:29:43
Извлечь из текста только фамилию
 
спасибо, понял!

я макросом сделаю Фильтр по нескольким значениям по частичному совпадению
а потом буду использовать формулы
Изменено: azma - 31 май 2020 09:19:17
Извлечь из текста только фамилию
 
меня интересуются русские и украинские фамилии
Изменено: azma - 31 май 2020 08:45:34
Извлечь из текста только фамилию
 
Цитата
Михаил Л написал:
Михаил Л
Спасибо большое!
в оригинале встречаются название без фамилии, например:
Кадам
Магай-Атырау
Jurists Т  


Можно сделать так чтобы в ячейках на против этих слов было пусто
Изменено: azma - 31 май 2020 08:26:22
Извлечь из текста только фамилию
 
Здравствуйте всем!
Прошу Вас помочь, во вложении есть пример.
я питался с помощью регулярного выражения извлечь фамилию, но не получается
для этого я использовал  [а-яА-ЯёЁ]+

не обязательно с помощью РВ, можно с помощью ( макроса, PQ, формулы)
Прогнозы при кризисе
 
Цитата
Ігор Гончаренко написал:
обычный прогноз и умножаю на ноль
:)
такого сильного падения в фарм-бизнесе не бывает.
Изменено: azma - 23 май 2020 12:47:02
Прогнозы при кризисе
 
Добрый день, многоуважаемые форумчани!
ِСкажите пожалуйста, есть ли метод прогноза продажи при кризисе?
Если кризисе только начался,то есть когда ты ведешь что кризис только начался с апреля, а у тебя продажи до это на несколько лет не упали.
где можно про это читать? мне интересна как эксперты прогнозируют продажи при кризисе, почему например говорят падение рынка в таком сегменте будет на 3% или 6% и.т.д.
 
Макрос для замены цвета ячеек с кодом цвета "4" например на "3"
 
У меня работает
Формула определеяющая тип контрагента (как сделать из макроса функцию)
 
Бывает в тексте  ТОО или АО английскими буквами :(
также Ип, ИП, иП  , короче  много нюансов нужно учитывать
Изменено: azma - 17 май 2020 09:58:19
Формула определеяющая тип контрагента (как сделать из макроса функцию)
 
Цитата
БМВ написал:
кто знает что будет в реальной жизни
Бывает такой:
ЖАНАОЗЕН, ИП Абышева Гульшат Озбекбаевна
типа конрагента будет "Юр.лицо"
Программное добавление объектной модели. Ошибка - Compile error: User-defined type not defined
 
спасибо, я разобрался !
Код
    Dim VBAEditor As Object
    Dim vbProj As Object
    Dim chkRef As Object
    Dim BoolExists As Boolean
........
 
Программное добавление объектной модели. Ошибка - Compile error: User-defined type not defined
 
Добрый день, уважаемы форумчане!
есть такой макрос, который предназначен для программного добавлении объектной модели, Он ругается на ошибку-Compile error:  User-defined type not defined

подскажите как можно как можно избежать эту ошибку.
заранее благодарю!
Код
Sub AddReference()
    Dim VBAEditor As VBIDE.VBE
    Dim vbProj As VBIDE.VBProject
    Dim chkRef As VBIDE.Reference
    Dim BoolExists As Boolean

    Set VBAEditor = Application.VBE
    Set vbProj = ActiveWorkbook.VBProject

    '~~> Check if "Microsoft VBScript Regular Expressions 5.5" is already added
    For Each chkRef In vbProj.References
        If chkRef.Name = "Microsoft Visual Basic for Applications Extensibility 5.3" Then
            BoolExists = True
            GoTo CleanUp
        End If
    Next

    vbProj.References.AddFromFile "C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"

CleanUp:
    If BoolExists = True Then
        MsgBox "Reference already exists"
    Else
        MsgBox "Reference Added Successfully"
    End If

    Set vbProj = Nothing
    Set VBAEditor = Nothing
End Sub
 
Поиск и замена по номеру серии (макрос)
 
Цитата
Андрей_26 написал:
Макрос
отлично работает
Поиск и замена по номеру серии (макрос)
 
Огромное спасибо всем!!
Поиск и замена по номеру серии (макрос)
 
Цитата
Сергей написал:
в столбец С протянуть скопировать вставить как значения в В
ВПР не пойдет, возможно первая дата( первое совпадение) будет "00.00.0000" тогда и её вставит
нужно исключить этого
Изменено: azma - 24 апр 2020 08:45:44
Поиск и замена по номеру серии (макрос)
 
Здравствуйте всем!
есть такая задача:
Серия                        Срок годности
19B15C        29.02.2024
19B15C         00.00.0000
в колонке В есть дата B виде текста "00.00.0000" а в колонке A номер серии.
нужно искать по номер серии соответствующую дату и заменить "00.00.0000" на  неё .
Изменено: azma - 24 апр 2020 07:29:55
VBA. Вставить переменную в формулу
 
спасибо получилось!
VBA. Вставить переменную в формулу
 
Цитата
vikttur написал:
Если переменную вставить в текст, она будет символом текста, а не переменной. Надо - в разрыв текста:
у меня не получается формула становится красной



ActiveCell.FormulaR1C1 = _
       "=IFERROR(VLOOKUP(INDEX(R,0,AGGREGATE(14,6,COLUMN(RC1:OFFSET(RC1,,COLUMN()-COLUMN(RC1)-1))/ISNUMBER(MATCH(RC1:OFFSET(RC1,,COLUMN()-COLUMN(RC1)-1)
,'t.xlsx'!tab10[sell],0)),1)),'t.xlsx'!tab10[#Data],"&i&",0),""нету"")""
VBA. Вставить переменную в формулу
 
Здравствуйте, уважаемые!
 возник вопрос, как можно прописать  переменную (i) в такой формуле
уменя выходить ошибка из-за того, что в ячейку вводится знак @i вместо цифры

Код
ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP(INDEX(R,0,AGGREGATE(14,6,COLUMN(RC1:OFFSET(RC1,,COLUMN()-COLUMN(RC1)-1))/ISNUMBER(MATCH(RC1:OFFSET(RC1,,COLUMN()-COLUMN(RC1)-1)
,'t.xlsx'!tab10[sell],0)),1)),'t.xlsx'!tab10[#Data],i,0),""нету"")"
Изменено: azma - 21 апр 2020 18:22:47
Регулярные выражения - извлечь дату, которые стоит после определенных слов
 
Цитата
Kuzmich написал:
pReg.Pattern = "(от|до) (\d{1,2}\.\d{1,2}\.\d{2,4})"
что не так, у меня функция вытаскивает только  "от" и "до"
Страницы: 1 2 3 4 5 6 След.
Наверх