Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
4 / 4 / 2
Регистрация: 12.05.2015
Сообщений: 33
1

Поиск фрагментов текста в ячейке с использованием макросов

12.05.2015, 19:22. Просмотров 1389. Ответов 2
Метки нет (Все метки)

Добрый день!
Нужна Ваша помощь. Видела похожие темы, но все равно не получилось сделать.
Дана таблица. По столбцам перечислены стадии переработки (всего 4 стадии - 4 столбца). В какой-то из стадий может встречаться "передача", которая может звучать по-разному (например, передача с передачей обязательств или передача в стороннюю организацию). Надо, чтобы в пятом столбце выполнялось следующее условие =если в каком из столбцов есть слово "передача", то появляется слово "есть".
Задача, вроде простая, но не могу сообразить, как с помощью формул ее решить. Буду благодарна за помощь!
0
Вложения
Тип файла: xlsx Для форума.xlsx (21.4 Кб, 2 просмотров)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.05.2015, 19:22
Ответы с готовыми решениями:

Поиск фрагментов текста в ячейке по строке
Добрый день. Не могу решить задачку:) Помогите пожалуйста. Есть текст в ячейках В, С, D, Е. Нужно...

Поиск фрагментов текста в ячейке
Добрый день! Нужна Ваша помощь. Видела похожие темы, но все равно не получилось сделать. Дана...

Поиск фрагментов текста в ячейке
Помогите, пожалуйста, прописать формулу. Видела похожие обращения к Вам за помощью, но что-то у...

Поиск фрагментов текста в ячейке
Добрый день! Помогите решить задачу. Дана таблица. В первом столбце наименования, содержащие одни...

2
132 / 108 / 22
Регистрация: 23.06.2015
Сообщений: 339
04.10.2015, 16:12 2
добрый день,
для тестирования кнопка test в файл-примере, кнопка clean -очистить:

Код
=ЕСЛИ(СЧЁТЕСЛИ(B7:E7;"*Передача*")>0;"Есть";"Нет")
0
Вложения
Тип файла: xls Для форума (1)_5_10_2015.xls (69.0 Кб, 4 просмотров)
132 / 108 / 22
Регистрация: 23.06.2015
Сообщений: 339
04.10.2015, 18:36 3
добрый вечер,можно также использовать макрос,кнопка yy в файл-примере:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub yy()
   Dim i&, j&, i1&
   i1 = Range("B" & Cells.Rows.Count).End(xlUp).Row
   With CreateObject("VBScript.RegExp"): .IgnoreCase = True
      For j = 7 To i1
       For i = 1 To 4
           .Pattern = "\s?передача\s"
          If .test(Range("A" & j).Offset(, i).Value) Then
            Range("K" & j) = "Есть"
            Exit For
          Else
             Range("K" & j) = "Нет"
          End If
          Next i, j
   End With
End Sub
0
Вложения
Тип файла: xls Для форума (1)_5_10_2015_2.xls (74.0 Кб, 17 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.10.2015, 18:36

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Поиск фрагментов текста в ячейке с разными условиями
Добрый день! Помогите пожалуйста решить задачу. Дана таблица. В столбце "Наименование" список....

Поиск фрагментов текста в ячейке на другом листе
Добрый день! Нужна ваша помощь. На листе «Список» в столбце С указан перечень документов. Нужно по...

Как осуществить поиск и замену сразу нескольких фрагментов текста
Вечер добрый! Простите за глупый вопрос, но не смогла найти ответ в интернете в книгах и...

Поиск части текста в ячейке
Уважаемые форумчане, подскажите пожалуйста как решить задачу с текстом. На листе1, есть столбец ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.