Как найти файл по названию листа

Как найти текстовый документ на компьютере, если не помнишь название

Эволюция функции «Поиск»

Первоначально поговорим об эволюции поисковой функции с появлением новых версий Windows. Помните XP? Окно поиска было отдельным. Ещё там сидел симпатичный помощник – собачка или кто-то другой. Попасть в него можно было через «Пуск».

В левую часть окна были вынесены настройки поиска:

Результаты отображались в правой части окна. На мой взгляд, очень удобно всё было устроено.

В новых версиях Windows – 7, 8 и 10 функция претерпела косметические изменения. Почему косметические? Да потому что её действие осталось прежним, но только параметры поиска задаются автоматически, когда в строку, расположенную и сразу в меню Пуск, и в каждой папке, вы вписываете значение для поиска. Либо их можно также настроить, но совершенно в другом месте. Исключение – только поиск по содержанию документа, но и это легко решаемо. Пока непонятно? Рассмотрим подробнее по каждому параметру чуть ниже. Зачем разработчики всё усложнили, точнее, упростили? Видимо, они заботились о нас вечно занятых пользователях.

Вот как выглядит поисковая строка в Windows 10.

А вот так в восьмой точка один версия ОС.

Поскольку с XP всё понятно, я буду рассказывать о различных возможностях поиска на примере «восьмёрки», тем более «семёрка» и «десятка» от неё в этом вопросе практически не отличаются.

Начинаем искать

Друзья, хватит разглагольствовать, приступим к основному вопросу — как можно найти потерявшийся документ Word на компьютере по разным его характеристикам.

Все текстовые документы

Сначала давайте попробуем найти на компьютере абсолютно все текстовые документы, не оглядываясь на такие параметры, как их название, содержимое и дата создания. Для этого откройте «Мой…», «Этот…» или просто «Компьютер». В правом верхнем его углу, рядом со строкой пути, найдётся и поисковая строка. А по соседству с основными разделами меню («Файл», «Вид» и другими) найдётся раздел «Поиск». Забегая вперёд, скажу, что именно там находятся настройки основных параметров.

Друзья, если вы хотя бы знаете, в какой папке находятся ваши текстовые документы, то перейдите в неё – это значительно облегчит работу вашей машине. Для поиска всех текстовых документов в строке необходимо вписать значение *.doc, *.docx или *.txt (зависит от того, что вы планируете найти).

По имени

Если вы знаете имя документа, то отыскать его не составит труда. Просто введите имя в строку поиска, и «вкушайте плоды». Но что делать, если название нужного файла в голове не сохранилось? В таком случае у вас остаётся ещё несколько вариантов – найти нужный документ, отсортировав имеющиеся по дате его рождения на свет (или изменения), по размеру (от пустых и крошечных до огромных и гигантских), по типу (выбрав «документ») или по внутреннему тексту.

По дате

Зайдите в любую папку, поставьте курсор в поисковую строку. В этот же момент отобразится новый раздел меню «Поиск». Раскройте его содержимое. Среди прочих настроек вы увидите параметр «по дате создания» (или последнего изменения). Среди возможных вариантов диапазоны времени от «сегодня» до «в прошлом году». Или просто попробуйте в строку ввести значение в виде точной даты. В результатах должны отобразиться все документы, созданные или изменённые указанного числа.

По типу

Среди тех же настроек имеется параметр «по типу». Перечень возможных вариантов включает файлы всех возможных типов – от календаря и контакта до музыки и фильма. В нашем случае требуется выбрать значение «документ».

По размеру

Тут же можно выбрать и размер. Машина будет искать даже пустые документы. Максимальный размер для поиска – 128 мегабайт.

По содержанию

Друзья, вот и подошли к тому, с чего начали – поиск текстового файла по его содержимому. Есть два варианта. Первый – это отметить галочкой нужный параметр всё в тех же настройках. Там есть раздел «Дополнительные параметры», в котором следует пометить галочкой пунктик «Содержимое файлов». Затем вводите нужную фразу в строке и запускайте поисковый процесс.

В то же окно настроек можно попасть и по-другому (актуально для «семёрки»):

Друзья, настроив поисковую функцию, вам останется только написать фразу из текста содержимого в строке и подождать результатов. Стоит заметить, что в этом случае поиск займёт более длительное время, за которое я успел налить себе чай и выпить его. На сегодня всё. До новых тем.

Источник

Поиск в excel в нескольких файлах

Поиск документа Excel по содержимому текста.

Поиск в программе Microsoft Excel

​ поисковые слова в​можно изменить направление​ формула, которая представляет​ число «516».​ значения через окно​ диалоговом окне в​Поиск документа​: Разумеется, мы же​Sub ПОИСК() Dim​ понадобиться, имхо.​ поменять исполняемую часть​ = Dir(pathtothefile) creationdate​ Workbooks(ПутьКФайлу).Activate Worksheets(Sheets(1)).Activate With​ найдено совпадение, 2-3​Basil​ не в Экселе​ выдает ошибку.​

​ любом порядке, даже,​ поиска. По умолчанию,​

Поисковая функция в Excel

​ собой сумму ячеек​Для того, чтобы перейти​ «Найти и заменить».​ строке поиска пишем​Excel по названию папки.​ рассуждаем не абстрактно,​ folder_$, file_$, s$​AB1​Guest​

Способ 1: простой поиск

​Хочу сразу сказать​ по всем файлам​ экселя и вывести​ слова нужно выделить​ Переставив переключатель в​ это число отображается​.​Простой поиск данных в​ файлов Excel, имеющим​ В появившемся списке​: Еще этот макрос​

​ = Cells(Rows.Count, 1).End(xlUp).Row​ строки Dim Диапазон_Ячеек_для_Поиска​ начала получить список​​ помочь не смогу.​​ если ранее вручную​

Способ 2: поиск по указанному интервалу ячеек

​ это слово встречается​ будут отображены все​ формирования результатов выдачи,​ цифру «4», то​ начнется по новому​ введенный в поисковое​Внизу этого окна​ «Мой компьютер» (в​ в подпапках искал.​ «» Then MsgBox​ и вызываю в​ Integer Set workWb​ Range, addressfirstcell As​ As String Set​

Способ 3: Расширенный поиск

​ Как такое могло​ вы нажмете на​ учета регистра.​ можем выбрать другой​ которого, есть строка​abricos29​

​ поисковой выдаче.​ по ячейке отображаются​ себя искомую цифру​​ окна. В этом​​ инструментов​

​ в строке формул.​ 4.​ списке находятся информация​«Редактирование»​ всех разных файлов​​Получился такой результат.​​ Кто-нибудь может подсказать​

​таблицы в любом​ создания отчета по​ СЛОВА.​​ представляет собой довольно​​ Это может быть​

​Но, как отсечь такие,​ о содержимом ячеек​. В появившемся меню​ со словом «визитка»​Нажимаем на нужный документ,​ как интегрировать код​ False End With​ файла, ибо сейчас​ With ‘Начинаем читать​ searchresults) ActiveSheet.Hyperlinks.Add Range(«b»​ Адрес Первой Найденной​ вкладок и запускаем​ случае легче обрабатывать​ продожам сталкиваюсь с​buchlotnik​ простой, но вместе​ слово, число или​ и другие заведомо​

​ & Rows.Count).End(xlUp), pathtothefile,​ Ячейки НомерСтроки =​ вложенный цикл с​ (если это вообще​ необходимостью поиска Торгового​: не-а, в папках​ с тем очень​ ссылка на ячейку.​ неприемлемые результаты выдачи​ запросу поиска, указан​«Найти…»​ в Word, и​Внимание!​ ссылке выше в​ & «*.xls*») Do​ файл находятся в​ wb = Dir(Folder​ «», _ «Открыть​

Поиск текста в нескольких файлах Excel

​ перебором вкладок и​​ понадобится).​
​ представителя (ТП) и​и подпапках​ функциональный набор инструментов​
​ При этом, программа,​ поиска? Именно для​ их адрес расположения,​
​. Вместо этих действий​ файл Excel, и​Чем точнее укажем​
​ обсуждаемый макрос. Вероятно​ While file_ <>​
​ разных местах гиперссылка​

​ & Application.PathSeparator &​​ файл» & vbNewLine​ номер строки, в​
​ поиском на них​А вот такой​ его данные по​- вообще-то это​ поиска. Для того,​
​ выполняя поиск, видит​ этих целей существует​ а также лист​
​ можно просто набрать​ картинки с названием​ место хранения документа,​ ещё нужно будет​ «» DoEvents If​ выглядит так: Адрес​

​ «*.xls») While Len(wb)​ & Filename Do​

​ которой найдена подходящая​​ нужного. Если найдено,​

​ подход, когда одному​​ продажам, который могут​
​ список тех файлов​ чтобы произвести простейший​
​ только ссылку, а​ расширенный поиск Excel.​ и книга, к​ на клавиатуре сочетание​
​ «визитка», т.д.​ тем быстрее произойдет​ ограничение или предупреждение,​ file_ <> ThisWorkbook.Name​ до места расположения​
​ > 0 i​ Set searchresults =​ ячейка Range(«a» &​ копируем найденное на​
​ дню соответствует один​ повторяться из-зо дня​ (полных путей к​ писк, достаточно вызвать​ не результат. Об​После открытия окна​ которым они относятся.​ клавиш​Как найти файл​ поиск документа.​

​ иначе нечаянно выделил​​ Then Workbooks.Open folder_​
​ макросаИмя файла.xls​
​ = i +​

​ rangeofcells.FindNext(searchresults) If Not​​ Rows.Count).End(xlUp).Offset(1).Resize(, 5).Value =​ главный документ.​ лист excel или,​ в день или​ ним), которые и​ поисковое окно, ввести​

​ в него запрос,​​ речь выше. Для​любым вышеописанным способом,​ перейти к любому​

​.​​ в статье «Поиск​​ такой путь –​ ​ файлов и завис.​​ ActiveWorkbook For Each​​ 1) = ActiveWorkbook.Name​​ Folder & Application.PathSeparator​ Then linenumber =​ ПутьКФайлу, ДатаСоздания, РазмерФайла,​: Как выполнить поиск​ книга excel, и​ в месяц (​ ваша конструкция для​ и нажать на​ того, чтобы производить​ жмем на кнопку​ из результатов выдачи,​

​ (содержание порядка 30000​​ Set c =​ Address:=ActiveWorkbook.Name, SubAddress:=c.Address End​ objWb = Workbooks.Open(wb)​ Rows.Count).End(xlUp).Offset(1).Resize(, 5).Value =​ нужна гиперссылка на​ как в этих​ данные из этих​ девайс неработал и​
​ (именно этот кусок​ то же время,​ результатам, по тем​.​ по нему левой​ пунктам на ленте,​ один.​ что документ находится​ строк в каждом)​ sh.Cells.Find(What:=s, After:=sh.Cells(1, 1),​ With​ здесь твой код​
​ _ Array(filenumberГ*, Filename,​ файл во втором​ файлпх искать нужный​

​ книг надо еще​​ тд). Хотелось бы​ кода не работает),​

Поиск значения в Таблицах в разных файлах Excel

​ и «Excel». Мы​​ в идеале с​

​«Значения»​ но при необходимости​ масштабная таблица, то​ нужна. В поле​ способами можно искать​ находится в конкретной​ т.д.​ ActiveWorkbook.Name, SubAddress:=c.Address End​ независимо от нахождения​ значения сразу в​

Поиск значений в нескольких файлах! (Формулы/Formulas)

​ searchresults.address <> addressfirstcell​​ = Диапазон_Ячеек_для_Поиска.FindNext(РезультатПоиска) ‘​: Private Sub CommandButton1_Click()​ Excel сделать, то​ 5 сентября table_export_05KAsep.xls,​ заданного слова.​Не подскажите есть​. Кроме того, существует​ можно выполнить корректировку.​ в таком случае​«Найти»​
​ данные в Excel,​
​ папке «Excel»).​ctrl+f прошу не​ With rw =​ файлов:​ нескольких файлах с​

​ End If End​​ АдресПервойНайденнойЯчейки End If​

Поиск в файлах excel по содержимому

​ в заданной папке​​ макросы).​ «​половину​

​ ошибку «не удаётся​​ определить диапозон в​

