фильтр по выбранной ячейке

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/фильтр по выбранной ячейке - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

фильтр по выбранной ячейке

Jhonson

Дата: Понедельник, 24.10.2011, 10:03 | Сообщение № 1

Группа: Друзья

Ранг: Ветеран

Сообщений: 514

Репутация: 169 ±

Замечаний: 0% ±

Добрый день!
Есть макрос фильтра по выбранной ячейке. Никак не могу избавиться от ошибки. Подробнее в файле.

К сообщению приложен файл: __.xls (24.5 Kb)

"Ничто не приносит людям столько неприятностей, как разум."

Ответить

_Boroda_

Дата: Понедельник, 24.10.2011, 10:41 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16714

Репутация: 6503 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Попробуйте так:
[vba]

Код

Public IsOn(50) As Boolean
Sub фильтр()
On Error Resume Next
If IsOn(ActiveCell.Column) Then
      Selection.AutoFilter Field:=ActiveCell.Column
      IsOn(ActiveCell.Column) = False
Else
      Selection.AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell
      IsOn(ActiveCell.Column) = True
End If
If Err.Number <> 0 Then MsgBox "Возможно в этом столбце нет автофильтра."
On Error GoTo 0
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Jhonson

Дата: Понедельник, 24.10.2011, 11:48 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 514

Репутация: 169 ±

Замечаний: 0% ±

Гениально!
Огромное спасибо!+

"Ничто не приносит людям столько неприятностей, как разум."

Ответить

фильтр по выбранной ячейке

Страница 1 из 1
1