Я настроил текстовое поле ActiveX для фильтрации 1400 нечетных строк данных с автофильтрацией, используя следующий код; Private Sub TextBox3_Change() Application.Calculation = xlManual Application.ScreenUpdating = False Selection.AutoFilter...