​ открытую​​ так в этой​ берём из ячейки​: Здравствуйте! Нужно из​МАУСЫМБАЕВА ОЛЬГА​
​ не надо, разбирайтесь​ 20 документами, нажимаем​ участвовать в поиске.​ выдачу, ячейки содержащие​ клавиш​ ячейка становится активной.​ использовать шрифт для​ слово в строке​ рассказать как это​
​ Set c =​

Поиск и замена в нескольких XLS файлах

​ сделать гиперссылку на​​ него всего одно​

​sku144​ строке, при отладке​ c1 МаскаПоиска$ =​
​ определенного списка найти​отсутствует, тогда функция​ сами.​ ctrl+f->выбираем документы->далее дополнительные​ Можно устанавливать ограничения​

Поиск одного значения в нескольких файлах

​ ячейки c3 If​​ дальнейшего поиска не​ тд пока не​ которых нужно выполнить​ документе»: Отчет №3​ из этих параметров,​ Кроме того, если​. Дальнейшие действия точно​

​ найдены не были,​​ статью «Игра в​Как найти нужный документ​ этом не легком​

​ = folder_ &​​AB1​ но опять же​ Cells.Find(ТекстДляПоиска, LookAt:=xlPart) ‘​scofield-92​ ГлубинаПоиска% = 0​ подходит так как​

​ найдет совпадения с​​ поиск, в каждом​В пункте «Поиск​

​ очень много!​​ (ТП) и прибавит​ на каждом листе​ по каким то​Если вы хотите использовать​, то в выдачу​ способе. Единственное отличие​ и так далее,​ которые состоят из​
​В открытом документе​: эту задачу можно​ ActiveWorkbook.Name, SubAddress:=c.Address End​ все работает как​ искомое слово исчезает!​ Cells.FindNext(РезультатПоиска)а вот первая​

​ не мое воплощение))​​ ограничения по глубине​

​Пример:​​ его «​ провести поиск «этого​ причинам там стоит​ формат какой-то конкретной​

​ будут добавляться только​​ будет состоять в​ пока не отыщет​ большого количества полей,​
​ Excel переходим на​ реализовать с помощью​ With rw =​ надо, и ячейку​

​ Попытки понять чем​​ попавшаяся страница из​ я половину не​ ‘ считываем в​Из файла «список»​Total MTD​
​ слова».​ не текущая) папку​ ячейки, то в​

​ элементы, содержащие точное​​ том, что поиск​ удовлетворительный результат.​

​ Collection, FolderPath$, searchmask$,​​ отключаем обновление экрана​: Еще файлы!​ поиска в разных​ № 1 ()​SergVrn​ в виде пипетки.​
​ в выдачу уже​ попадают абсолютно все​ «прав», то в​ найти нужное слово​

​В появившемся диалоговом​​ файла, что и​ Application.ScreenUpdating = True​ ячеек.​ файлы в которых​

​Нужно сделать замену​​ searchdepth% On Error​ ‘ выводим результаты​scofield-92​ таблицах как описал​ в столбец G5:G16​: Здравствуйте!​

​ С помощью него​​ добавлены не будут.​

​ ячейки, содержащие последовательный​​ выдаче будут представлены​ или выражение. Сэкономить​

Как произвести поиск по нескольким Excel файлам?

​ все ячейки, которые​ время и нервы​ функцию «Открыть». Появится​ организовано, что ищем​ End Sub​: Если данный макрос​ на одном уровне,​ файлах.​ = [c1] searchmask$​ их характеристик) на​Подскажите, пожалуйста, как​
​ такие таблици будут​ выводить имя файла​ непростой вопрос.​ ячейку, формат которой​ только на активном​ в любом виде​ содержат данный последовательный​
​ поможет встроенный поиск​ список последних книг​ и как выводим​Юрий М​ при поиске открывает​ в одной папке!​

​Подскажите, какие есть​ = «*.*xl*» ‘​ лист For i​ реализовать следующую задачу:​ добавляться ежедневно.​ не нужно.​
​В файле «ГЛАВНЫЙ​ вы собираетесь использовать.​ листе Excel. Но,​ не зависимо от​ набор символов даже​

Источник

Поиск файлов по их содержимому в Windows 10

Для многих пользователей основным местом хранения практически любой электронной информации является жесткий диск в компьютере или флешка. Со временем данных может накапливаться большое количество и даже качественная сортировка и структуризация могут не помочь — без дополнительной помощи отыскивать нужное станет сложно, особенно когда помнишь содержимое, но не помнишь имя файла. В Windows 10 есть сразу два варианта того, как искать файлы по их отрывку.

Поиск файлов по содержимому в Виндовс 10

В первую очередь с данной задачей ассоциируются обычные текстовые файлы: мы сохраняем на компьютере различные заметки, интересные сведения из интернета, рабочие/учебные данные, таблицы, презентации, книги, письма из почтового клиента и многое другое, что можно выразить текстом. Помимо этого по содержимому можно искать и узконаправленные файлы — сохраненные страницы сайтов, код, хранящийся к примеру, в расширении JS и др.

Способ 1: Сторонние программы

Обычно функциональности встроенного поисковика Windows достаточно (о нем мы рассказали в Способе 2), но сторонние программы в ряде случаев будут приоритетнее. К примеру, настройка параметров расширенного поиска в Виндовс устроена таким образом, что вы делаете ее один раз и надолго. Вы также можете выставить поиск по всему накопителю, но при большом количестве файлов и объемном жестком диске процесс иногда замедляется. То есть гибкости системой не предусмотрено, сторонние же программы позволяют каждый раз искать по новому адресу, сужая критерии и используя дополнительные фильтры. К тому же такие программы часто выступают небольшими файловыми помощниками и имеют расширенные возможности.

В этот раз мы рассмотрим работу простой программы Everything, поддерживающей поиск на русском языке локально, на внешних девайсах (HDD, флешка, карта памяти) и на серверах FTP.

Остальные возможности программы вы можете узнать из нашего обзора программы по ссылке выше или самостоятельно. В целом это очень удобный инструмент, когда требуется быстро искать файлы по их содержимому, будь то встроенный накопитель, внешний диск/флешка или FTP-сервер.

Если работа с Everything не подходит, ознакомьтесь со списком других похожих программ по ссылке ниже.

Способ 2: Поиск через «Пуск»

Меню «Пуск» в десятке было улучшено, и сейчас оно не такое ограниченное, как было в прошлых версиях этой операционной системы. Используя его, можно отыскать нужный файл в компьютере по его содержимому.

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

Включение службы

У вас должна быть запущена служба, отвечающая за поиск в Виндовс.

Включение разрешения индексации на жестком диске

Жесткий диск должен иметь разрешение на индексацию файлов. Для этого открываем «Проводник» и переходим в «Этот компьютер». Выбираем тот раздел диска, на котором планируется совершать поиск сейчас и в будущем. Если таких разделов несколько, выполните дальнейшую настройку поочередно со всеми ними. При отсутствии дополнительных разделов работать будем с одним — «Локальный диск (С:)». Жмем правой кнопкой мыши по иконке и выбираем «Свойства».

Убедитесь, что галочка рядом с пунктом «Разрешить индексирование…» установлена или поставьте ее самостоятельно, сохранив изменения.

Настройка индексации

Теперь остается включить расширенную индексацию.

Напоминаем, что здесь надо выбирать те места, в которых вы планируете совершать поиск в дальнейшем. Если выбирать сразу весь раздел, в случае с системным будут исключены самые важные его папки. Это сделано и в целях безопасности, и для сокращения времени ожидания поиска. Все остальные настройки касательно индексируемых мест и исключений при желании настройте самостоятельно.

Или в HTM-файлах (обычно это сохраненные страницы сайтов).

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

Теперь вы знаете, как оптимизировать поиск по содержимому в Windows 10. Это позволит сохранять больше полезной информации и не теряться в ней, как прежде.

Помимо этой статьи, на сайте еще 12327 инструкций.
Добавьте сайт Lumpics.ru в закладки (CTRL+D) и мы точно еще пригодимся вам.

Отблагодарите автора, поделитесь статьей в социальных сетях.

Источник

Что делать если нужно найти определённый документ среди десятка или сотен?

Если известно имя документа, то выполнить поиск довольно просто — многие программы, в том числе стандартный проводник Windows умеют искать по имени файла.

Чтобы найти файл по имени, откройте проводник (файловый менеджер) Windows, перейдите в папку, где вы хотите выполнить поиск и в поле «Поиск» введите имя файла или часть имени, чтобы найти все файлы, которые ему соответствуют:

Полнотекстовый поиск по папкам

Но что делать, если мы хотим найти файл по его содержимому? Например, нам известна фамилия, которая упоминается в документе.

Если вы ищете среди текстовых документов, то многие программы могут вам помочь, например, Total Commander и Double Commander могут искать по содержимому текстовых файлов.

Но если это офисные документы, то всё становится сложнее, поскольку файлы .docx, .doc и другие офисные форматы представляют собой довольно сложные контейнеры.

К счастью, самый обычный проводник Windows умеет делать полнотекстовый поиск по всем офисным форматам MS Office.

Чтобы искать по содержимому офисных документов, перейдите в папку, где находятся файлы, среди которых вы хотите выполнить поиск. В поле «Поиск» введите искомое слово или фразу. Нажмите на слово «Поиск» под фразой «Средства поиска»:

Нажмите на кнопку «Дополнительные параметры»:

Нажмите «Содержимое файлов»:

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

Как искать по файлам в ZIP архивах

Если файлы упакованы в ZIP архивы, то по умолчанию в них не выполняется поиск даже если включён поиск по содержимому файлов.

Чтобы включить поиск по ZIP архивам, введите слово для поиска, нажмите на слово «Поиск» под фразой «Средства поиска», нажмите на кнопку «Дополнительные параметры» и выберите «Сжатые ZIP-папки»:

Данные опции являются постоянными и сохраняются даже после закрытия проводника и перезагрузки компьютера. Если вы обычно ищите по имени файла (а не по его содержимому) и поиск для вас стал слишком медленным, то отключите эти опции в том же самом порядке, как показано их включение.

Как искать по точному совпадению. Как искать по фразе

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

Если поместить фразу в кавычки, то это ничего не изменит — по-прежнему будут показаны документы, содержащее хотя бы одно слово.

В Windows 10

Тем не менее решение есть, для этого нужно использовать конструкцию ~=»ЗДЕСЬ ФРАЗА»

Чтобы было понятнее, допустим, нам нужно найти документы, содержащие точную фразу «Exa.ct Phr.ase», тогда в строку поиска нам нужно ввести:

~="Exa.ct Phr.ase"

В Windows 11

В Windows 11 для поиска точного совпадения по-прежнему работает конструкция ~=»НАЙДИ МЕНЯ». Но на поиск сильно влияет индексирование файлов. Например, при включённом индексировании наблюдались следующие особенности:

• конструкция ~=»НАЙДИ МЕНЯ» не работала
• для поиска по точному совпадению фразы достаточно было поместить её в двойные кавычки
• поиск по архивам не работал, хотя и был включён

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

Обычно мы можем легко находить / искать ячейки с помощью функции поиска и замены. Но иногда нам нужно искать по имени листа. Например, на панели вкладок листа сжимаются десятки листов, и нам нужно быстро найти рабочий лист и перейти к нему. Так как? В этой статье мы обсудим оба метода, чтобы легко решить эту проблему.

• Поиск по имени рабочего листа с VBA
• Поиск по имени рабочего листа с помощью «Создать список имен листов» Kutools for Excel    (5 шаги)
• Поиск по имени рабочего листа с помощью панели навигации Kutools for Excel    (2 шаги)

---

Поиск по имени рабочего листа с VBA

Этот метод представит макрос VBA для простого поиска на листе в активной книге.

1, нажмите другой + F11 одновременно клавиши, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модули, а затем вставьте следующий код VBA в новое открывающееся окно модуля.

VBA: поиск по имени листа

Sub SearchSheetName()
Dim xName As String
Dim xFound As Boolean
xName = InputBox("Enter sheet name to find in workbook:", "Sheet search")
If xName = "" Then Exit Sub
On Error Resume Next
ActiveWorkbook.Sheets(xName).Select
xFound = (Err = 0)
On Error GoTo 0
If xFound Then
MsgBox "Sheet '" & xName & "' has been found and selected!"
Else
MsgBox "The sheet '" & xName & "' could not be found in this workbook!"
End If
End Sub

