Поиск фигуры в excel

Данный макрос производит поиск фигур (графических объектов) на всех листах текущей книги Excel,
и выводит следующую информацию по каждой найденной фигуре:

  • Название фигуры (графического объекта)
  • Координаты верхнего левого угла
  • Координаты правого нижнего угла
  • Размеры фигуры (ширина, высота)
  • Тип фигуры (свойство Type типа MsoShapeType)
  • Тип автофигуры (свойство AutoShapeType типа MsoAutoShapeType)

Вывод информации производится в окно Immediate

Sub ВыводСпискаАвтофигурСКоординатами()
    Dim sh As Worksheet, sha As Shape
    For Each sh In ThisWorkbook.Worksheets
        Debug.Print "=== Лист «" & sh.Name & "» - количество фигур: " & sh.Shapes.Count & " ==="
        For Each sha In sh.Shapes
            n = n + 1: Debug.Print "   Фигура №" & n & " с названием «" & sha.Name & "»"
            Debug.Print "      Координаты верхнего левого угла: X=" & sha.Left & "; Y=" & sha.Top
            Debug.Print "      Координаты правого нижнего угла: X=" & sha.Left + sha.Width & "; Y=" & sha.Top + sha.Height
            Debug.Print "      Размеры фигуры: ширина=" & sha.Width & "; высота=" & sha.Height
            Debug.Print "      Тип фигуры: " & sha.Type & "; тип автофигуры: " & sha.AutoShapeType
        Next sha
        Debug.Print "=== Конец просмотра листа «" & sh.Name & "» ===" & vbNewLine
    Next sh
End Sub

В прикреплённом файле нажмите кнопку «Запуск» для запуска макроса

Результат работы макроса:

=== Лист «Лист1» - количество фигур: 4 ===
   Фигура №1 с названием «КнопкаЗапуска»
      Координаты верхнего левого угла: X=48; Y=25,5
      Координаты правого нижнего угла: X=144; Y=51
      Размеры фигуры: ширина=96; высота=25,5
      Тип фигуры: 1; тип автофигуры: 5
   Фигура №2 с названием «AutoShape 2»
      Координаты верхнего левого угла: X=105; Y=121,5
      Координаты правого нижнего угла: X=216; Y=213,75
      Размеры фигуры: ширина=111; высота=92,25
      Тип фигуры: 1; тип автофигуры: 89
   Фигура №3 с названием «Солнце»
      Координаты верхнего левого угла: X=255; Y=49,5
      Координаты правого нижнего угла: X=315,75; Y=107,25
      Размеры фигуры: ширина=60,75; высота=57,75
      Тип фигуры: 1; тип автофигуры: 23
   Фигура №4 с названием «Oval 4»
      Координаты верхнего левого угла: X=341,25; Y=154,5
      Координаты правого нижнего угла: X=459; Y=197,25
      Размеры фигуры: ширина=117,75; высота=42,75
      Тип фигуры: 1; тип автофигуры: 9
=== Конец просмотра листа «Лист1» ===
 
=== Лист «Лист2» - количество фигур: 2 ===
   Фигура №5 с названием «WordArt 1»
      Координаты верхнего левого угла: X=78,75; Y=27,75
      Координаты правого нижнего угла: X=170,25; Y=120,75
      Размеры фигуры: ширина=91,5; высота=93
      Тип фигуры: 15; тип автофигуры: -2
   Фигура №6 с названием «Стрелка»
      Координаты верхнего левого угла: X=202,5; Y=81
      Координаты правого нижнего угла: X=277,5; Y=188,25
      Размеры фигуры: ширина=75; высота=107,25
      Тип фигуры: 9; тип автофигуры: -2
=== Конец просмотра листа «Лист2» ===

Скриншот результата: http://ExcelVBA.ru/pictures/20110925-5vf-80kb.jpg


А следующий код назначает всем автофигурам макрос с названием МакросДляФигуры:

