Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 16.04.2018
Сообщений: 2
1

Поиск в столбце слова и вставка соответствующего слова в соседнюю ячейку

16.04.2018, 14:19. Просмотров 442. Ответов 2
Метки нет (Все метки)

Здравствуйте!

Помогите, пожалуйста!
Если в перечне состояний (столбец 20 - выделен оранжевым цветом) встречается слово "фаутное" - в соседней ячейке (столбец 21) должна появиться надпись "подлежит вырубке". Как задать код, чтобы поиск заданного текстового значения производился по всему столбцу и при нахождении искомого требуемый результат (заданная формулировка) отображался в соседней ячейке? Большой объем заполнений - очень много времени уходит на заполнение данных в таблицах.

Спасибо большое, если кто сможет помочь....!

P.s. файл таблицы во вложении.
0
Вложения
Тип файла: xlsx 63228.xlsx (66.6 Кб, 3 просмотров)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.04.2018, 14:19
Ответы с готовыми решениями:

Поиск в ячейке слова и вставка соответствующего слова в соседнюю ячейку
Привет всем В общем пример: В экселе есть строка "2423-423423342 Proliant DL380R03" и рядом в...

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

В ячейке Е1 часть слова которую нужно найти и если есть то выделить эту ячейку со строкой в столбце С
Sub Поиск() ' Dim МестоПоиска As String Dim ЧтоИщем As String For i = 1 To 3 МестоПоиска =...

Произвести поиск по всем листам определённого слова в определенном столбце
Помогите плиз Задачка - в ёкселе провести поиск по всем листам для поиска определённого слова в...

2
Модератор
Эксперт MS Access
9844 / 3884 / 625
Регистрация: 07.08.2010
Сообщений: 11,000
Записей в блоге: 2
16.04.2018, 15:19 2
Цитата Сообщение от Velesa Посмотреть сообщение
Большой объем заполнений - очень много времени уходит на заполнение данных в таблицах....!
20-й столик конечно не подарок --более 60 символов на позицию и без возможности применить подстановку

по крайней мере 40 причин
Кликните здесь для просмотра всего текста
2 ствола
4 ствола
Вершина спилена
Вершина ствола сломана
Ветви нависают на здание
ветви нависают над проводами
Ветви сломаны
Вылетные отверстия насекомых
Глубокая продольная трещина
Дупло в комлевой части
Искривление ствола
Корневая поросль
Корневая система оголена
Лишайники
Механические повреждения
Многоствольное
Морозобоины
Мох
Наличие дупел
Наличие капа или сувеля
Некроз коры
Отслоение коры
Поросль
Поросль от пня
Развилка ствола
Растет в одном коме с соседним деревом
Растет в отмостке (фундаменте)
Сердцевинная гниль
Сломан основной ствол
Спилы
Ствол наклонен
Ствол раздвоен
Стволовая гниль
Сухие ветви от 25 до 50%
Сухостой прошлых лет
Усохшие скелетные ветви
Усыхание отдельных стволов
Фаутное
0
0 / 0 / 0
Регистрация: 16.04.2018
Сообщений: 2
16.04.2018, 19:43  [ТС] 3
Большое спасибо за подсказку!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.04.2018, 19:43

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

Word. Поиск и замена [кодового слова] и вставка перекрестной ссылки
Приветствую. Использовал поиск, находил подобные задачи, но они создавались для изменения...

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

Selection.Find поиск слова и копирование следующего слова
Здравствуйте! Я совсем новичок в VBA. У меня такая проблема. Я пытаюсь написать функцию, которая...

Посчитать функцию от Х и вывести значение в соседнюю ячейку
Здравствуйте, помогите пожалуйста Разработать макрос, желательно с объяснением и алгоритмом...


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

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

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