3, нажмите F5 ключ или щелкните Run кнопку для запуска этого VBA.

4. Появится диалоговое окно поиска листа, введите имя листа, на котором вы будете искать, и нажмите кнопку OK кнопка. Смотрите скриншот:

Появится другое диалоговое окно, в котором сообщается, найден рабочий лист или нет. Просто закрой это.

Примечание: Этот VBA требует точно совпадающего имени рабочего листа. Только вы вводите точно полное имя рабочего листа, вы можете узнать этот рабочий лист с помощью этого VBA.

---

Поиск по имени рабочего листа с помощью «Создать список имен листов» Kutools for Excel

В приведенном выше VBA может быть непросто найти рабочий лист, если вы не можете точно вспомнить и ввести имя рабочего листа. Этот метод познакомит Kutools for ExcelАвтора Создать список имен листов утилита для поиска и простого перехода к рабочему листу.

1. Нажмите Кутулс Плюс > Рабочий лист > Создать список имен листов , чтобы открыть диалоговое окно «Создать список имен листов». Смотрите скриншоты:

2. В открывшемся диалоговом окне Create List of Sheet Names укажите параметры: (1) проверить Содержит список гиперссылок вариант; (2) введите имя для нового созданного индексного листа; (3) указать место нового индексного листа; и (4) перечислите все имена рабочих листов в одном столбце индексного листа.

3, Нажмите Ok кнопка. Теперь создается новый индексный лист, который помещается перед всеми листами.

4. Перейдите к индексной странице и нажмите Ctrl + F одновременно с клавишами, чтобы открыть диалоговое окно «Найти и заменить», введите ключевое слово в поле Найти то, что и нажмите Найти все кнопка. Смотрите скриншот:

Теперь все имена листов, содержащие ключевые слова, найдены и перечислены в нижней части диалогового окна «Найти и заменить». См. Диалоговое окно выше.

5. Щелкните имя найденного рабочего листа в диалоговом окне «Найти и заменить», чтобы выбрать соответствующую ячейку, затем щелкните выбранную ячейку на индексном листе, и он сразу перейдет к соответствующему рабочему листу.

Демо: поиск по имени листа в Excel

---

Поиск по имени рабочего листа с помощью панели навигации Kutools for Excel

Если у вас есть Kutools for Excel установлен, вы можете легко искать рабочие листы по имени листа в области навигации. Пожалуйста, сделайте следующее:

Kutools for Excel — Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 30-день, кредитная карта не требуется! Get It Now

1. По умолчанию открывается панель навигации. Если закрыто, нажмите Кутулс > Область переходов чтобы отобразить панель навигации, а затем щелкните  (Рабочая книга и лист) в левой части области навигации.

2. Вперед, чтобы проверить Фильтр флажок в области навигации и введите указанные ключевые слова в следующее поле. Теперь все листы, имена которых содержат указанные ключевые слова, будут найдены и перечислены в поле ниже. Смотрите скриншот:

Внимание: При нажатии на результаты поиска сразу открывается соответствующий рабочий лист.

Демонстрация: поиск по имени рабочего листа с помощью панели навигации Kutools for Excel

---

Статьи по теме:

---

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

• Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
• Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
• Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
• Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
• Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
• Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
• Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
• Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
• Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

---

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (6)

Оценок пока нет. Оцените первым!

Содержание

• 1 Поисковая функция в Excel
  • 1.1 Способ 1: простой поиск
  • 1.2 Способ 2: поиск по указанному интервалу ячеек
  • 1.3 Способ 3: Расширенный поиск
  • 1.4 Помогла ли вам эта статья?
  • 1.5 Поиск по нескольким листам с помощью макроса VBA
• 2 Простой поиск
• 3 Расширенный поиск
• 4 Разновидности поиска
  • 4.1 Поиск совпадений
  • 4.2 Фильтрация
  • 4.3 Видео: Поиск в таблице Excel

В документах Microsoft Excel, которые состоят из большого количества полей, часто требуется найти определенные данные, наименование строки, и т.д. Очень неудобно, когда приходится просматривать огромное количество строк, чтобы найти нужное слово или выражение. Сэкономить время и нервы поможет встроенный поиск Microsoft Excel. Давайте разберемся, как он работает, и как им пользоваться.

Поисковая функция в программе Microsoft Excel предлагает возможность найти нужные текстовые или числовые значения через окно «Найти и заменить». Кроме того, в приложении имеется возможность расширенного поиска данных.

Способ 1: простой поиск

Простой поиск данных в программе Excel позволяет найти все ячейки, в которых содержится введенный в поисковое окно набор символов (буквы, цифры, слова, и т.д.) без учета регистра.

1. Находясь во вкладке «Главная», кликаем по кнопке «Найти и выделить», которая расположена на ленте в блоке инструментов «Редактирование». В появившемся меню выбираем пункт «Найти…». Вместо этих действий можно просто набрать на клавиатуре сочетание клавиш Ctrl+F.
2. После того, как вы перешли по соответствующим пунктам на ленте, или нажали комбинацию «горячих клавиш», откроется окно «Найти и заменить» во вкладке «Найти». Она нам и нужна. В поле «Найти» вводим слово, символы, или выражения, по которым собираемся производить поиск. Жмем на кнопку «Найти далее», или на кнопку «Найти всё».
3. При нажатии на кнопку «Найти далее» мы перемещаемся к первой же ячейке, где содержатся введенные группы символов. Сама ячейка становится активной.

   Поиск и выдача результатов производится построчно. Сначала обрабатываются все ячейки первой строки. Если данные отвечающие условию найдены не были, программа начинает искать во второй строке, и так далее, пока не отыщет удовлетворительный результат.

   Поисковые символы не обязательно должны быть самостоятельными элементами. Так, если в качестве запроса будет задано выражение «прав», то в выдаче будут представлены все ячейки, которые содержат данный последовательный набор символов даже внутри слова. Например, релевантным запросу в этом случае будет считаться слово «Направо». Если вы зададите в поисковике цифру «1», то в ответ попадут ячейки, которые содержат, например, число «516».

   Для того, чтобы перейти к следующему результату, опять нажмите кнопку «Найти далее».

   

   Так можно продолжать до тех, пор, пока отображение результатов не начнется по новому кругу.

4. В случае, если при запуске поисковой процедуры вы нажмете на кнопку «Найти все», все результаты выдачи будут представлены в виде списка в нижней части поискового окна. В этом списке находятся информация о содержимом ячеек с данными, удовлетворяющими запросу поиска, указан их адрес расположения, а также лист и книга, к которым они относятся. Для того, чтобы перейти к любому из результатов выдачи, достаточно просто кликнуть по нему левой кнопкой мыши. После этого курсор перейдет на ту ячейку Excel, по записи которой пользователь сделал щелчок.

Способ 2: поиск по указанному интервалу ячеек

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

1. Выделяем область ячеек, в которой хотим произвести поиск.
2. Набираем на клавиатуре комбинацию клавиш Ctrl+F, после чего запуститься знакомое нам уже окно «Найти и заменить». Дальнейшие действия точно такие же, что и при предыдущем способе. Единственное отличие будет состоять в том, что поиск выполняется только в указанном интервале ячеек.

Способ 3: Расширенный поиск

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

К тому же, в выдачу может попасть не только содержимое конкретной ячейки, но и адрес элемента, на который она ссылается. Например, в ячейке E2 содержится формула, которая представляет собой сумму ячеек A4 и C3. Эта сумма равна 10, и именно это число отображается в ячейке E2. Но, если мы зададим в поиске цифру «4», то среди результатов выдачи будет все та же ячейка E2. Как такое могло получиться? Просто в ячейке E2 в качестве формулы содержится адрес на ячейку A4, который как раз включает в себя искомую цифру 4.

Но, как отсечь такие, и другие заведомо неприемлемые результаты выдачи поиска? Именно для этих целей существует расширенный поиск Excel.

1. После открытия окна «Найти и заменить» любым вышеописанным способом, жмем на кнопку «Параметры».
2. В окне появляется целый ряд дополнительных инструментов для управления поиском. По умолчанию все эти инструменты находятся в состоянии, как при обычном поиске, но при необходимости можно выполнить корректировку.

   

   По умолчанию, функции «Учитывать регистр» и «Ячейки целиком» отключены, но, если мы поставим галочки около соответствующих пунктов, то в таком случае, при формировании результата будет учитываться введенный регистр, и точное совпадение. Если вы введете слово с маленькой буквы, то в поисковую выдачу, ячейки содержащие написание этого слова с большой буквы, как это было бы по умолчанию, уже не попадут. Кроме того, если включена функция «Ячейки целиком», то в выдачу будут добавляться только элементы, содержащие точное наименование. Например, если вы зададите поисковый запрос «Николаев», то ячейки, содержащие текст «Николаев А. Д.», в выдачу уже добавлены не будут.

   

   По умолчанию, поиск производится только на активном листе Excel. Но, если параметр «Искать» вы переведете в позицию «В книге», то поиск будет производиться по всем листам открытого файла.

   

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

   

   В графе «Область поиска» определяется, среди каких конкретно элементов производится поиск. По умолчанию, это формулы, то есть те данные, которые при клике по ячейке отображаются в строке формул. Это может быть слово, число или ссылка на ячейку. При этом, программа, выполняя поиск, видит только ссылку, а не результат. Об этом эффекте велась речь выше. Для того, чтобы производить поиск именно по результатам, по тем данным, которые отображаются в ячейке, а не в строке формул, нужно переставить переключатель из позиции «Формулы» в позицию «Значения». Кроме того, существует возможность поиска по примечаниям. В этом случае, переключатель переставляем в позицию «Примечания».

   

   Ещё более точно поиск можно задать, нажав на кнопку «Формат».

   

   При этом открывается окно формата ячеек. Тут можно установить формат ячеек, которые будут участвовать в поиске. Можно устанавливать ограничения по числовому формату, по выравниванию, шрифту, границе, заливке и защите, по одному из этих параметров, или комбинируя их вместе.

   

   Если вы хотите использовать формат какой-то конкретной ячейки, то в нижней части окна нажмите на кнопку «Использовать формат этой ячейки…».

   

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

   

   После того, как формат поиска настроен, жмем на кнопку «OK».

   

   Бывают случаи, когда нужно произвести поиск не по конкретному словосочетанию, а найти ячейки, в которых находятся поисковые слова в любом порядке, даже, если их разделяют другие слова и символы. Тогда данные слова нужно выделить с обеих сторон знаком «*». Теперь в поисковой выдаче будут отображены все ячейки, в которых находятся данные слова в любом порядке.

3. Как только настройки поиска установлены, следует нажать на кнопку «Найти всё» или «Найти далее», чтобы перейти к поисковой выдаче.

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

Мы рады, что смогли помочь Вам в решении проблемы.

Задайте свой вопрос в комментариях, подробно расписав суть проблемы. Наши специалисты постараются ответить максимально быстро.

Помогла ли вам эта статья?

Да Нет

     Добрый день!

    Сегодня я хочу расширить границы использования функции ВПР и научить вас использовать эту функцию, что бы произвести поиск значений в Excel по нескольким листам вашего рабочего файла.

     Как вы знаете или еще не знаете, я напоминаю, в чистом виде функция ВПР производит поиск только в одной таблице, а о том, что бы чистыми возможностями функции произвести поиск необходимого значения в нескольких листиках, это невозможно. Но, тем не менее, при большой необходимости можно схитрить и произвести поиск по двум листам. Для этого используем возможности логической функции ЕСЛИ и формула поиска будет выглядеть приблизительно так:

         =ВПР (C3 ;ЕСЛИ (ЕНД (ВПР (C3 ;Таблица2!C3:D7 ;2; 0)); Таблица3! C3:D7 ;Таблица2! C3:D7 );2; 0).

     Но такой вариант работает только с 2 таблицами, а в случае, когда листов больше, нужно увеличивать количество вложений для функции ЕСЛИ. Но при этом:

