Поиск заголовка
Macro-функция поиска заголовка по данным из таблицы





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

Конспекты

Курсы

Практикум


Скачать файл
Ссылка на курс
Теги: Вопрос-ответ по Excel.

Macro-функция поиска заголовка по данным из таблицы

Разбираем различные задачи из реальной практики в Microsoft Excel и находим успешные решения. К примеру вложен файл с образцом, его можно скачать по кнопке. Уровень сложности примера соответствует курсу: Excel-VII: Создание макросов в Excel VBA с нуля (24 ак.ч.)

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

Макрофункция прикрепленного внизу файла как раз и решает эту задачу. Скачивайте файл, вставляйте в него свои листы (текущий лист можно удалить), пересохраняйте и работайте – функция называется СтолбецТаблицы (вводится через Мастер функций категория Определенные пользователем, либо как обычно ставим в ячейке знак равно, начинаем писать первые буквы и выбираем полное название под курсором мыши двойным щелчком или клавишей Tab). Устроена функция следующим образом:

При желании можно забрать этот макрос-функцию в любую свою книгу, для этого сначала сохраните ее, используя тип – с поддержкой макросов. Затем открываем редактор VBA ( Alt+F11 , например, или Разработчик-Код-VisualBasic ), создаем новый модуль ( Insert-Module ) и копируем в него приведенный ниже код. Далее сохраняем книгу и работаем в обычном режиме

1 Function СтолбецТаблицы (Значение As Range, Таблица As Range)
2 Dim rng As Range
3 For Each rng In Таблица
4 If rng.Value = Значение.Value Then
5 СтолбецТаблицы = Cells (Таблица.Row, rng.Column).Value
6 Exit Function
7 End If
8 Next
9 End FunctionFunction

Похожие материалы

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

ВПР может (!) найти второе одинаковое название
Поиск ВПР 2-го значения
Как составить функцию ВПР, чтобы она нашла несколько значений в таблице?

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

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

Заказчики

Я сотрудничаю с многими известными компаниями. Вот некоторые из них:

ВТБ МегаФон Глобус Абсолют

Связаться с автором

Оставьте ваше имя и адрес электронной почты, в ближайшее время я свяжусь
с вами для консультации и отвечу на вопросы!



Оставляя заявку, вы соглашаетесь на обработку ваших персональных данных.