Sub НазначениеОдногоМакросаВсемФигурам()
    Dim Sh As Worksheet, sha As Shape
    For Each Sh In ActiveWorkbook.Worksheets    ' перебираем все листы в активной книге
        For Each sha In Sh.Shapes    ' перебираем все фигуры на очередном листе
            ' назначаем макрос только тем фигурам, которым ещё не назначены макросы
            If sha.OnAction = "" Then sha.OnAction = "МакросДляФигуры"
        Next sha
    Next Sh
End Sub

Назначенный макрос выводиn во вторую строку активного листа Excel информацию о выделенной фигуре: координаты, размеры, и название фигуры:
(см. пример в прикреплённом файле — пощелкайте на фигурах, кроме зеленой кнопки)

Sub МакросДляФигуры()
    On Error Resume Next
    ' получаем ссылку на фигуру, с которой был вызван этот макрос
    Dim sha As Shape: Set sha = ActiveSheet.Shapes(Application.Caller)
 
    ' заносим в диапазон ячеек a2:f2 координаты и размеры выделенной фигуры
    Range("a2:f2").Value = Array(sha.Left, sha.Top, _
                                 sha.Left + sha.Width, sha.Top + sha.Height, _
                                 sha.Width, sha.Height)
 
    sha.Select ' выделяем фигуру, которая запустила макрос
End Sub


При импорте содержимого web-страниц на лист EXCEL может попасть множество ненужных объектов: картинок, элементов управления, таблиц, форм. Часть из этих объектов может быть скрыта. Научимся отображать эти объекты, а затем удалять их.

Для примера можно скопировать содержимое любой web-страницы на лист, например,

www.mail.ru

.

Для отображения скрытых объектов необходимо вызвать в меню

команду

Область выделения

.

Нажимая на название объекта (

Picture

1

) можно выделить объект, затем клавишей

DEL

– удалить его если нужно.


Совет

: чтобы удалить элемент управления (см.

Control 13

на рисунке выше) необходимо перейти на вкладке

Разработчик

в режим

Конструктора (

).

Чтобы открыть вкладку

Разработчик

зайдите в меню

.

Выделить ВСЕ объекты можно с помощью инструмента

Выделение группы ячеек

(

). Переключатель установить на

Объекты

.

На первом рисунке (окно

Область выделения

…) видно, все объекты разделены на 2 группы (группы отделены горизонтальной линией). Инструмент

Выделение группы

ячеек

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

DEL

, можно приниматься за вторую группу объектов. Заново вызовите Инструмент

Выделение группы

ячеек,

который выделит теперь оставшиеся элементы (верхнюю группу).

Аналогичный подход может быть использован и для объектов, созданных самостоятельно.


СОВЕТ:

Другим способом удаления картинок, объектов (элементов формы),

гиперссылок

является вставка содержимого web-страницы не прямо в EXCEL, а в стандартное приложение Windows Блокнот (Notepad.exe). После вставки содержимого web-страницы из Буфера обмена в новый документ Блокнота в нем будет содержаться только текст с web-страницы. Затем остается этот текст скопировать в EXCEL.

 

Diana

Пользователь

Сообщений: 982
Регистрация: 28.12.2012

#4

10.10.2010 18:57:33

Спасибо, Дмитрий! :)  
Извиняюсь, конечно, сразу не сказала, это все нужно искать только на активном листе (выбранном), и чтобы удалялся именно он :)  
Сижу теперь, думаю, как это исправить :)

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

Описание

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

Создание образца листа

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

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

Определения терминов

В этой статье для описания встроенных функций Excel используются указанные ниже условия.

Вся таблица подстановки

Значение, которое будет найдено в первом столбце аргумента «инфо_таблица».

Просматриваемый_массив
-или-
Лукуп_вектор

Диапазон ячеек, которые содержат возможные значения подстановки.

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

3 (третий столбец в инфо_таблица)

Ресулт_аррай
-или-
Ресулт_вектор