• во-первых, если много листов, то есть огромный шанс что длина формулы будет больше допустимого размера и перестанет работать;
• во-вторых, это просто непрактично, так как при работе такой мега-формулы возникает значительно риск ошибок и при изменениях придётся переделывать формулу.

     Но, как всегда, выход есть. Рассмотрим небольшую хитрость с помощью, которой и будем искать в нужных листах. Начнем работу с создания перечня листов нашей книги, где будем производить поиск значений. В нашем случае это диапазон $E$3:$E$7.     Теперь для получения значения в столбик «Найденная стоимость» согласно условию в столбике «Номенклатуру которую ищем» нам нужна формула:

       {=ВПР (A3; ДВССЫЛ («’»&ИНДЕКС ($E$3:$E$7; ПОИСКПОЗ (ИСТИНА; СЧЁТЕСЛИ (ДВССЫЛ («’»&$E$3:$E$7  &»‘!C1:C50″) ;A3)> 0;0)) &»‘!C:D» );2;0)}

     Как видите, формула выделена фигурными скобками, это означает, что её необходимо вводить как формулу массива с помощью горячего сочетания клавиш Ctrl+Shift+Enter. Это самое главное условие правильной работы этой формулы в других случаях она не будет работать.      Формула объемная и требует объяснения принципа её работы.  Функция ДВССЫЛ необходима, что бы конвертировать текстовые отображения ссылок на листы нашей книги в действительные. Сам принцип работы функции ДВССЫЛ, я описывать не буду, рассмотрим только необходимую формулу для этапа нашего вычисления: СЧЁТЕСЛИ (ДВССЫЛ («’»&$E$3:$E$7 &»‘! C1:C50″); A3).

     Как следствие, при вычислении этого блока у нас формируется массив из некоторого количества значений, которые мы ищем, и которые повторяются на листах нашего списка, и имеет вид: СЧЁТЕСЛИ({2;0;0;0};A3). О работе функции СЧЁТЕСЛИ я писал отдельно и более подробно.

     Следующим рассматриваемым блоком нашей композиции будет формула: ПОИСКПОЗ (ИСТИНА; СЧЁТЕСЛИ (ДВССЫЛ («’»&$E$3:$E$7 &»‘! C1:C50″); A3)>0;0), которая и работает с указанным выше блоком такого вида: ПОИСКПОЗ (ИСТИНА; СЧЁТЕСЛИ ({2;0;0;0}; A3)>0;0). Вследствие чего мы узнаем, какую позицию занимает имя листа в нашем массиве списке листов $E$3:$E$7. Теперь же при помощи функции ИНДЕКС мы получаем название листа, и можем применить его имя в структуре функции ДВССЫЛ, а она передаст полученное значение уже далее функции ВПР. Пошагово это будет выглядеть так:

1. =ВПР (A3; ДВССЫЛ («’»&ИНДЕКС ({«Таблица1″; « Таблица2»; « Таблица3»; «Таблица4»; «Таблица5»};1) &»‘! C:D»); 2;0);
2. =ВПР(A2;ДВССЫЛ(«’Таблица1′! C:D»);2;0);
3. =ВПР(A2;’Таблица1′!C:D;2;0).

     Ну, вот мы и получили универсальную формулу, которая производит поиск значений в Excel и является очень гибкой и удобной. В случаях, когда возникнет необходимость добавить в рабочую книгу еще листы с таблицами, то необходимо всего на всего прописать их в списке рабочих листов $E$3:$E$7, изменив предварительно ее размер или попросту изначально сделать ее динамическим диапазоном, и править формулу будет не нужно.

      Для большего удобства в столбике С, в графе «Где было найдено» можно прописать формулу которая будет наглядно показывать где была взята цифра, с какой таблицы вы получили значение, что значительно облегчает поисковую навигацию. Для получения названия таблицы необходима формула:

        {=ИНДЕКС ($E$3:$E$7; ПОИСКПОЗ (ИСТИНА; СЧЁТЕСЛИ (ДВССЫЛ («’»&$E$3 :$E$7&»‘! C1:C50″); A3) >0;0))}

Поиск по нескольким листам с помощью макроса VBA

     Для тех, кто хочет производить поиск значений в Excel по своей рабочей книге с помощью макросов или просто сделать рутинную операцию более автоматической предлагаю воспользоваться прописанной функцией пользователя, которая будет искать необходимое значение во всех, без исключения, даже в скрытых, листах рабочей книги, в которую вы ее пропишете. Макрос был найден на сайте excel — vba.ru, который любит такие фишки.

     Функция будет иметь следующий вид:

Function VLookUpAllSheets(vCriteria As Variant, rTable As Range, lColNum As Long, Optional iPart As Integer = 1) As Variant     Dim rFndRng As Range     If iPart <> 1 Then iPart = 2     For i = 1 To Worksheets.Count         If Sheets(i).Name <> Application.Caller.Parent.Name Then             With Sheets(i)                 Set rFndRng = .Range(rTable.Address).Resize(, 1).Find(vCriteria, , xlValues, iPart)                 If Not rFndRng Is Nothing Then                     VLookUpAllSheets = rFndRng.Offset(, lColNum — 1).Value                     Exit For                 End If             End With         End If     Next i End Function

     Расшифруются аргументы написанной функции так:

• rTable – прописывается таблица, как в обыкновенной функции ВПР, для поиска значений;
• vCriteria – аргумент, который указывает любое текстовое значение или ссылка на ячейку, которая содержит значение для поиска;
• lColNum – прописывается тот номер столбика из аргумента rTable, значение в котором нам необходимо изъять, возможно, использовать ссылку на столбик с помощью функции СТОЛБЕЦ;
• iPart – аргумент, в котором прописываем необходимый метод просмотра. Когда аргумент не указан или указан аргумент равно 1, в таком случае будет проводиться поиск с полным совпадением значений в ячейках. В таких случаях есть возможность применить символы подстановки: «*» и «?». Если же, в аргументе указано другое значение кроме 1, функция будет искать, и отбирать значения при частичном вхождении.

      Я надеюсь, что поиск значений в Excel функцией ВПР по нескольким листам у вас получился, и вы могли быстро собрать нужные данные в ваших таблицах, а также научились создавать удобные и классные отчёты. Если у вас есть чем дополнить меня пишите комментарии, я буду их ждать с нетерпением, ставьте лайки и делитесь полезной статьей в соц.сетях!

      Не забудьте подкинуть автору на кофе…

Основное назначение офисной программы Excel – осуществление расчётов. Документ этой программы (Книга) может содержать много листов с длинными таблицами, заполненными числами, текстом или формулами. Автоматизированный быстрый поиск позволяет найти в них необходимые ячейки.

Простой поиск

Чтобы произвести поиск значения в таблице Excel, необходимо на вкладке «Главная» открыть выпадающий список инструмента «Найти и заменить» и щёлкнуть пункт «Найти». Тот же эффект можно получить, используя сочетание клавиш Ctrl + F.

В простейшем случае в появившемся окне «Найти и заменить» надо ввести искомое значение и щёлкнуть «Найти всё».

Как видно, в нижней части диалогового окна появились результаты поиска. Найденные значения подчёркнуты красным в таблице. Если вместо «Найти все» щёлкнуть «Найти далее», то сначала будет произведён поиск первой ячейки с этим значением, а при повторном щелчке – второй.

Аналогично производится поиск текста. В этом случае в строке поиска набирается искомый текст.

Если данные или текст ищется не во всей экселевской таблице, то область поиска предварительно должна быть выделена.

Расширенный поиск

Предположим, что требуется найти все значения в диапазоне от 3000 до 3999. В этом случае в строке поиска следует набрать 3???. Подстановочный знак «?» заменяет собой любой другой.

Анализируя результаты произведённого поиска, можно отметить, что, наряду с правильными 9 результатами, программа также выдала неожиданные, подчёркнутые красным. Они связаны с наличием в ячейке или формуле цифры 3.

Можно удовольствоваться большинством полученных результатов, игнорируя неправильные. Но функция поиска в эксель 2010 способна работать гораздо точнее. Для этого предназначен инструмент «Параметры» в диалоговом окне.

Щёлкнув «Параметры», пользователь получает возможность осуществлять расширенный поиск. Прежде всего, обратим внимание на пункт «Область поиска», в котором по умолчанию выставлено значение «Формулы».

Это означает, что поиск производился, в том числе и в тех ячейках, где находится не значение, а формула. Наличие в них цифры 3 дало три неправильных результата. Если в качестве области поиска выбрать «Значения», то будет производиться только поиск данных и неправильные результаты, связанные с ячейками формул, исчезнут.

Для того чтобы избавиться от единственного оставшегося неправильного результата на первой строчке, в окне расширенного поиска нужно выбрать пункт «Ячейка целиком». После этого результат поиска становимся точным на 100%.

Такой результат можно было бы обеспечить, сразу выбрав пункт «Ячейка целиком» (даже оставив в «Области поиска» значение «Формулы»).

Теперь обратимся к пункту «Искать».

Если вместо установленного по умолчанию «На листе» выбрать значение «В книге», то нет необходимости находиться на листе искомых ячеек. На скриншоте видно, что пользователь инициировал поиск, находясь на пустом листе 2.

Следующий пункт окна расширенного поиска – «Просматривать», имеющий два значения. По умолчанию установлено «по строкам», что означает последовательность сканирования ячеек по строкам. Выбор другого значения – «по столбцам», поменяет только направление поиска и последовательность выдачи результатов.

При поиске в документах Microsoft Excel, можно использовать и другой подстановочный знак – «*». Если рассмотренный «?» означал любой символ, то «*» заменяет собой не один, а любое количество символов. Ниже представлен скриншот поиска по слову Louisiana.

Иногда при поиске необходимо учитывать регистр символов. Если слово louisiana будет написано с маленькой буквы, то результаты поиска не изменятся. Но если в окне расширенного поиска выбрать «Учитывать регистр», то поиск окажется безуспешным. Программа станет считать слова Louisiana и louisiana разными, и, естественно, не найдёт первое из них.

Разновидности поиска

Поиск совпадений

Иногда бывает необходимо обнаружить в таблице повторяющиеся значения. Чтобы произвести поиск совпадений, сначала нужно выделить диапазон поиска. Затем, на той же вкладке «Главная» в группе «Стили», открыть инструмент «Условное форматирование». Далее последовательно выбрать пункты «Правила выделения ячеек» и «Повторяющиеся значения».

Результат представлен на скриншоте ниже.

При необходимости пользователь может поменять цвет визуального отображения совпавших ячеек.

Фильтрация

Другая разновидность поиска – фильтрация. Предположим, что пользователь хочет в столбце B найти числовые значения в диапазоне от 3000 до 4000.

1. Выделить первый столбец с заголовком.
2. На той же вкладке «Главная» в разделе «Редактирование» открыть инструмент «Сортировка и фильтр», и щёлкнуть пункт «Фильтр».
3. В верхней строчке столбца B появляется треугольник – условный знак списка. После его открытия в списке «Числовые фильтры» щёлкнуть пункт «между».
4. В окне «Пользовательский автофильтр» следует ввести начальное и конечное значение плюс OK.

Как видно, отображаться стали только строки, удовлетворяющие введённому условию. Все остальные оказались временно скрытыми. Для возврата к начальному состоянию следует повторить шаг 2.

Различные варианты поиска были рассмотрены на примере Excel 2010. Как сделать поиск в эксель других версий? Разница в переходе к фильтрации есть в версии 2003. В меню «Данные» следует последовательно выбрать команды «Фильтр», «Автофильтр», «Условие» и «Пользовательский автофильтр».

Видео: Поиск в таблице Excel

Поиск в программе Microsoft Excel

​Смотрите также​Dim iFirstAddress As​ на регистр не​ find — это​ примитивная фильтрация, но​ установлено On Error​ Dim col As​ помощи.​ 2) = iRng.Address(0,​Dim iFoundSht As​ и без формы…​ то должно возвращаться​ нет​Есть несколько таблиц​Откроется окно, в​ выше, поиск ведется​ этого курсор перейдет​

​В документах Microsoft Excel,​ String, iSecondAddress As​

Поисковая функция в Excel

​ смотрел при сравнении​ довольно длинный процесс.​ жутко неудобно, особенно​ Resume Next -​ Object, arr, el​В файлике описана​ 0)​ Worksheet​shurun999​

Способ 1: простой поиск

​ #Н/Д​dendy_81​ товаров разных поставщиков​ правом верхнем углу​ по порядку построчно.​ на ту ячейку​ которые состоят из​ String​ по Like.​

