Private Sub FLTR_by_Box(oBj As Object, Optional СТОЛБЕЦ, Optional LTWH As String = "ltw", Optional SP_Star As Boolean = False)
'---------------------------------------------------------------------------------------
' Purpose   : п/пр. фильтрации по значению аргумента oBj.Value
' Notes1    : Опциональный аргумент СТОЛБЕЦ задаёт номер столбца, по которому нужно фильтровать. Если СТОЛБЕЦ = 0, то столбец определися автоматически
' Notes2    : Опциональный аргумент LTWH = "ltw" задаёт параметры выравнивания oBj относительно ячейки:
'             L - по левому краю, T - по верхнему краю, W - по ширине, H - по высоте, R - по правому краю, B - по нижнему краю
'             Если выравнивание не требуется, то можно задать любой стринг, не содержащий этих ЛАТИНСКИХ букв или пустой стринг ""
' Notes3    : Опциональный аргумент SP_Star = False задаёт менять или нет введённые пробелы на звёздочки
'---------------------------------------------------------------------------------------

         If IsMissing(СТОЛБЕЦ) Then СТОЛБЕЦ = oBj.TopLeftCell.Column    'если СТОЛБЕЦ не задан, то фильтруем по столбцу ячейки, в которой расположен верхний левый угол oBj-фильтра
         If СТОЛБЕЦ < 0 Or СТОЛБЕЦ > Me.Columns.Count Then MsgBox "Столбца с номером " & СТОЛБЕЦ & " на листе нет!" & vbCrLf & _
            "Исправьте код обработки события " & oBj.Name & "_Change": Exit Sub
         '===== выравниваем размеры и позицию oBj-фильтра по размерам и позиции ячейки в соответствии с аргументом LTWH
         With Cells(oBj.TopLeftCell.Row, oBj.TopLeftCell.Column)
            If UCase(LTWH) Like "*L*" Then oBj.Left = .Left + 1        ' сдвинуть левый край oBj к левому краю ячейки
            If UCase(LTWH) Like "*T*" Then oBj.Top = .Top + 1        ' сдвинуть верхний край oBj к верхнему краю ячейки
            If UCase(LTWH) Like "*W*" Then oBj.Width = .Width - 1        ' сделать ширину oBj = ширине ячейки
            If UCase(LTWH) Like "*H*" Then oBj.Height = .Height - 1        ' сделать высоту oBj = высоте ячейки
            If UCase(LTWH) Like "*R*" Then oBj.Left = .Left + .Width - oBj.Width        ' сдвинуть правый край oBj к правому краю ячейки
            If UCase(LTWH) Like "*B*" Then oBj.Top = .Top + .Height - oBj.Height        ' сдвинуть нижний край oBj к нижнему краю ячейки
            '.Select   ' выбираем ячейку под текстбоксом (чтобы появились значки фильтров, если используется не автофильтр, а список)
            '===== проверяем, включен ли автофильтр на ЛИСТЕ
            If Me.AutoFilterMode = False Then MsgBox "Фильтр на листе не включен!": Exit Sub
            '===== проверяем, включен ли автофильтр в СТОЛБЦЕ
            If Intersect(ActiveSheet.Columns(СТОЛБЕЦ), ActiveSheet.AutoFilter.Range.Columns) Is Nothing Then _
               MsgBox "Фильтр в столбце " & ColumnLetter(СТОЛБЕЦ) & " не включен!": Exit Sub
            '===== фильтруем в столбце СТОЛБЕЦ по содержимому oBj
            If SP_Star Then oBj.Value = Replace(oBj.Value, " ", "*")
            If oBj.Value <> "" Then
               Selection.AutoFilter Field:=СТОЛБЕЦ, Criteria1:="*" & oBj.Value & "*"  ', Operator:=xlAnd
            Else
               Selection.AutoFilter Field:=СТОЛБЕЦ
               Range(ActiveCell.Address).Activate  ' сдвинуть экран к выделенной ячейке
            End If
            .Value = oBj.Value '  поместить значение из текст-бокса в ячейку, в которой расположен его левый верхний угол
         End With
         oBj.Activate   ' вернуть курсор в текстбокс
End Sub