Страницы: 1
RSS
Автофильтр для даты
 
помогите доработать код, с текстом кнопка работает но вот если в ячейке даты то фильтр ломается

вот код.

Private Sub CheckBox7_Click()
If CheckBox7 Then
ActiveSheet.Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell
   
Else

ActiveSheet.ShowAllData 'Showalldata снимает фильтры со всей таблицы, независимо от расположения выделенной ячейки
ClearFields

End If
End Sub
 
fedsum, отформатированные даты и числа очень непросто фильтровать встроенным фильтром.
Для снятия фильтров есть кнопка на вкладке Данные — разместите её на панели быстрого доступа и будет удобно.

Фильтр по активной ячейке можно выставить так:
    • нажать Правую Кнопку Мыши(ПКМ) на значении
    • нажать 2 раза ф (обязательно, чтобы стояла кириллическая раскладка клавиатуры). Это эмуляция перехода по пунктам меню ПКМ до пункта "Фильтр по значению выделенной ячейки".

Цитата
fedsum: Criteria1:=ActiveCell
можно попробовать заменить на Criteria1:= ActiveCell.Text, но не гарантирую, что будет нормально работать
Изменено: Jack Famous - 11.06.2024 15:21:23
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Страницы: 1
Наверх