1. ​ Тут прозвучало предложение​​ когда ищешь по​​ т.е. продолжить работу​​ arr = Split(«D​​ проблемма.​iLastRow = iLastRow​Dim FirstAddress As​​: какой фаил?​​В самый конец​: класс! формула сокращена​​ с одинаковыми полями,​​ которого, есть строка​ Переставив переключатель в​ Excel, по записи​ большого количества полей,​​Dim iFoundRng As​​Lubaxa​

   

2. ​ по массиву… Но,​ всем страницам и​ процедуры, но в​ E G H​davaispoem​ + 1​​ String​​shurun999​​ вставить:​​ до минимума! Спасибо​ расположенных на разных​​ поиска. В этой​​ позицию​ которой пользователь сделал​ часто требуется найти​ Range​: Спасибо огромное HUGO121!!!​​ если честно, я​​ по нескольким критериям…​​ коллекцию ничего не​​ J K M​

   

3. ​: в другом формате​​Set iRng =​​Dim TextToFind As​: вот фаил​If rFndRng Is​ вам за помощь​ листах.​

   ​ строке пишем поисковую​«По столбцам»​ щелчок.​ определенные данные, наименование​If Len(ComboBox2.Value) =​ были другие дела,​ с ними вообще​ Надо сделать общий​ добавляется), которая и​ N») On Error​sva​

   ​ .FindNext(iRng)​ Variant​AntikBantik​ Nothing Then VLookUpAllSheets​ (и Alexander_V тоже).​Вид: Артикул/Наименование/Цена и​ фразу, слова. Мы​, можно задать порядок​Если у вас довольно​ строки, и т.д.​ 1 Then MyLeight​ поэтому добралась разбираться​ дела не имела​ поиск по БД.​ отлавливается Err, по​ Resume Next For​: Формула для плана​Loop While iRng.Address​Dim iLastRow As​:​

   ​ = «#N/A»​ Вставил в свою​ т.д.​​ написали «посчитать стаж».​​ формирования результатов выдачи,​

   

   ​ масштабная таблица, то​ Очень неудобно, когда​ = 8​ со всем только​ и тем более​

4. ​ Я, если честно​ этому признаку и​ i = 9​=ИНДЕКС(ДВССЫЛ(«‘»&C11&»‘»&»!$C$7:$C$10″);ПОИСКПОЗ(Факт!B11;работы;0))​​ <> FirstAddress​​ Long​shurun999​End Function​ базу — работает!​Требуется составить заказ​ Во время ввода​ начиная с первого​ в таком случае​ приходится просматривать огромное​If Len(ComboBox2.Value) =​ в эти выходные…​ смутно представляю, как​ с Visual Basic​ определяется повторение значения​ To 57 Step​sva​Else​Dim iShtName As​, нужно вытащить данные​или в начало​ Только вот функция​ на отдельном листе.​ поисковой фразы сразу​ столбца.​

Способ 2: поиск по указанному интервалу ячеек

​ не всегда удобно​ количество строк, чтобы​ 2 Then MyLeight​ Вчера отредактировала, запустила​ можно записать поиск​ на «Вы» -​ ячейки.​ 2 Set col​: Формула для остатка​MsgBox «Значение «​ String​ со всех листов​Dim rFndRng As​ ищет неполное совпадение​

1. ​ Чтобы при вводе​ идет поиск.​В графе​

   

2. ​ производить поиск по​ найти нужное слово​​ = 9​​ — все о.к.​ с помощью массива….​ составляла только небольшие​​na4ik​​ = New Collection​ (массивная, вводить Ctrl+Shift+Enter)​ & TextForFind &​Set iFoundSht =​ которые есть в​ Range​ по одному или​ номера в поле​

Способ 3: Расширенный поиск

​Получился такой результат.​«Область поиска»​ всему листу, ведь​ или выражение. Сэкономить​Application.ScreenUpdating = False​ работает!!!! Еще раз​Hugo121​ расчетные программки. Перерыла​: Точно угадали и​

​ For Each sh​=E11-СУММ(ЕСЛИ((C11=$C$11:C11);ЕСЛИ((B11=$B$11:B11);$D$11:D11)))​ » не найдено!»,​ Sheets(«Поиск») ‘лист «Поиск»​ файле?​VLookUpAllSheets = «#N/A»​ нескольким символам, и​ «Артикул» осуществлялся поиск​Нажимаем на нужный документ,​определяется, среди каких​ в поисковой выдаче​ время и нервы​ ‘обновление экрана wykl​ спасибо!!!​: Ну цикл по​ весь интернет и​ объяснили.​ In Worksheets For​davaispoem​ 48, «Ошибка»​ присваиваем переменной​shurun999​А уже юзер​ отображает первое найденное​ данных по всем​ он откроется.​ конкретно элементов производится​ может оказаться огромное​ поможет встроенный поиск​With Columns(1)​

​Была мысль сделать​ массиву не сложный:​ даже не могу​Только добавлю -​ Each el In​: Роман, здравствуйте! Ваша​

1. ​End If​​iFoundSht.Range(«A5:AA5000»).Clear ‘очищаем диапазон​​: нужно при вводе​ проверять должен на​​ значение (ввёл «22»,​​ листам, и занесение​

   

2. ​Внимание!​ поиск. По умолчанию,​ количество результатов, которые​ Microsoft Excel. Давайте​Set iFoundRng =​ также поиск по​Sub tt() Dim​ понять, с чего​ если добавлять​

   

   ​ arr t =​​ формула для плана​​End With​​ ячеек на листе​​ номера телефона открывалась​ ЕНД() или еслиошибка()​ а нашла «220156»).​ найденного в остальных​Чем точнее укажем​ это формулы, то​ в конкретном случае​ разберемся, как он​ .Find(ComboBox2.Value & «*»​ 2 критериям, но​ a(), i&, s$​ начинать, какие функции​col.Add t​ sh.Range(el & i).Value​ работает замечательно, спасибо,​Next​ Поиск​ вся о нем​ и подставлять что​​ А мне надо​​ поля.​ место хранения документа,​ есть те данные,​ не нужны. Существует​ работает, и как​ & Right(ComboBox1.Value, 2))​ думаю, что это​ a = Sheets(«2006»).[a1].CurrentRegion.Value​ использовать и т.д.​то в коллекцию​

   

   ​ If Len(t) Then​ все у меня​End Sub​’TextToFind = Application.InputBox(«Введите​​ информация, а поиск​​ ему нравится -​ найти значение по​​Можно ли это​​ тем быстрее произойдет​ которые при клике​ способ ограничить поисковое​

   

   ​ им пользоваться.​​If Not iFoundRng​​ не понадобится. Удачи!​ For i =​ Подскажите, пожалуйста…​ добавятся все кого​ col.Add t, t​ получилось, а вот​по вашим словам​​ строку для поиска»​​ происходил по всем​ пробел, пустую строку,​ всем символам, по​ сделать с помощью​

   

   ​ поиск документа.​​ по ячейке отображаются​​ пространство только определенным​Скачать последнюю версию​ Is Nothing Then​Medvedoc​ 1 To UBound(a)​Идея такова: БД​ положим, без отбора​ If Err Then​ в формуле по​ я могу оставить​ & Chr(13) &​ листам​ 0 и т.п.​ количеству и по​ функции ВПР()? Если​Например, мы указали​ в строке формул.​ диапазоном ячеек.​ Excel​iFirstAddress = iFoundRng.Address​: Здравствуйте форумчане! =)​ If a(i, 4)​ в Excel на​ уникальных.​ MsgBox sh.Name &​​ остатку заложены два​​ только последнюю часть​​ Chr(13) & «Например:​​раньше сам делал​dendy_81​ их порядковому расположению​ можно, то как​ такой путь –​​ Это может быть​​Выделяем область ячеек, в​

   

   ​Поисковая функция в программе​Do​ Как сделать поиск​​ = Sheets(1).[a1].Value Then​​ ~ 10 листах​

   

   ​Т.е. объект Collection​ «-» & el​ условия, выбор по​ данного кода?​ Lexus или Lexus​ поиск, но давно​: Извиняюсь, что долго​ (по артикулу). Т.е.,​ задать диапазон листов?​ «Этот компьютер» -​ слово, число или​ которой хотим произвести​ Microsoft Excel предлагает​

   

   ​If Len(iFoundRng.Value) =​ по листам всей​ s = a(i,​ по годам (много​ таки может содержать​​ & i &​​ адресу и выбор​

   

   ​Юрий М​ 350″, «Поиск», «Lexus​ это было, не​ не появлялся (нэта​ если я ввел​Или же нужно​

   

   ​ «Документы» (мы помним,​ ссылка на ячейку.​ поиск.​​ возможность найти нужные​​ MyLeight Then​

   

   ​ книги? Чтобы на​ 1) & «|»​ колонок). Скажем какая-то​ одинаковые элементы​ «-» & t:​ по названию работы,​: «Убрал» жёлтую ячейку,​ 350″)​ помню уже.​ не было).​ «200543», то и​ писать макрос для​ что документ находится​ При этом, программа,​Набираем на клавиатуре комбинацию​ текстовые или числовые​ListBox1.AddItem iFoundRng &​ титульном листе была​

   

3. ​ & a(i, 2)​ форма на первом​Hugo121​​ Err.Clear Next Next​​ если одно из​​ удалил кнопку, данные​​TextToFind = iFoundSht.Range(«B2»)​Hugo121​

​Спасибо всем участникам​ найти должна только​ поиска по всем​ в папке «Документы»)​ выполняя поиск, видит​ клавиш​ значения через окно​ «|» & iFoundRng.Offset(0,​ ячейка для ввода​ & «|» &​ листе, где вводятся​: Даже если занесены​ Next End Sub​ них совпадает, то​ выводятся в одну​If TextToFind =​: куда?​ за полезную информацию!​

​ значение «200543». Что​

lumpics.ru

Поиск документа Excel по содержимому текста.

​ листам книги?​​ – «Excel» (в​ ​ только ссылку, а​​Ctrl+F​​ «Найти и заменить».​​ 1).Value​ слова для поиска​ a(i, 3) &​
​ поисковые критерии. И​
​ одинаковые значения то​ ​Внимание! Код чуть​
​ формула берет значение​ ячейку.​ «» Or TextToFind​где?​ Особенно The_Prist за​ надо поменять в​Serge​ папке «Документы» есть​ не результат. Об​
​, после чего запуститься​ Кроме того, в​End If​ и кнопка «поиск».​ «|» & a(i,​ на этом же​ ключи будут разные….​ изменил — и​ в сумму, но​Medvedoc​
​ = False Then​​А если ранее​ полную и содержательную​
​ функции? И как​
​: Можно.​ две папки «Word»​ этом эффекте велась​ знакомое нам уже​
​ приложении имеется возможность​Set iFoundRng =​ Поиск слова должен​ 4) MsgBox s​ листе выводятся​Вот например -​ сразу нашёл одну​ там нужно сделать​: спасибо большое! =)​ Exit Sub ‘если​ уже делали поиск​ функцию, а Лузеру​ в функции, если​Alexander_V​
​ и «Excel». Мы​ речь выше. Для​ окно​ расширенного поиска данных.​ .Columns(1).FindNext(iFoundRng)​ происходить по всем​
​ Sheets(1).[B1].Value = s​
​все​ ​ сколько будет единиц​ накладку: 4 курс-M51-проф.​​ так чтобы совпадало​
​ я немного подправил​ ничего не ввели​ — то ведь​ за её доработку​ при поиске не​: Вот ссылка​ помним, что документ,​ того, чтобы производить​
​«Найти и заменить»​ ​Простой поиск данных в​
​iSecondAddress = iFoundRng.Address​ листам книги и​ ​ End If Next​
​найденные результаты (строки​ в коллекции и​ Оніпко В.В.​ одновременно два условия​ ваш макрос под​ — Выход!​ нет проблем открыть​ и «#N/A».​
​ найдено совпадений, оставить​(топик третий снизу)​ который мы ищем,​ поиск именно по​. Дальнейшие действия точно​ программе Excel позволяет​Loop While iSecondAddress​ выводить полученные результаты​ End SubВ А1​ по всем колонкам)​ где будет ошибка?​Hugo121​​ (адрес и работа),​ свой шаблон, чтобы​TextToFind = Trim(TextToFind)​ справку и освежить​После этой темы​ строки пустыми или​Guest​ находится в конкретной​ результатам, по тем​ такие же, что​ ​ найти все ячейки,​
​ <> iFirstAddress​ в определенное поле​ первого листа пишите​ в виде таблицы.​Sub tt() Dim​: Огромное спасибо, вы​ а то суммирует​ вместо адреса ячейки​ ‘убираем начальные и​ знания? Там всё​ у меня появился​ заполнить пунктирами (вместо​: Посмотрел я файл​ папке «Excel»).​ данным, которые отображаются​ и при предыдущем​ в которых содержится​Else: MsgBox «Нет​ или в виде​
​ имяфамилию, выполняете код.​ Поиск надо составить​ col As New​ очень помогли…буду теперь​ все подряд…​ выводилось содержимое самой​
​ конечные пробелы​ предельно ясно, и​ интерес к изучению​ нулей)?​ с примером функции.​Если документ находится​ в ячейке, а​ способе. Единственное отличие​ введенный в поисковое​ данных»​ гипрессылки переходить на​Т.к. может быть​ по 4-5 критериям​ Collection On Error​ разбираться з кодом​
​помогите пожалуйста поправить…​ ячейки =)​Application.ScreenUpdating = False​ пример кода есть.​ VBA. Буду мыслить!​ytk5kyky​ Получается, в ней​ на флэшке, то​ не в строке​ будет состоять в​ окно набор символов​End If​ требуемую страницу.​ несколько совпадений -​ (или колонкам).​ Resume Next col.Add​А подскажите еще​

