Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.09.2010, 11:44   #1
VerinaLera
Новичок
Джуниор
 
Регистрация: 12.09.2010
Сообщений: 2
По умолчанию Управление автофильтром через форму

Доброго времени суток.
Скажу сразу, что я вообще не программист, просто пытаюсь выполнить вычислительную практику, хотя учусь на другую специальность (и вообще не понимаю, зачем на нашем факультете это все)....

Суть дела:
Нужно на форме установить значения (в TextBox2 и TextBox3), которые соответствуют параметрам выбора "от ... до ..."
При нажатии на CommandButton1, должен происходить автофильтр данных по параметрам "от ... до ...".

Код:
Private Sub CommandButton1_Click()
Dim N As Double
Dim M As Double
N = Str(TextBox2.Value)
M = Str(TextBox3.Value)

Sheets("Аренда_Жилая").Select
ActiveSheet.Range("$A$1:$G$55").AutoFilter Field:=5, Criteria1:=">=N", _
        Operator:=xlAnd, Criteria2:="<=M"

UserForm2.Hide
End Sub
что-то в нем неправильно, т.к. происходит фильтрация от N до M (а должно быть к примеру, от 20 до 25 - это зависит от введенных значений на форме)
VerinaLera вне форума Ответить с цитированием
Старый 12.09.2010, 12:03   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

ActiveSheet.Range("$A$1:$G$55").Aut oFilter Field:=5, Criteria1:=">=" & N, _
Operator:=xlAnd, Criteria2:="<=" & M
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 12.09.2010, 12:21   #3
VerinaLera
Новичок
Джуниор
 
Регистрация: 12.09.2010
Сообщений: 2
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
ActiveSheet.Range("$A$1:$G$55").Aut oFilter Field:=5, Criteria1:=">=" & N, _
Operator:=xlAnd, Criteria2:="<=" & M
да, вы правы все получилось
VerinaLera вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Управление программой через браузер medved6216 Работа с сетью в Delphi 2 19.02.2013 13:30
Боремся с автофильтром mihakr Microsoft Office Excel 4 21.04.2009 13:35
Удаленное управление через ICQ dolphin705 Общие вопросы Delphi 25 07.10.2008 21:30
Управление через лан yura-cat Помощь студентам 7 23.09.2008 00:26