Здравия уважаемые знатоки!
Буду очень благодарен за подсказку. Задача вроде не сложная, но найти решение не могу.
Есть макрос, который по нажатию кнопки автоматически фильтрует столбцы согласно указанным значениям.
Есть два варианта:
1. Если заданное значение например больше нуля, то получаем все строки со значением больше нуля. Выглядит это так:
' столбец D
Select Case Range("D1")
Case Is > 0
ActiveSheet.Range(tbl.Address).AutoFilter Field:=4, Criteria1:=">0", Operator:=xlAnd
Case Is < 0
ActiveSheet.Range(tbl.Address).AutoFilter Field:=4, Criteria1:="<0", Operator:=xlAnd
Case Is = 0
ActiveSheet.Range(tbl.Address).AutoFilter Field:=4, Criteria1:="=0", Operator:=xlAnd
End Select
2. Если нужно выбрать значения например не более 0,3+ и не менее 0,3- от указанного, то выглядит это так:
' столбец E
ActiveSheet.Range(tbl.Address).AutoFilter Field:=5, Criteria1:=">=" & Str(Range("E1") - 0.3), Operator:=xlAnd, Criteria2:="<=" & Str(Range("E1") + 0.3)
Мне нужен третий вариант формулы. Если значение в верхней строке для фильтрации задано например 5, то нужно отфильтровать больше или равно 5. ">="5
Т.е. больше или равно конкретно заданному значению.
В первой формуле больше или меньше 0, во второй диапазон, а тут нужно именно больше или равно указанного значения.
Не силен в макросах, писал его не я. Мои знания заканчиваются на уровне редактирования диапазонов значений и замены местами этих формул.
Пример рабочего макроса прилагаю.
Буду очень благодарен за подсказку. Задача вроде не сложная, но найти решение не могу.
Есть макрос, который по нажатию кнопки автоматически фильтрует столбцы согласно указанным значениям.
Есть два варианта:
1. Если заданное значение например больше нуля, то получаем все строки со значением больше нуля. Выглядит это так:
' столбец D
Select Case Range("D1")
Case Is > 0
ActiveSheet.Range(tbl.Address).AutoFilter Field:=4, Criteria1:=">0", Operator:=xlAnd
Case Is < 0
ActiveSheet.Range(tbl.Address).AutoFilter Field:=4, Criteria1:="<0", Operator:=xlAnd
Case Is = 0
ActiveSheet.Range(tbl.Address).AutoFilter Field:=4, Criteria1:="=0", Operator:=xlAnd
End Select
2. Если нужно выбрать значения например не более 0,3+ и не менее 0,3- от указанного, то выглядит это так:
' столбец E
ActiveSheet.Range(tbl.Address).AutoFilter Field:=5, Criteria1:=">=" & Str(Range("E1") - 0.3), Operator:=xlAnd, Criteria2:="<=" & Str(Range("E1") + 0.3)
Мне нужен третий вариант формулы. Если значение в верхней строке для фильтрации задано например 5, то нужно отфильтровать больше или равно 5. ">="5
Т.е. больше или равно конкретно заданному значению.
В первой формуле больше или меньше 0, во второй диапазон, а тут нужно именно больше или равно указанного значения.
Не силен в макросах, писал его не я. Мои знания заканчиваются на уровне редактирования диапазонов значений и замены местами этих формул.
Пример рабочего макроса прилагаю.