|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.02.2014, 12:37 | #1 |
Форумчанин
Регистрация: 12.05.2009
Сообщений: 273
|
"координаты" фильтрованных записей
Здравствуйте. Делаю AutoFilter с помощи ComboBox-а.
Код:
Т,е, если ComboBox2.Value="Otdel2", и записи для 2-го отдела начинается с 15-го и заканчивается 50-м строке, мне надо эти 2 цифры (15, 50) узнать. Как можно найти это? Помогите пожалуйста. |
11.02.2014, 14:39 | #2 |
Форумчанин
Регистрация: 12.05.2009
Сообщений: 273
|
Попробую обяснить свою задачу.
Есть колонка, содержащая данные в след виде 1 Otdel1 2 Otdel1 3 Otdel1 4 Otdel2 5 Otdel2 6 Otdel3 7 Otdel3 8 Otdel3 9 Otdel3 Надо узнать номер начальный и конечный строки каждого отдела |
11.02.2014, 14:54 | #3 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
судя по записи выше это колонка 3.
если отделы посортированы: Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
11.02.2014, 14:56 | #4 |
Математик
Форумчанин
Регистрация: 27.02.2011
Сообщений: 123
|
for i = 1 To 500
If Cells(i, 1).EntireRow.Hidden = False Then a = i 'номер первой строки фильтрованных записей Exit For End If Next i For i = a + 1 To 500 If Cells(i, 1).EntireRow.Hidden = False Then b = i 'номер последней строки фильтрованных записей End If Next i Последний раз редактировалось roborrr; 11.02.2014 в 14:58. |
11.02.2014, 15:13 | #5 |
Форумчанин
Регистрация: 12.05.2009
Сообщений: 273
|
Спасибо, все правильно. А можно без фильтрации? Просто а комбобоксе выбрать отдел и без фильтрации найти эти цифры?
|
11.02.2014, 15:30 | #6 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
возможно у меня почерк не разборчивый... повторю
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
11.02.2014, 15:58 | #7 |
Форумчанин
Регистрация: 12.05.2009
Сообщений: 273
|
Cпасибо, Игор, понятно.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Постоянно слетает галочка "автоматически" в "Параметры Excel", "Формулы", "Вычисления в книге" | Alexsandrr | Microsoft Office Excel | 4 | 19.10.2013 14:22 |
Создать класс "Фигура", от него наследованием создать 3 класса ("треугольник", "четырехугольник", "окружность") | funnyy | Помощь студентам | 3 | 17.10.2012 17:40 |
Вывести название соответствующей карты вида "шестерка бубен", "дама червей","туз треф" и т.п. | воваава | Помощь студентам | 3 | 01.12.2011 12:50 |
Раcсчитать координаты - Нарисовать бегунок и полосу "рисованного" прогрессбара | Alex Cones | Общие вопросы Delphi | 11 | 27.04.2010 19:56 |
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" | aleksei78 | Microsoft Office Excel | 13 | 25.08.2009 12:04 |