Frankenstine
@Frankenstine
Сисадмин

Как работает Selection.AutoFilter?

Есть экселевский лист:
A | B | C | D ...
<шапка таблицы>
номера | Значение№ | пусто | Фамилии | ...
Есть такой говнокод макроса:
Sub Id_obj()
    Sheets("Лист1").Select
    Application.ScreenUpdating = False
    Dim Balon As Integer
    Balon = Sheets("Лист1").Range("CF6")
    Select Case Balon
            Case 1
                 Selection.AutoFilter Field:=1, Criteria1:="Значение1"
                 Selection.AutoFilter Field:=3, Criteria1:="<>"
            Case 2
                 Selection.AutoFilter Field:=1, Criteria1:="Значение2"
                 Selection.AutoFilter Field:=3, Criteria1:="<>"
...

Совершенно не понимаю как и почему оно работает в одном файле (скрывает строчки с пустыми значениями в столбце D и оставляет только с указанным в CF6 значением в столбце B) и не работает (скрывает все строки) в другом таком же (что поломалось).
Что конкретно я не понимаю:
1) Какие ячейки выбираются Selection.AutoFilter?
2) как я панимаю всё остальное растёт из первого :)
  • Вопрос задан
  • 1296 просмотров
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы