MyTetra Share
Делитесь знаниями!
Фильтр на листе
16.03.2019
23:43
Текстовые метки: Фильтр, Filter, AutoFilter, Mode, AutoFilterMode
Раздел: !Закладки - VBA

''============================================================

''Установить фильтр

'Sub test_FnFiltersSheet()

' Фильтр = FnFiltersSheet(ThisWorkbook.Sheets("Анкур"), 10, 1)

'End Sub

''------------------------------------------------------------

Function FnFiltersSheet(oSh As Worksheet, _

ByVal iNbRowStartFilter As Integer, _

ByVal iNbClnStartFilter As Integer) As Boolean

'Установить фильтр

'iNbRowStartFilter - шапка

'iNbClnStartFilter - столбец начала фильтра


Dim iNbCol As Integer

Dim CellSelect As String

With oSh

.Cells.EntireColumn.Hidden = False

.Cells.EntireRow.Hidden = False

'конец фильра

iNbClnEndFilter = .Cells(iNbRowStartFilter, 256).End(xlToLeft).Column


CellSelect = Range(.Cells(iNbRowStartFilter, iNbClnStartFilter), .Cells(iNbRowStartFilter, iNbClnEndFilter)).Address

If .AutoFilterMode Then

.Range(CellSelect).AutoFilter

.Range(CellSelect).AutoFilter

Else

.Range(CellSelect).AutoFilter

End If

If .AutoFilterMode Then

FnFiltersSheet = True

Else

.Range("A1").AutoFilter

End If

End With

End Function

''============================================================

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования