| Вопрос: Макрос Экселевский (поиск по массиву) | Добавлено: 07.02.06 20:17 |
Автор вопроса:  alexor
|
|
Привет! Нужна помощь! Необходимо написать макрос действующий по такому принципу:
Есть лист (назовем его Лист1) в котором есть таблица. В столбце A нанаходятся названия должностей (Должность1, Должность2 итд). Далее по столбцам располагаются названия показателей сами показатели итд. На каждую должность приходится от 3 показателей и более (не лимитировано). На другом листе я сделал форму запроса в виде списка. Т.е в случ выделения первой должности в списке в определенной ячейке появляется цифра 1, второй, в той же ячейке появляется цифра 2итд. На эту ячейку я нацелил такой макрос Sub Окносписка22_Изменение() If Sheets("Запрос пользователя").Cells(2, 1) = 1 Then Должность1 If Sheets("Запрос пользователя").Cells(2, 1) = 2 Then Должность2 If Sheets("Запрос пользователя").Cells(2, 1) = 3 Then Должность3 End Sub Так вот теперь осталось написать как раз макросы Должность1, 2 и 3. Суть их должна заключатся в том что Они перебирая по 1 строке в столбце A шли вниз и сравнивали с записанное в них с заданым значением (Искали заданное название должности), затем копировали 7 ячеек находящихся правее в этой же строке на другой лист (запрос пользователя), затем искали дальше и делали тоже самое. в итоге должена получится таблица мо мписком показателей прикрепленных к должности. Заранее благодарен за помощь! |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 08.02.06 06:36 |
|
Встань на таблицу списка должностей.
Данные - Фильтр - Автофильтр. |
||
Страница: 1 |