Имеется текст в ячейке, нужно его сократить оставив отдельные слова по списку Дерево Хрусталь Ротанг Металл Стекло Ткань Керамика Акрил Если в ячейке содержаться несколько слов из списка они пишутся через - ; Например - 1 ячейка Металл , 2 ячейка Металл; Стекло Спасибо!
Имеется текст в ячейке, нужно его сократить оставив отдельные слова по списку Дерево Хрусталь Ротанг Металл Стекло Ткань Керамика Акрил Если в ячейке содержаться несколько слов из списка они пишутся через - ; Например - 1 ячейка Металл , 2 ячейка Металл; Стекло Спасибо!Leeloo
Leeloo, : -а че список в пример не внесли? -Стекло и стекла - одно слово? -Металл и металлический? -показали б пример, что должно получиться...
Leeloo, : -а че список в пример не внесли? -Стекло и стекла - одно слово? -Металл и металлический? -показали б пример, что должно получиться...Michael_S
Michael_S, А куда его внести? да одно слово [moder]Не нужно цитировать весь пост. Удалил. Прочитайте Правила форума, там об этом русским по желтенькому написано.
Michael_S, А куда его внести? да одно слово [moder]Не нужно цитировать весь пост. Удалил. Прочитайте Правила форума, там об этом русским по желтенькому написано.Leeloo
Сообщение отредактировал _Boroda_ - Среда, 26.08.2015, 01:24
если не заморачиваться, то можно, например, так (UDF) [vba]
Код
Function KeyWords(ByVal CheckText As String, KeyWordsList As Range) As String If Len(Trim$(CheckText)) = 0 Then Exit Function CheckText = " " & CheckText Dim i&, v(): v = KeyWordsList.Value For i = 1 To UBound(v) If InStr(1, CheckText, " " & v(i, 1), vbTextCompare) Then KeyWords = KeyWords & "; " & v(i, 2) Next If Len(KeyWords) Then KeyWords = Mid$(KeyWords, 3) End Function
[/vba]
если не заморачиваться, то можно, например, так (UDF) [vba]
Код
Function KeyWords(ByVal CheckText As String, KeyWordsList As Range) As String If Len(Trim$(CheckText)) = 0 Then Exit Function CheckText = " " & CheckText Dim i&, v(): v = KeyWordsList.Value For i = 1 To UBound(v) If InStr(1, CheckText, " " & v(i, 1), vbTextCompare) Then KeyWords = KeyWords & "; " & v(i, 2) Next If Len(KeyWords) Then KeyWords = Mid$(KeyWords, 3) End Function