Диапазон, содержащий только одну строку или один столбец. Он должен быть такого же размера, что и просматриваемый_массив или Лукуп_вектор.

Логическое значение (истина или ложь). Если указано значение истина или опущено, возвращается приближенное соответствие. Если задано значение FALSE, оно будет искать точное совпадение.

Это ссылка, на основе которой вы хотите основать смещение. Топ_целл должен ссылаться на ячейку или диапазон смежных ячеек. В противном случае функция СМЕЩ возвращает #VALUE! значение ошибки #ИМЯ?.

Число столбцов, находящегося слева или справа от которых должна указываться верхняя левая ячейка результата. Например, значение «5» в качестве аргумента Оффсет_кол указывает на то, что верхняя левая ячейка ссылки состоит из пяти столбцов справа от ссылки. Оффсет_кол может быть положительным (то есть справа от начальной ссылки) или отрицательным (то есть слева от начальной ссылки).

Функции

LOOKUP ()

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

Ниже приведен пример синтаксиса формулы подСТАНОВКи.

= Просмотр (искомое_значение; Лукуп_вектор; Ресулт_вектор)

Следующая формула находит возраст Марии на листе «образец».

= ПРОСМОТР (E2; A2: A5; C2: C5)

Формула использует значение «Мария» в ячейке E2 и находит слово «Мария» в векторе подстановки (столбец A). Формула затем соответствует значению в той же строке в векторе результатов (столбец C). Так как «Мария» находится в строке 4, функция Просмотр возвращает значение из строки 4 в столбце C (22).

Примечание. Для функции Просмотр необходимо, чтобы таблица была отсортирована.

Чтобы получить дополнительные сведения о функции Просмотр , щелкните следующий номер статьи базы знаний Майкрософт:

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

Ниже приведен пример синтаксиса формулы ВПР :

= ВПР (искомое_значение; инфо_таблица; номер_столбца; интервальный_просмотр)

Следующая формула находит возраст Марии на листе «образец».

= ВПР (E2; A2: C5; 3; ЛОЖЬ)

Формула использует значение «Мария» в ячейке E2 и находит слово «Мария» в левом столбце (столбец A). Формула затем совпадет со значением в той же строке в Колумн_индекс. В этом примере используется «3» в качестве Колумн_индекс (столбец C). Так как «Мария» находится в строке 4, функция ВПР возвращает значение из строки 4 В столбце C (22).

Чтобы получить дополнительные сведения о функции ВПР , щелкните следующий номер статьи базы знаний Майкрософт:

INDEX () и MATCH ()

Вы можете использовать функции индекс и ПОИСКПОЗ вместе, чтобы получить те же результаты, что и при использовании поиска или функции ВПР.

Ниже приведен пример синтаксиса, объединяющего индекс и Match для получения одинаковых результатов поиска и ВПР в предыдущих примерах:

= Индекс (инфо_таблица; MATCH (искомое_значение; просматриваемый_массив; 0); номер_столбца)

Следующая формула находит возраст Марии на листе «образец».

= ИНДЕКС (A2: C5; MATCH (E2; A2: A5; 0); 3)

Формула использует значение «Мария» в ячейке E2 и находит слово «Мария» в столбце A. Затем он будет соответствовать значению в той же строке в столбце C. Так как «Мария» находится в строке 4, формула возвращает значение из строки 4 в столбце C (22).

Обратите внимание Если ни одна из ячеек в аргументе «число» не соответствует искомому значению («Мария»), эта формула будет возвращать #N/А.
Чтобы получить дополнительные сведения о функции индекс , щелкните следующий номер статьи базы знаний Майкрософт:

СМЕЩ () и MATCH ()

Функции СМЕЩ и ПОИСКПОЗ можно использовать вместе, чтобы получить те же результаты, что и функции в предыдущем примере.

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

= СМЕЩЕНИЕ (топ_целл, MATCH (искомое_значение; просматриваемый_массив; 0); Оффсет_кол)

Эта формула находит возраст Марии на листе «образец».

