| Предыдущая тема :: Следующая тема
|
| Автор |
Сообщение |
orion
Prizivnik - draftee
Зарегистрирован: 21.09.2006
Сообщения: 2
|
 Добавлено: Чт Сен 21, 2006 10:39 am Заголовок сообщения: фильтр или сортировка по листам!!! |
 |
|
как сделать фильтр или сортировку по листам??? например у меня существует 20 листов, на десяти из них есть слово олег на остальных вася, вот мне нуно чтобы можно было выбрать или. или???если олег то невидно листы с васей и наоборот!!! поможите плз.!!!  |
|
| Вернуться к началу |
|
 |
Kaly
senior sergeant
Зарегистрирован: 30.01.2006
Сообщения: 57
|
| Добавлено: Чт Ноя 23, 2006 10:04 am Заголовок сообщения: |
|
|
все просто
условие автофильтра:
значение 1: равно - Вася
условие: или
значение 2: равно - Петя |
|
| Вернуться к началу |
|
|
orion
Prizivnik - draftee
Зарегистрирован: 21.09.2006
Сообщения: 2
|
| Добавлено: Чт Ноя 23, 2006 4:03 pm Заголовок сообщения: |
|
|
| Kaly писал(а): | все просто
условие автофильтра:
значение 1: равно - Вася
условие: или
значение 2: равно - Петя |
да нет вы не поняли! 
например: лист1(Вася),лист2(Петя),лист3(Вася),лист4(Петя),лист5(Вася)(вкладки), на них очень много информации, но и присутствуют в деапозоне 2 строки(примерно) на каждом листе слово или Вася или Петя, вот мне нужно чтобы при выборе слова Вася были показаны листы: лист1,лист3,лист5 |
|
| Вернуться к началу |
|
|
Kaly
senior sergeant
Зарегистрирован: 30.01.2006
Сообщения: 57
|
| Добавлено: Пт Ноя 24, 2006 5:08 pm Заголовок сообщения: |
|
|
вот что бы скрывались листы не знаю... это уе видимо макросы...
я в них не сильна.. могу предложить вариант сводных таблиц.... |
|
| Вернуться к началу |
|
|
Филе микроавтобуса
Efrejtor - lance-corporal
Зарегистрирован: 16.11.2006
Сообщения: 28
Откуда: Самара
|
| Добавлено: Пт Ноя 24, 2006 6:38 pm Заголовок сообщения: |
|
|
| Код: | Sub ВасяПротивПети()
Dim ListCounter As Long
For ListCounter = 1 To Worksheets.Count
If Worksheets(ListCounter).Cells.Find("Вася") Is Nothing Then 'если "Вася" есть в листе
On Error Resume Next 'забить на ошибки (чтобы на последнем листе не выдавалась ошибка)
Worksheets(ListCounter).Visible = False 'прячем лист
On Error GoTo 0 'перестать забивать на ошибки
Else 'иначе
Worksheets(ListCounter).Visible = True 'показываем лист
End If
Next
End Sub |
Просматривает все листы книги с первого по последний. Если не находит в листе "Вася", прячет лист. Если находит - наоборот, показывает лист.
Хотя бы один видимый лист должен остаться, даже если там "Васи" нет (это ограничение Excel'я). |
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
