Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос фильтра чисел (десятичные дроби) - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос фильтра чисел (десятичные дроби) (Формулы/Formulas)
Макрос фильтра чисел (десятичные дроби)
AwdBor Дата: Пятница, 26.02.2016, 01:27 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Здравствуйте, профессионалы!

Записал рекордером макрос, который фильтрует значения в столбце D по критерию "между". Но не получается правильно записать в коде макроса условие "больше либо равно чем число из ячейки D5 и меньше либо равно чем число из ячейки D6".

Не подскажете ли как такое условие правильно указать в коде макроса?
К сообщению приложен файл: 6534631.xlsb(15Kb)


Сообщение отредактировал AwdBor - Пятница, 26.02.2016, 01:27
 
Ответить
СообщениеЗдравствуйте, профессионалы!

Записал рекордером макрос, который фильтрует значения в столбце D по критерию "между". Но не получается правильно записать в коде макроса условие "больше либо равно чем число из ячейки D5 и меньше либо равно чем число из ячейки D6".

Не подскажете ли как такое условие правильно указать в коде макроса?

Автор - AwdBor
Дата добавления - 26.02.2016 в 01:27
_Boroda_ Дата: Пятница, 26.02.2016, 01:43 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 9347
Репутация: 3922 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Sub tt()
    Dim i As Long
    i = [D1]
    Z = ">=" & Replace(Range("D5"), ",", ".")
    x = "<=" & Replace(Range("D6"), ",", ".")
    ActiveSheet.Range("$D$10:$D$" & i).AutoFilter Field:=2, Criteria1:=Z, _
        Operator:=xlAnd, Criteria2:=x
End Sub
[/vba]
Можно и без переменных
[vba]
Код
Sub tt()
    Dim i As Long
    i = [D1]
    ActiveSheet.Range("$D$10:$D$" & i).AutoFilter Field:=2, Criteria1:=">=" & Replace(Range("D5"), ",", "."), _
        Operator:=xlAnd, Criteria2:="<=" & Replace(Range("D6"), ",", ".")
End Sub
[/vba]
К сообщению приложен файл: 6534631_1.xlsb(15Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Sub tt()
    Dim i As Long
    i = [D1]
    Z = ">=" & Replace(Range("D5"), ",", ".")
    x = "<=" & Replace(Range("D6"), ",", ".")
    ActiveSheet.Range("$D$10:$D$" & i).AutoFilter Field:=2, Criteria1:=Z, _
        Operator:=xlAnd, Criteria2:=x
End Sub
[/vba]
Можно и без переменных
[vba]
Код
Sub tt()
    Dim i As Long
    i = [D1]
    ActiveSheet.Range("$D$10:$D$" & i).AutoFilter Field:=2, Criteria1:=">=" & Replace(Range("D5"), ",", "."), _
        Operator:=xlAnd, Criteria2:="<=" & Replace(Range("D6"), ",", ".")
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 26.02.2016 в 01:43
AwdBor Дата: Пятница, 26.02.2016, 01:52 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Экселист, спасибо. Работает!!!
 
Ответить
СообщениеЭкселист, спасибо. Работает!!!

Автор - AwdBor
Дата добавления - 26.02.2016 в 01:52
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос фильтра чисел (десятичные дроби) (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!