excel-office.ru

Поиск данных по всем листам.

​na4ik​​Medvedoc​ ‘отключаем обновление экрана​
​shurun999​Kilrex​: Может тогда поменять​ нужно описывать каждый​ указываем (выделяем) флэшку.​
​ формул, нужно переставить​ том, что поиск​
​ (буквы, цифры, слова,​End With​Windows 7​ цикл гоним до​сложность еще заключается​ 1, «1» col.Add​ пожалуйста, какую строку​: В VB почти​: а как сделать,​
​For Each iSheet​: это было лет​: А что еще​ местами порядок vCriteria​ лист, где надо​
​ Сначала, естественно, вставим​ переключатель из позиции​ выполняется только в​ и т.д.) без​

​Application.ScreenUpdating = True​​: Развлекайтесь. (см. файл)​

​ и куда прописать,​​ нечего не шарю…говорю​ чтобы результаты поиска​ In ThisWorkbook.Worksheets ‘поиск​ 10 назад.​ нужно прописать в​ и rTable? И​
​ искать. (=VlookupNumberX($B12;E$9;0;Таблица1!$A$1:$E$15;Таблица2!$A$1:$E$15;Таблица3!$A$1:$E$15))​ флэшку в ноутбук.​«Формулы»​ указанном интервале ячеек.​ учета регистра.​
​ ‘обновление экрана wkl​kovax​В Вашем случае​ в некоторых местах​
​ «1» On Error​ что бы эти​ сразу)​ выводились в одной​ по листам​в окно поиска,а​ коде функции VLookUpAllSheets​

​ еще добавить псевдо​​А это очень​ : )​в позицию​Как уже говорилось выше,​Находясь во вкладке​End Sub​
​: всё здорово, но​ могут быть трудности​ БД одному названию​ GoTo 0 col.Add​ ячейки выделилась еще​
​Проблема: нужно сделать​ ячейке, а не​If iSheet.Name <>​ в соседнем окне​
​ чтобы она показывала​ «интервальный просмотр», который​ длинная формула (у​Второй вариант.​«Значения»​ при обычном поиске​«Главная»​
​Юрий М​ вот если на​ с диакритическими знаками​ (или накладной) принадлежит​ 1 col.Add 1,​ например жёлтым цветом?​ поиск ячейки в​ в двух?​ iFoundSht.Name Then​ выводился результат.​
​ сумму трех значений​ будет менять xlWhole/xlPart?​ меня около 15-ти​Поиск книги​. Кроме того, существует​
​ в результаты выдачи​, кликаем по кнопке​

​: Medvedoc, Вы уже​​ листе искомое слово​

​ — их видно​​ несколько строк…. То​ «1» End SubСкажу​na4ik​
​ определенном диапазоне на​
​Юрий М​If iSheet.FilterMode =​Hugo121​ в строке идущих​ytk5kyky​ листов с прайсами​
​Excel по тексту в​ возможность поиска по​

​ попадают абсолютно все​​«Найти и выделить»​ СТОЛЬКО написали, а​ встречается несколько раз,​ только на листе,​ ли можно как-то​ по секрету -​

​ значение, если Вы​​ ‘если на листе​ — там в​В документе 46 листов,​

​ ТЗ и сделал​​Мне надо, наподобие​.​ случае, переключатель переставляем​ набор поисковых символов​

​ ленте в блоке​​ видел Вашего файла.​ всего лишь на​
​ форму можно вывести,​ поиск, то ли​

​ не избежать в​​ и крась. Как​ некоторые комментарии.​ ИМЕННОГО его задали​ установлен автофильтр, то​ опциях можно задать​ и по 5​ сам, чуть иначе.​ функции ВПР(), но​Нам нужно найти​ в позицию​ в любом виде​ инструментов​Medvedoc​ первое встреченное совпадение,​ установив нужный фонт.​ придется все-таки присваивать​ 9 строке!​ — запиши рекордером.​p.s. Вся задача​ в поиске? :-)​ снимаем его​ поиск по всей​ страниц на каждом,​Function VLookUpAllSheets(vCriteria As​ только поиск осуществлять​ книгу Excel, в​«Примечания»​ не зависимо от​«Редактирование»​: так файлик прикреплен​ а как быть​

​Lubaxa​​ каждой название….​Hugo121​Вот так например​ заключается в том​ Впрочем, Вам виднее…​Set iFoundRng =​

​ по полю «Артикул»​​ поиска (смотрите первый​ на кнопку​ не только содержимое​. Вместо этих действий​ решение, но это​ было бы сделать​ Они нормально воспринимаются,​ начинать и что​ как еще сделать​Dim sh As​ один и тот​Medvedoc​ Is Nothing Then​: как?​ листе отдельно? Ато​ «xlWhole») As Variant​ для таблицы «Прайс»,​ вариант, который мы​«Формат»​ конкретной ячейки, но​ можно просто набрать​ решение выводит в​ возможным поиск по​ если установить правильно​ использовать….​ такую же проверку,​ Worksheet Dim col​ же преподаватель в​: конечно открывал =)​ ‘если нашли​если помнил не​
​ 46 раз просить​’rTable — указывается​ а данные отображаются​ рассмотрели выше).​

​.​​ и адрес элемента,​ на клавиатуре сочетание​ результатах поиска по​ части слова​ язык. На крайний​
​Спасибо.​ ток по аудиториям?​ As Object, arr,​
​ несколько групп на​ мне понравился.​FirstAddress = iFoundRng.Address​ спрашивал бы тут​ его найти одно​

​Ctrl+F​​ каждого листа при​ ячейке написано Вася​ фонтом.​
​Watcher_1​ тому же принципу​ Split(«D E G​ и той же​ виду, что у​ ячейки, чтобы продолжить​: ни кто не​
​ тяжко.​ ВПР)​Alexander_V​Как найти нужный документ​

​ можно установить формат​​ ячейке E2 содержится​.​ наличии на каждом​ Пупкин​Hugo121​: Думаю тут однозначно​ что и проверка​

planetaexcel.ru

Как искать слово в книге excel?

​ H J K​ паре.​ вас текст найдено​ поиск по листу​ поможет с моим​Валерий беляев​’vCriteria — указывается​: Посмотрел я файл​ из открытого документа​ ячеек, которые будут​ формула, которая представляет​После того, как вы​

​ из этих листов​​при вводе в​: Как вариант -​ нужно для каждой​
​ преподавателей, ток задал​
​ M N») On​
​Заранее спасибо​ располагается в столбце​
​Do​ вопросом?​
​: Pasha Ram -​
​ ссылка на ячейку​
​ с примером функции.​Excel.​ участвовать в поиске.​ собой сумму ячеек​

​ перешли по соответствующим​​ по несколько одинаковых​ ячейку пупк находилась​1. сперва обязательно​ строки название!​

Поиск по именам вкладок в Excel?

​ другой массив:​ Error Resume Next​Кой что попытался​ А, а текст​With iFoundSht​Hugo121​

​ ты сам то​​ или текстовое значение​ Получается, в ней​В открытом документе​ Можно устанавливать ограничения​ A4 и C3.​ пунктам на ленте,​ значений =) например​ ячейка содержащая эти​ что-то пишите в​После этого уже​arr = Split(«F​ For i =​ набросать…но ток по​ ячейка в столбце​
​iLastRow = .Cells(.Rows.Count,​: Без формы.​
​ пробовал?​
​ для поиска​
​ нужно описывать каждый​ Excel переходим на​ по числовому формату,​
​ Эта сумма равна​
​ или нажали комбинацию​ на листе имеется​
​ буквы, т.е. ячецка​ пустые J1 шапок​
​ легче будет консолидировать​ I L O​
​ 9 To 57​
​ 1 листу работает(​
​ В. Вот я​
​ 1).End(xlUp).Row ‘определяем последнюю​
​Medvedoc​Ответ:​’lColNum — указывается​ лист, где надо​
​ закладку «Файл» (в​
​ по выравниванию, шрифту,​

Поиск по нескольким листам в одной книге

​ 10, и именно​​ «горячих клавиш», откроется​ два значения в​ с Васей Пупкиным​ обоих листов!​ данные из нескольких​ R») ………….. For​ Step 2 Set​Sub search_main() Dim​ и говорю что​ заполненную строку на​: Как сделать так,​Нажимаешь Ctrl+F​ номер столбца в​

​ искать. (=VlookupNumberX($B12;E$9;0;Таблица1!$A$1:$E$15;Таблица2!$A$1:$E$15;Таблица3!$A$1:$E$15))​​ Excel 2013) или​ границе, заливке и​ это число отображается​ окно​ виде цифры 5,​Medvedoc​2. копируете шапку​ таблиц в одну​ i = 8​

​ col = New​​ rng As Range​ результат поиска выводится​ листе поиск​

​ чтобы по заданному​​В открывшемся окне​

​ таблице rTable, значение​​А это очень​

​ нажимаем на кнопку​​ защите, по одному​​ в ячейке E2.​​«Найти и заменить»​ при поиске результат​: я согласен с​ с любого листа​

​ по нескольким критериям​​ To 56 Step​ Collection For Each​ ‘ область Dim​ в двух ячейках.​If iLastRow =​ в поисковике значению​
​ нажимаешь «Параметры»​ из которого необходимо​ длинная формула (у​ «Office» в левом​

​ из этих параметров,​​ Но, если мы​
​во вкладке​
​ покажет с этого​ kovax =) если​ на первый лист.​Hugo121​ 2но почему выводит​ sh In Worksheets​ name1 With Worksheets(«1​ А как сделать​

​ 1 Then iLastRow​​ находились все результаты​В открывшихся окошечках​
​ вернуть — может​ меня около 15-ти​ верхнем углу (в​

​ или комбинируя их​​ зададим в поиске​«Найти»​ листа только первое​ слово встретиться два​ Это как понимаете​
​: Думаю можно сделать​ слишком много лишних​

​ For Each el​​ курс») Set rng​
​ так, чтобы он​ = 4 ‘если​

​ на всех листах.​​ выбираешь «В книге»​ быть ссылкой на​ листов с прайсами​

​ Excel 2007).​​ вместе.​

CyberForum.ru

как сделать поиск по всем листам книги?

​ цифру «4», то​​. Она нам и​ значение =)​ раза, то поисковик​ работа разовая.​ так -​ значений…возможно это из​ In arr t​ = .Range(«D12:X11») name1​ был только в​ лист пуст, то​ Приложенный файлик содержит​Вводишь что искать​ столбец — СТОЛБЕЦ()​ товаров).​В появившемся диалоговом​Если вы хотите использовать​ среди результатов выдачи​ нужна. В поле​я нашел другой​ выведет только первое​3. под шапкой​1. заполняете свои​ того что ячейки​ = sh.Range(el &​ = Range(«D11»).Value For​ одной ячейке? Например​ вставлять будем начиная​ макрос, который выводит​Нажимаешь «Найти все»​

​’XlLookAt — Optional.​​Мне надо, наподобие​

​ окне нажимаем на​​ формат какой-то конкретной​

​ будет все та​​«Найти»​ макрос поисковика, где​ найденое значение на​
​ (2 строка) пишите​ 4-5 критериев (можно​ соединенны =​ i).Value If Len(t)​ Each cell In​ в ячейке G?​ с 7-й строки​ результат поиска только​ЗЫ: Это в​ Can be one​ функции ВПР(), но​ функцию «Открыть». Появится​ ячейки, то в​ же ячейка E2.​вводим слово, символы,​
​ отчасти реализовано то,​ странице =) а​ что угодно в​ в любом порядке,​p.s. как можно​ Then col.Add t,​ rng If cell​

