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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос фильтра чисел (десятичные дроби) (Формулы/Formulas)

AwdBor

Дата: Пятница, 26.02.2016, 01:27 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 37

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

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

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

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

К сообщению приложен файл: 6534631.xlsb (14.7 Kb)

Сообщение отредактировал AwdBor - Пятница, 26.02.2016, 01:27

Ответить

_Boroda_

Дата: Пятница, 26.02.2016, 01:43 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16672

Репутация: 6479 ±

Замечаний: 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 (14.9 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995