Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.05.2012, 16:45   #1
Trimbl
Форумчанин
 
Регистрация: 11.08.2009
Сообщений: 135
По умолчанию Метод Find

Всем, здравия желаю!
При скрытии столбцов возникла необходимость программного переориентирования напрвления текста, т.е. если в результате скрытия текст объедененной ячейки при горизонтальной ориентации не помещается в поле ячейки то ориентацию текста необходимо изменить на вертикальную.
В код автонумерации столбцов при скрытии дописал код поиска текста в заданном диапазоне(слово - "Добыча"). При использовании метода Find он(Find) находит все ячейки где присутствует слово "Добыча". Получается, что добыча, добыча, тонн и добыча к плану это одно и тоже, а необходимо выделить только ячейку с текстом "Добыча" для дальнейшего форматирования ячейки. Благодарю всех за внимание.
Вложения
Тип файла: rar Поиск.rar (31.2 Кб, 9 просмотров)
Trimbl вне форума Ответить с цитированием
Старый 27.05.2012, 18:44   #2
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

Вроде это:
Код:
Set rgResult = Range("A8:AY12").Find("Добыча", , xlValues, LookAt:=xlWhole)
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Старый 27.05.2012, 23:07   #3
Trimbl
Форумчанин
 
Регистрация: 11.08.2009
Сообщений: 135
По умолчанию

Цитата:
Сообщение от alex77755 Посмотреть сообщение
Вроде это:
Код:
Set rgResult = Range("A8:AY12").Find("Добыча", , xlValues, LookAt:=xlWhole)
Ругается VBA - Run-time error '91':
Trimbl вне форума Ответить с цитированием
Старый 10.01.2023, 12:47   #4
ВенВен
Новичок
Джуниор
 
Регистрация: 01.12.2018
Сообщений: 6
По умолчанию

Подскажите как включить поиск строгого соответствия в методе Find в VBA. Не нахожу в документации (((
ВенВен вне форума Ответить с цитированием
Старый 10.01.2023, 17:40   #5
Elixi
Форумчанин
 
Регистрация: 10.05.2019
Сообщений: 163
По умолчанию

Цитата:
Сообщение от ВенВен Посмотреть сообщение
Подскажите как включить поиск строгого соответствия в методе Find в VBA. Не нахожу в документации (((
А чтo такoе стрoгoе сooтветствие?

Не знаю, вoзмoжнo вас интересует параметр LookAt:=

https://learn.microsoft.com/ru-ru/of...cel.range.find
https://learn.microsoft.com/ru-ru/of...excel.xllookat
Elixi вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сравнение 2 столбцов (метод find) Костян Пират Microsoft Office Excel 7 17.11.2011 20:46
Cant Find mistake dikabraz Паскаль, Turbo Pascal, PascalABC.NET 10 19.10.2010 20:17
метод find kate158 Общие вопросы Delphi 4 15.12.2009 16:09
Find WebBrowser Edward Работа с сетью в Delphi 2 04.09.2009 20:03