= СМЕЩЕНИЕ (A1; MATCH (E2; A2: A5; 0); 2)

Формула использует значение «Мария» в ячейке E2 и находит слово «Мария» в столбце A. Формула затем соответствует значению в той же строке, но двум столбцам справа (столбец C). Так как «Мария» находится в столбце A, формула возвращает значение в строке 4 в столбце C (22).

Чтобы получить дополнительные сведения о функции СМЕЩ , щелкните следующий номер статьи базы знаний Майкрософт:

Отображаем невидимые объекты на листе EXCEL

history 26 апреля 2013 г.
    Группы статей

  • Фигуры, рисунки
  • Действия с листом

При импорте содержимого web-страниц на лист EXCEL может попасть множество ненужных объектов: картинок, элементов управления, таблиц, форм. Часть из этих объектов может быть скрыта. Научимся отображать эти объекты, а затем удалять их.

Для примера можно скопировать содержимое любой web-страницы на лист, например, ]]> www.mail.ru ]]> .

Для отображения скрытых объектов необходимо вызвать в меню Главная/ Редактирование/ Найти и выделить команду Область выделения .

Нажимая на название объекта ( Picture 1 ) можно выделить объект, затем клавишей DEL – удалить его если нужно.

Совет : чтобы удалить элемент управления (см. Control 13 на рисунке выше) необходимо перейти на вкладке Разработчик в режим Конструктора ( Разработчик/ Элементы управления ). Чтобы открыть вкладку Разработчик зайдите в меню Кнопка офис/ Параметры Excel/ Основные/ Показывать вкладку Разработчик на ленте .

Выделить ВСЕ объекты можно с помощью инструмента Выделение группы ячеек ( Главная/ Найти и выделить ). Переключатель установить на Объекты .

На первом рисунке (окно Область выделения . ) видно, все объекты разделены на 2 группы (группы отделены горизонтальной линией). Инструмент Выделение группы ячеек выделяет сначала объекты из нижней группы (наподобие выделения нижнего слоя). После их выделения, а затем удаления с помощью клавиши DEL , можно приниматься за вторую группу объектов. Заново вызовите Инструмент Выделение группы ячеек, который выделит теперь оставшиеся элементы (верхнюю группу).

Аналогичный подход может быть использован и для объектов, созданных самостоятельно.

Содержание материала

  1. Что делает функция ПОИСК?
  2. Видео
  3. Поиск
  4. Замечание
  5. Пример использования функции ПОИСК и ПСТР
  6. Найти
  7. Дополнительные параметры поиска слов и фраз
  8. Поиск символа в ячейке
  9. Производим поиск по указанному интервалу ячеек
  10. Аргументы функции
  11. ) поиска номер четыре — это макрос VBA для поиска (перебора значений)
  12. Связь с функциями ЛЕВСИМВ() , ПРАВСИМВ() и ПСТР()

Что делает функция ПОИСК?

Эта функция аналогична функции НАЙТИ и так же ищет подстроку в строке. Когда искомое найдено, отображается его позиция в тексте в виде числа.

Отличие от функции НАЙТИ в том, что ПОИСК не принимает в расчет регистр текста. Как искомого, так и того, в котором мы ищем.

Есть также процедура Найти и Заменить в Excel — у нее есть свои преимущества, такие, как подстановочные операторы.

Видео

Поиск

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

  1. Первый блок используется для записи искомой информации.
  2. Вторая часть функции позволяет задать диапазон поиска по части текста.
  3. Третий аргумент является необязательным. Его использование оправдано, если известна точка начала поиска внутри ячейки.

Рассмотрим пример: необходимо найти фрукты, которые начинаются на букву А из списка.

  1. Составляете список на рабочем листе
  1. В соседнем столбце записываете =ПОИСК(«а»;$B$4:$B$11). Не забывайте ставить двойные кавычки при использовании текста в качестве аргумента.

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

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

