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-фильтра
      On Error Resume Next
      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   ' выбираем ячейку под текстбоксом (чтобы появились значки фильтров, если используется не автофильтр, а список)
      End With
      '===== проверяем, включен ли автофильтр на ЛИСТЕ
      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
      oBj.Activate  ' вернуть курсор в текстбокс
End Sub