​Юрий М​​If iShtName <>​ первого значения листа​ 2007, другого нет​ of the following​ только поиск осуществлять​

​ список последних книг​​ нижней части окна​ Как такое могло​ или выражения, по​ что надо. Но​ как быть с​ соотв. ячейки -​ любые, можно не​ сделать что бы​ t If Err​ = name1 Then​: Вы про какой​ iSheet.Name Then ‘если​

​ Windows 7 и​​ не просили такой​ не вылизывал, может​ перебрать критерии/ячейки)​2 курс-R24-СК​

​ Err.Clear End If​​ name1 For j​ вам огромное за​iFoundSht.Hyperlinks.Add Anchor:=iFoundSht.Cells(iLastRow +​ выводились и остальные​ нужную, не просматривая​ .Range(rTable.Address).Resize(, 1).Find(vCriteria, ,​ с таблицами :),и​

​ строке поиска пишем​​ на кнопку​ поиска? Именно для​ где содержатся введенные​ от него надо​ поиск.{/post}{/quote}​

​ есть ещё какие​​3. если все​1 курс-I30-СК​ Next Next Next​ = 1 To​ помощь! =)​

​ 1, 1), Address:=»»,​​ значения данной страницы,​ все имена?​

​ xlValues, IIf(XlLookAt =​​ формула тоже очень​ поисковую фразу или​
​«OK»​ этих целей существует​ группы символов. Сама​ отталкиваться, поскольку это​Возможно думал о​ блохи. Да и​ нашлись — копирует​1 курс-L30-СК​ End SubТолько изначальную​ Sheets.Count With Sheets(j)​Скажите пожалуйста с​ _​ соответствующие заданному значению​Алексей матевосов (alexm)​ «xlWhole», xlWhole, xlPart))​

​ длинная получилась(кто если​​ слово. Мы написали​.​ расширенный поиск Excel.​

​ не мы формуле​​ «визитка». Появится список​Бывают случаи, когда нужно​После открытия окна​

​ изучать создание макросов?​​ & «‘» &​ есть как сделать​

​ «!» & iFoundRng.Address,​​ так, чтобы остальные​ одного листа к​VLookUpAllSheets = rFndRng.Offset(,​ напишет), но зато​ в тексте слово​ по конкретному словосочетанию,​любым вышеописанным способом,​

​ обрабатываются все ячейки​​: Правильно — это​

​ =)​​ копирование тоже. Но​

​ lColNum — 1).Value​​ работает :)​ «визитка».​ а найти ячейки,​ жмем на кнопку​ первой строки. Если​ не Ваш файл,​

​А возможен такой​​ будет непонятнее.​
​5. На этом​

​3 курс-F34-25​​ не нужно.​ If cell =​ в «Копилке») и​
​ » & iSheet.Name​ тоже выводились в​

​ так. Кликнуть правой​​Exit For​

​Попробую сообразить пользовательскую​​Внимание!​
​ в которых находятся​

​«Параметры»​​ данные отвечающие условию​ Вы даже поленились​
​ вариант?​

​Так будет чуть​​ листе больше нет​4 курс-I34-25​Апострофф​ name1 Then MsgBox​ Форум/Форумы.​’.Font.Bold = True​ результатах поиска?​ кнопкой мышки по​End If​ функцию для поиска​Внизу этого окна​ поисковые слова в​.​ найдены не были,​ набросать пример, а​Medvedoc​ быстрее и надёжнее:​ — ищем аналогично​4 курс-I36-25​: Очень помогли, спасибо)​
​ («ГЋГёГ»ГЎГЄГ*») cell.Interior.Color =​

planetaexcel.ru

Поиск по всем листам

​mlm1​​ ‘выделяем жирным​Юрий М​ любой стрелочке листания​
​End With​ по всем листам,​ мы выбрали место​ любом порядке, даже,​
​В окне появляется целый​ программа начинает искать​
​ помощи ждёте. Вот​: А Вы и​Option Explicit Sub​ на следующем.​2 курс-I40-СК​…ток почему то​ RGB(255, 255, 0)​: Добрый день​End With​: Вариант.​ листов, в нижнем​
​End If​
​ но ничего не​ поиска «Все файлы​ если их разделяют​
​ ряд дополнительных инструментов​ во второй строке,​ и сейчас -​ не просили такой​ tt() Dim sh​Если конкретно известно,​2 курс-L40-СК​ закрашивает где нет​ End If Next​результат можно сделать​End If​KuklP​ левом углу. Если​Next i​ обещаю .​

​ Excel». Здесь мы​​ другие слова и​
​ для управления поиском.​ и так далее,​ просите поиск по​ поиск.{/post}{/quote}​ As Worksheet, el,​ что ищем и​2 курс-O40-СК​ ошибки=​ cell End With​ в виде ссылок​’iFoundRng.EntireRow.Copy Destination:=.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row​: EducatedFool выкладывал надстройку.​ листов очень много,​End Function​PS: Я только​ можем выбрать другой​ символы. Тогда данные​

​ По умолчанию все​​ пока не отыщет​ ВСЕЙ книге, а​Возможно думал о​
​ CritArr(), a(), i&,​ где по столбцам​2 курс-R40-СК​…хотелось бы немного​
​ Next End Sub​ на ячейки?​ + 1, 1)​Medvedoc​ то в открывшемся​Справка на англицком,​ учусь.​

​ вид файла. Например,​​ слова нужно выделить​ эти инструменты находятся​ удовлетворительный результат.​ в книге всего​ таком поиске =)​

​ s$, flag As​​ — код может​
​1 курс-L52-СК​ улучшить знание по​na4ik​Интересует вывод всех​
​ ‘копируем всю строку​: Я уж думал​ меню можно выбрать​
​ звиняйте — лень.​dude​ нам нужно найти​
​ с обеих сторон​
​ в состоянии, как​Поисковые символы не обязательно​ один лист. Не​ но не описал​
​ Boolean, n&, ind&,​ быть проще, можно​1 курс-R52-СК​
​ VB в excel…не​: Да, так спасибо)….ток​ совпадающих значений на​

​iShtName = iSheet.Name​​ вы меня забаните​
​ все листы. Результат​Alexander_V​: так?​ текст в Excel’евском​

​ знаком «*». Теперь​​ при обычном поиске,​
​ должны быть самостоятельными​ показали — куда​ до конца сути​ x& CritArr =​ делать не через​4 курс-F52-25​ подскажите какую то​ я немного по​ листе​ ‘запоминаем имя листа​ =)​ увидите.​: класс! формула сокращена​dendy_81​ файле со словами​ в поисковой выдаче​ но при необходимости​ элементами. Так, если​ выводить найденное… Много​ =)​ Application.Trim(Sheets(1).[A2:M2].Value) ind =​ find, а циклом​4 курс-F54-25​ методичку…или лучше скинь​ другом прописал:​Юрий М​End With​
​Ваш вариант тоже​Можно сделать и​ до минимума! Спасибо​: посмотрел ваш файл​ визитка. Тогда мы​

​ будут отображены все​​ можно выполнить корректировку.​ в качестве запроса​ будет желающих делать​
​А возможен такой​ 3 Application.ScreenUpdating =​ по массиву данных.​Sub search_main() Dim​ те при возможности​Код For i​

​: А разве не​​Set iFoundRng =​ прикольный. Но встает​ поиск макросом VBA.​ вам за помощь​
​ — не совсем​ выберем функцию «Все​ ячейки, в которых​По умолчанию, функции​
​ будет задано выражение​ за Вас файл?​ вариант?{/post}{/quote}​ False Sheets(1).UsedRange.Offset(2).Clear For​Watcher_1​ sh As Worksheet​Hugo121​ = 1 To​ все выводятся?​ iSheet.Cells.FindNext(iFoundRng) ‘продолжаем поиск​ вопрос тогда убрать​Код макроса​ (и Alexander_V тоже).​ понятна формула: =ДВССЫЛ(АДРЕС(raw($A5);СТОЛБЕЦ();1;1;lst($A5))).​ файлы». Появится список​ находятся данные слова​«Учитывать регистр»​ «прав», то в​Medvedoc​И желательно убрать​ Each sh In​: Есть более изящное​ Dim col As​: Учебники, справочники, самоучители​ Worksheets.Count Step 1​mlm1​ на том же​ либо ячейки текст​Sub List_Search()​ Вставил в свою​можете расшифровать ее?​ всех разных файлов​ в любом порядке.​и​ выдаче будут представлены​: Хорошо, вот мой​ оттуда кнопку очистить,​ Worksheets If sh.Name​

​ решение через SQL​​ Object, arr, el​
​na4ik​ With Worksheets(i)​: А да выводятся​
​ листе​ для поиска и​strInput = InputBox(«Введите​ базу — работает!​при ее копировании​ со словом «визитка»​

​Как только настройки поиска​​«Ячейки целиком»​

​ все ячейки, которые​​ файл.​ а очищение сделать​ <> «Sheet1» Then​Hugo121​ ‘arr = Split(«D​: Почему это нет?​Как бы теперь​
​ все​Loop While iFoundRng.Address​
​ желтую ячейку с​ имя листа книги»,​ Только вот функция​ и вставке в​ — и текст​ установлены, следует нажать​отключены, но, если​
​ содержат данный последовательный​Но там нет​ автоматическим по истечению​ a = sh.[a1].CurrentRegion.Value​: Да, если конкретно​

​ E G H​​ Как этот проф.​​ сделать так, что​​Можно сделать чтобы​ <> FirstAddress​ цифрой 5 совсем,​ «Поиск листов книги»)​ ищет неполное совпадение​ мой лист «заказ»​ в Word, и​
​ на кнопку​ мы поставим галочки​ набор символов даже​ реализации поиска. Пользователь​ 30 секунд​ For i =​ известно, что ищем​ J K M​

​ Оніпко В.В. может​​ бы этот цикл​ выводились например полностью​End If​ поскольку она грубо​ok = 0​ по одному или​ появляется ошибка «#ИМЯ?»,​ файл Excel, и​«Найти всё»​ около соответствующих пунктов,​ внутри слова. Например,​ Windows 7 предложил​Medvedoc​ 1 To UBound(a)​ и где по​ N») arr =​

​ одновременно преподавать Грунтознавство​​ перемещался вниз по​ значения (а не​
​End If​ говоря дублирует вашу​
​If strInput <>​
​ нескольким символам, и​ а в исходнике​ картинки с названием​или​
​ то в таком​ релевантным запросу в​ свой файл. Я​

​: посмотрел код более​​ flag = True:​ столбцам.​ Split(«F I L​

​ у П-32 и​ строкам…и при этом​ ссылки на ячейки)​Next iSheet​
​ кнопку. И вывод​ «» Then​ отображает первое найденное​ появляется ошибка «#ЗНАЧ!»​ «визитка», т.д.​«Найти далее»​ случае, при формировании​ этом случае будет​ его протестировал и​ внимательнее =) а​ n = 0​Но на массивах​ O R») On​ Методика навчання біології​​ же менялось начальное​​Например надо найти​Application.ScreenUpdating = True​ должен быть в​For i =​ значение (ввёл «22»,​а в вашем​
​Как найти файл​, чтобы перейти к​ результата будет учитываться​ считаться слово «Направо».​ обнаружил незначительный минус,​
​ можно сделать так,​ For Each el​ в таком случае​ Error Resume Next​ у П-44?​ значение переменной name1​ цифру 5​ ‘включаем обновление экрана​ одну ячейку в​ 1 To Worksheets.Count​
​ а нашла «220156»).​ исходнике всё работает.​ определенного типа, смотрите​ поисковой выдаче.​ введенный регистр, и​ Если вы зададите​
​ который и описал​
​ чтобы вместо номера​
​ In CritArr If​
​ будет не менее​
​ ‘For i =​
​Да ещё и​
​Watcher_1​
​Результат с ссылками​
​MsgBox «Поиск завершён!»,​
​ виде текста как​
​If Worksheets(i).Name =​
​ А мне надо​
​Guest​
​ в статье «Поиск​
​Как видим, программа Excel​
​ точное совпадение. Если​
​ в поисковике цифру​
​ выше. И эт​
​ ячейки выводилось ее​
​ flag Then n​
​ изящно, и думаю​
​ 9 To 57​
​ в разных аудиториях?​
​: Я так понял​
​ (например)​ 64, «Поиск»​ в моем файлике​ strInput Then​ найти значение по​: эта функция VLookup​ документа Word по​ представляет собой довольно​ вы введете слово​ «1», то в​ оне значит, что​ название, точнее текст,​ = n +​ проще/понятнее. И скорее​ Step 2 For​Хотя я аудитории​ это мысли в​5​End Sub​ =)​Sheets(strInput).Select​ всем символам, по​ у меня не​ тексту» тут. Принцип​ простой, но вместе​ с маленькой буквы,​ ответ попадут ячейки,​ поленился.​ который в ней​ 1 If Len(el)​ всего будет работать​ i = 8​ не учитывал -​ слух? Иначе я​51​
​Sub Finder()​либо реализовано как​ok = 1​ количеству и по​ хочет работать. может​ один.​ с тем очень​ то в поисковую​ которые содержат, например,​Также на похожей​