Позиции с единицами показывают, какие из строк содержат фрукты, начинающиеся на букву а. Как видите, остальные цифры также указывают на местоположение искомой буквы в остальных позициях диапазона. Однако, одна ячейка содержит ошибку ЗНАЧ!. Эта проблема возникает в двух случаях, при использовании функции ПОИСК:

  1. Нулевая ячейка
  2. Блок не содержит искомой информации.

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

Замечание

  • Функции ПОИСК и ПОИСКБ не учитывают регистр. Если требуется учитывать регистр, используйте функции НАЙТИ и НАЙТИБ.

  • В аргументе искомый_текст можно использовать подстановочные знаки: вопросительный знак (?) и звездочку (*). Вопросительный знак соответствует любому знаку, звездочка — любой последовательности знаков. Если требуется найти вопросительный знак или звездочку, введите перед ним тильду (~).

  • Если значение find_text не найдено, #VALUE! возвращается значение ошибки.

  • Если аргумент начальная_позиция опущен, то он полагается равным 1.

  • Если start_num больше нуля или больше, чем длина аргумента within_text, #VALUE! возвращается значение ошибки.

  • Аргумент начальная_позиция можно использовать, чтобы пропустить определенное количество знаков. Допустим, что функцию ПОИСК нужно использовать для работы с текстовой строкой «МДС0093.МужскаяОдежда». Чтобы найти первое вхождение «М» в описательной части текстовой строки, задайте для аргумента начальная_позиция значение 8, чтобы поиск не выполнялся в той части текста, которая является серийным номером (в данном случае — «МДС0093»). Функция ПОИСК начинает поиск с восьмого символа, находит знак, указанный в аргументе искомый_текст, в следующей позиции, и возвращает число 9. Функция ПОИСК всегда возвращает номер знака, считая от начала просматриваемого текста, включая символы, которые пропускаются, если значение аргумента начальная_позиция больше 1.

Пример использования функции ПОИСК и ПСТР

Пример 1. Есть набор текстовой информации с контактными данными клиентов и их именами. Информация записана в разных форматах. Необходимо найти, с какого символа начинается номер телефона.

Введем исходные данные в таблицу:

В ячейке, которая будет учитывать данные клиентов

В ячейке, которая будет учитывать данные клиентов без телефона, введем следующую формулу:

=ПОИСК(“, тел.”;адрес_анализируемой_ячейки).

Нажмем Enter для отображения искомой информации:

Далее мы можем использовать любые другие функции д

Далее мы можем использовать любые другие функции для отображения представленной информации в удобном формате:

На рисунке видно, как с помощью формулы из двух фу

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

Найти

Комбинация клавиш Ctrl+F позволяет быстро вызвать окно функции Найти. Также можно активировать инструмент через отдельную кнопку на Панели инструментов.

Расширенное диалоговое окно содержит поле для ввод

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

Данная функция реализована и в виде формулы с одно

Данная функция реализована и в виде формулы с одноименным названием, которая также позволяет осуществлять поиск по словам. Рассмотрим работу на примере списка фруктов. Вписываете формулу =НАЙТИ(«а»;$B$4:$B$11), применяете автозаполнение и получаете результат:

Дополнительные параметры поиска слов и фраз

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

Здесь можно указать дополнительные параметры поиск

Здесь можно указать дополнительные параметры поиска.

Искать:

Искать:

  • на листе — только на текущем листе;
  • в книге — искать во всем документе Excel, если он состоит из нескольких листов.

Просматривать:

Просматривать:

  • по строкам — искомая фраза будет искаться слева направо от одной строки к другой;
  • по столбцам — искомая фраза будет искаться сверху вниз от одного столбца к другому.

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

Область поиска — определяет, где именно нужно искать совпадения:

  • в формулах;
  • в значениях ячеек (уже вычисленные по формулам значения);
  • в примечаниях, оставленных пользователями к ячейкам.

А также дополнительные параметры:

  • Учитывать регистр — означает, что заглавные и маленькие буквы будут считаться как разные.

