MyTetra Share
Делитесь знаниями!
Фильтр_установить/сбросить
16.03.2019
23:43
Текстовые метки: Фильтр
Раздел: !Закладки - VBA

'Фильтр_установить/сбросить

Private Sub Cb_Filters_Click()


Dim iNbCln As Long: iNbCln = ActiveCell.Column

Dim iNbRow As Long: iNbRow = Columns(iNbCln).Rows(Rows.Count).End(xlUp).Row

Dim vVal As Variant: vVal = ActiveCell.value

Dim sVal As String: sVal = vVal

Dim strAssress As String


If Len(sVal) = 0 Then Exit Sub

strAssress = Range(Cells(1, iNbCln), Cells(iNbRow, iNbCln)).Address

If Cb_Filters.Caption = "Фильтр" Then

ActiveSheet.Range(strAssress).AutoFilter Field:=9, Criteria1:=sVal

Cb_Filters.Caption = sVal

Else

ActiveSheet.Range(strAssress).AutoFilter Field:=9

Cb_Filters.Caption = "Фильтр"

End If

ActiveCell.Copy

End Sub

'Sub Фильтр_установить()

' Selection.Copy

' ActiveSheet.Range("$A$1:$Q$6361").AutoFilter Field:=9, Criteria1:= _

' "659174920214"

'End Sub

'Sub Фильтр_сбросить()

' ActiveSheet.Range("$A$1:$Q$6361").AutoFilter Field:=9

'End Sub




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