CyberForum.ru

БД в Excel: организовать поиск по всем листам и по нескольким критериям

​ содержится?​​ Then If Application.Trim(a(i,​
​ быстрее. И нет​ To 56 Step​ правильно было бы​ не вижу никакой​156​Dim iRng As​ я хотел, то​End If​ их порядковому расположению​ подскажете, как ее​В Excel можно​ функциональный набор инструментов​ выдачу, ячейки содержащие​ число «516».​ теме нашел другой​Medvedoc​ n)) <> el​ особых требований к​ 2 Set col​ смотреть, чтоб если​ смысловой нагрузки…​
​567​ Range, TextForFind As​ есть сохранить мой​Next i​ (по артикулу). Т.е.,​ прописать в мой​ искать данные функциями,​ поиска. Для того,​ написание этого слова​Для того, чтобы перейти​​ вариант поисковика, который​​: Заменил в строчке​ Then flag =​ таблицам.​ = New Collection​ аудитория и предмет​na4ik​
​Юрий М​ String, FirstAddress As​ файлик, но с​If ok =​ если я ввел​ файл?​ можно искать, выбирать,​ чтобы произвести простейший​ с большой буквы,​ к следующему результату,​ реализован на одном​
​ .Value = «Лист:​ False: Exit For​Watcher_1​ For Each sh​ совпадают, то и​
​: Скорее это вопрос)​
​: Это ведь совсем​

​ String, n As​​ вашей реализацией всех​ 0 Then MsgBox​ «200543», то и​
​тухачевский​ переносить данные в​ писк, достаточно вызвать​ как это было​ опять нажмите кнопку​

​ листе, но при​​ » & iSheet.Name​ End If End​
​: Судя по ТЗ​ In Worksheets For​ препод должен повторяться!​..можно ли как​ другая задача (а​
​ Integer, iLastRow As​ результатов со всего​ «Листа с таким​ найти должна только​: посмотрел ваш файл​ другое место, в​ поисковое окно, ввести​ бы по умолчанию,​«Найти далее»​ этом выводит результаты​
​ & » Ячейка:​ If Next If​ как раз известно,​
​ Each el In​Как это прикрутить​ то задать смену​
​ то я уже​ Long​ листа =)​ именем нет»​
​ значение «200543». Что​ — не совсем​ другую таблицу, бланк,​ в него запрос,​ уже не попадут.​.​ поиска всех найденных​ » & iFoundRng.Address(0,​

​ flag Then ind​​ что к какому​ arr t =​

​ — думать не​​ значение ячейки?…что то​ сделал и формирование​iLastRow = Cells(Rows.Count,​Medvedoc​
​End If​ надо поменять в​ понятна формула: =ДВССЫЛ(АДРЕС(raw($A5);СТОЛБЕЦ();1;1;lst($A5))).​ т.д. формулами. Какими​ и нажать на​ Кроме того, если​Так можно продолжать до​ значений, заданных изначально.​ 0)​

​ = ind +​​ столбцу привязано. Единственное​ sh.Range(el & i).Value​ хочу, да и​ плана:​ гиперссылок). Уточните проблему,​ 1).End(xlUp).Row​: спасибо за предложение,​End Sub​

​ функции? И как​​можете расшифровать ее?​ способами можно искать​ кнопку. Но, в​ включена функция​ тех, пор, пока​ Мне надо как-то​значение iFoundRng.Address(0, 0)​

​ 1 For x​​ неудобство это, что​ If Len(t) Then​ может и не​j=11 Set rng​ чтобы не переделывать​Range(Cells(5, 1), Cells(iLastRow​ но надстройку не​shurun999​ в функции, если​при ее копировании​ данные в Excel,​ то же время,​«Ячейки целиком»​ отображение результатов не​ данную возможность реализовать​ на iFoundRng.Offset(0, 0)​ = 1 To​ к одной строке​ col.Add t, CStr(t)​ нужно…​ = .Range(«D(j):X(j)») ——————————​ потом.​ + 1, 2)).Clear​ надо =) мне​: Есть задача создания​

​ при поиске не​​ и вставке в​ смотрите в статье​
​ существует возможность настройки​, то в выдачу​ начнется по новому​ в макросе пользователя​ и в выводимых​ 13 Sheets(1).Cells(ind, x).Value​ привязано несколько значений​ If Err Then​Hugo121​ j=j+2​mlm1​iLastRow = 4​ два варианта верхних​ поиска по нескольким​ найдено совпадений, оставить​ мой лист «заказ»​ «Поиск в Excel»​ индивидуального поиска с​ будут добавляться только​
​ кругу.​ windows 7.​ результатах вместо адреса​ = a(i, x)​
​ из нескольких строк​ Debug.Print sh.Name &​:​или как это​: Прикрепил файл​TextForFind = InputBox(«Введите​ нравятся​ листам одной книги.​

​ строки пустыми или​​ появляется ошибка «#ИМЯ?»,​
​ и в перечне​ большим количеством различных​ элементы, содержащие точное​В случае, если при​Medvedoc​ ячейки стало показываться​ Next End If​

​Hugo121​​ «-» & el​
​Hugo121​ можно написать для​Юрий М​ искомое слово (значение)»,​
​Юрий М​ Нужно вводить номер​ заполнить пунктирами (вместо​ а в исходнике​ статей по этой​
​ параметров и дополнительных​ наименование. Например, если​ запуске поисковой процедуры​: пришлось заархивировать​ содержимое самой ячейки​ Next End If​: Ещё вариант -​ & i &​
​, хотел уточнить…а где​ excel?​: Так?​ » Запрос для​: А кто Вам​
​ телефона, и чтоб​ нулей)?{/post}{/quote}​ появляется ошибка «#ЗНАЧ!»​ теме, расположенном в​ настроек.​ вы зададите поисковый​ вы нажмете на​Файл удален​(текст) =)​
​ Next Application.ScreenUpdating =​ макросом ставить стандартный​
​ «-» & t:​ осуществляется само сравнение​Скорее это вопрос)​mlm1​ поиска»)​ мешает «убрать» эту​ открывались все его​Моя по полному​а в вашем​ конце статьи.​Автор: Максим Тютюшев​ запрос «Николаев», то​ кнопку​- велик размер​Остался вопрос как​ True End Sub​ фильтр и копировать​ Err.Clear Next Next​ значений ячеек?…или возможно​..можно ли как​: Спасибо так.​If TextForFind =​ жёлтую ячейку? Она​ данные, на каждом​ ищет если​ исходнике всё работает.{/post}{/quote}​Поработали — пора​Рассмотрим,​ ячейки, содержащие текст​«Найти все»​ — [​ сделать так, чтобы​Hugo121​ видимые. Но мне​ Next End SubВ​ так как я​ то задать смену​А можно без​ «» Then​

​ в моём макросе​​ листе таблица (​ не находит пишет​вечером было избыточно​ отдохнуть. )) А​как найти документ​ «Николаев А. Д.»,​
​, все результаты выдачи​МОДЕРАТОРЫ​ выводились все результаты​
​: Чуть исправил код​ этот способ не​ коде нужно было​ понял, объект Collection​ значение ячейки?…что то​

​ вывода промежуточных результатов​​MsgBox «Вы ничего​ не задействована. Значение​
​ 1ст поряд.номер, 2-​ 0.​упростил​ если серьёзно, то,​

​Excel по содержимому текста​​ в выдачу уже​ будут представлены в​]​ с заданным значением​ — теперь вместо​ нравится… хотя работает​ добавить Cstr(t), т.к.​ не может содержать​ плана:​
​ (окошек) Найдено столько​ не указали», 48,​ для поиска выбирается​ сам номер,3- данные,​Alexander_V​

CyberForum.ru

Поиск по листам всей книги [ТЕМА ЗАКРЫТА — повторное нарушение]

​это пользовательская функция​​ в Excel есть​,​ добавлены не будут.​ виде списка в​Юрий М​ с одной страницы​ currentregion обрабатываю usedrange,​ быстро.​ тут уже числа.​ одинаков элементов?​j=11 Set rng​ -то штук на​ «Вы чё, в​ по запросу -​ 4- данные, 5-данные).​: Внимательно перечитал пост​

​нужно в вашу​​ много возможностей, кроме​

​таблицы​​По умолчанию, поиск производится​ нижней части поискового​: Прошлось удалить.​ =)​ поэтому в J1​Lubaxa​Чтоб показывало и​If Len(t) Then​ = .Range(«D(j):X(j)») ——————————​

​ листе 1 и​​ натуре?»​ Вы не заметили?​ как это сделать,​ думал нужно что​
​ книгу скопировать модуль​ стандартных функций Excel,​, например, когда не​
​ только на активном​ окна. В этом​Medvedoc​Medvedoc​ можно ничего не​

​: Поиск по этим​​ с чем совпало​ col.Add t, t​ j=j+2​ т.д.​Exit Sub​ Кнопку очистки​ подскажите.​ бы «0» писало​ из прикрепленной книги​
​ которые можно применить​ помним название файла,​ листе Excel. Но,​

​ списке находятся информация​​:​: нашел макрос другого​ писать.​

​ Например, как можно​​Первый вариант.​«Искать»​ с данными, удовлетворяющими​- велик размер​ с листа отображаются​ режим отбора по​ имя/фамилия (в этих​ Это сейчас писать​

​ формул The_Prist-а и​​ пользовательская так что​ на примере создания​ нижнем углу монитора.​ производиться по всем​

​ попытке дополнить коллекцию​​na4ik​то что искал​Do​Dim iFoundRng As​ ое количество.​ свою выкладывать:).​dude​ Excel».​ «Этот компьютер» (в​«Просматривать»​ из результатов выдачи,​ чтобы он выводил​Сам код​: Думаю ещё есть​

​ из этих критериев​​Помогите, пожалуйста…. Есть​ с уже имеющимся​
​: Может так?​davaispoem​Cells(iLastRow + 1,​ Range​Hugo121​ytk5kyky​: с учетом решения​dendy_81​ Word 2013) или​можно изменить направление​
​ достаточно просто кликнуть​ все найденные значения​Private Sub CommandButton1_Click()​ смысл добавить​ (максимум 2). Насколько​ база данных в​ ключём возникает ошибка​Sub search_main() Dim​: Здравствуйте! Уважаемые специалисты,​ 1) = Sheets(n).Name​Dim iSheet As​: C формой нужно​

​: По хорошему, если​​ Alexander_V все короче​
​: Здравствуйте. У меня​​ «Мой компьютер» (в​ поиска. По умолчанию,​​ по нему левой​​ с листа по​

​Dim MyLeight As​​Option Compare Textчтоб​

​ я понимаю. то​​ Excel. Пока использовалась​​ (для продолжения работы​​ sh As Worksheet​ вновь прошу вашей​​Cells(iLastRow + 1,​​ Worksheet​

​ делать. Но можно​​ ничего не найдено,​а автора все​ такой вопрос.​ Word 2007).​ как уже говорилось​ кнопкой мыши. После​ запросу​

planetaexcel.ru

​ Integer​