Например, если не учитывать регистр, то по запросу «excel» будет найдены все вариации этого слова, например, Excel, EXCEL, ExCeL и т.д.

Если поставить галочку учитывать регистр, то по запросу «excel» будет найдено только такое написание слова и не будет найдено слово «Excel».

  Ячейка целиком — галочку нужно ставить в т

  • Ячейка целиком — галочку нужно ставить в том случае, если нужно найти те ячейки, в которых искомая фраза находится целиком и нет других символов. Например, есть таблица со множеством ячеек, содержащих различные числа. Поисковый запрос: «200». Если не ставить галочку ячейка целиком, то будут найдены все числа, содержащие 200, например: 2000, 1200, 11200 и т.д. Чтобы найти ячейки только с «200», нужно поставить галочку ячейка целиком. Тогда будут показаны только те, где точное совпадение с «200».
  • Формат… — если задать формат, то будут найдены только те ячейки, в которых есть искомый набор символов и ячейки имеют заданный формат (границы ячейки, выравнивание в ячейке и т.д.). Например, можно найти все желтые ячейки, содержащие искомые символы.

Формат для поиска можно задать самому, а можно выб

Формат для поиска можно задать самому, а можно выбрать из ячейки-образца — Выбрать формат из ячейки…

Чтобы сбросить настройки формата для поиска нужно нажать Очистить формат поиска.

Это меню вызывается, если нажать на стрелочку в правой части кнопки Формат.

Поиск символа в ячейке

Наиболее простой пример использования функции — осуществление поиска определенного символа в ячейке.

Логика проста — если поиск позиции символа не возвращает ошибку, значит, символ в ячейке присутствует:

Поиск символа в ячейке формулой ПОИСК

Поиск символа в ячейке формулой ПОИСК

Производим поиск по указанному интервалу ячеек

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

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

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

Аргументы функции

  • find_text (искомый_текст) — текст или текстовая строка которую вы хотите найти;
  • within_text (просматриваемый_текст) — текст, внутри которого вы осуществляете поиск;
  • [start_num] ([начальная_позиция]) — числовое значение, обозначающее позицию, с которой вы хотите начать поиск. Если не указать этот аргумент, то функци начнет поиск с начала текста.

) поиска номер четыре — это макрос VBA для поиска (перебора значений)

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

Sub Poisk()

ruexcel.ru макрос проверки значений (поиска)

Dim keyword As String

keyword = «Искомое слово» ‘присвоить переменной искомое слово

On Error Resume Next ‘при ошибке пропустить

For Each cell In Selection ‘для всх ячеек в выделении (выделенном диапазоне)

If cell.Value = «» Then GoTo Line1 ‘если ячейка пустая перейти на «Line1″

If InStr(StrConv(cell.Value, vbLowerCase), keyword) > 0 Then cell.Interior.Color = vbRed ‘если в ячейке содержится слово окрасить ее в красный цвет (поиск)

Line1:

Next cell

End Sub

Связь с функциями ЛЕВСИМВ() , ПРАВСИМВ() и ПСТР()

Функция ПОИСК() может быть использована совместно с функциями ЛЕВСИМВ() , ПРАВСИМВ() и ПСТР() .

Например, в ячейке А2 содержится фамилия и имя «Иванов Иван», то формула =ЛЕВСИМВ(A2;ПОИСК(СИМВОЛ(32);A2)-1) извлечет фамилию, а =ПРАВСИМВ(A2;ДЛСТР(A2)-ПОИСК(СИМВОЛ(32);A2)) — имя. Если между именем и фамилией содержится более одного пробела, то для работоспособности вышеупомянутых формул используйте функцию СЖПРОБЕЛЫ() .

Теги

Понравилась статья? Поделить с друзьями:
  • Поиск файлов с помощью в excel
  • Поиск файлов по списку excel
  • Поиск файлов по словам в документах word
  • Поиск файлов word содержащих текст
  • Поиск файла макросом excel