Страницы: 1
RSS
Вытянуть из описания в ячейке марку и модел техники
 
Подскажите как можно вытянуть данные из ячейки. Видно что для марки за основу можно взять в поиске слово "марки", а для модели слово "модель #" и ближайшая запятая после этого слова, но не могу сообразить формулу для вытягивания этих данных.  
 
Смотрите файл
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
Спасибо, но можно ли задать данные чтобы вытягивалось слово между словом "модель " и последующего после него запятой.
Т.е. "модель тр435, тип ..." вытягивалось слово
- "тр435",
потому как по этой формуле вытягивается
-"тр435, тип ..."
 
Покажите в файле где такое просходит.
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
DemonAMT, По вашему первому образцу состряпал еще один вариант. От себя добавил четвертую строчку, в соответствии с постом №3 с немного другой формулой
Ориентировочное слово "модель".
 
Извините что не указал другие варианты в первоначальном файле, но оказалось что вариантов много. В некоторых случаях играет формула максима, в некоторых memo. Хотелось бы подобрать универсальную, но в принципе использовал как при ошибке два варианта. Спасибо за помощь.
 
Чуть подправил формулу, взгляните.
 
Норм. Все равно много надо править ручками, но все равно спасибо сократили мне кусок рабочего времени.
 
UDF
Код
Function getmodel$(txt$)
    With CreateObject("VBScript.Regexp")
        .Pattern = "(М|м)одель(\s|:)[^,.;]+"
        s = .Execute(txt)(0)
        .Pattern = "(М|м)одель(\s|:)"
        s = .Replace(s, "")
    End With
    getmodel = s
End Function
Соблюдение правил форума не освобождает от модераторского произвола
 
buchlotnik,
А номер рамы где?
Для модели можно UDF на базе вашей функции
Код
Function iModel(cell$)
 With CreateObject("VBScript.RegExp")
     .Global = True
     .IgnoreCase = True
     .Pattern = "Модель(\s|:)([^,.;]+)"
     iModel = .Execute(cell)(0).SubMatches(1)
 End With
End Function
 
Цитата
Kuzmich написал:
А номер рамы где?
не понял, я на пример из #6 смотрел - там про раму ничего  :)  
спс за
Цитата
Kuzmich написал:
.SubMatches(1)
, чет туплю после выходных  ;)
Соблюдение правил форума не освобождает от модераторского произвола
 
buchlotnik,
после 34 строки есть
номер рами
об'єм:
потужність
 
так как я понял это наоборот глюк - там формула выцепляет между "модель" и запятой, а ещё есть варианты разделителя точка и точка с запятой - и их формула не учитывает, потому и предложил регулярку.
Соблюдение правил форума не освобождает от модераторского произвола
 
Ну, возможно, это я не так понял
Страницы: 1
Наверх