Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос "не видит" вещественные числа
 
#1
09.09.2018 11:36:10
когда макросом в фильтре указываю числа с запятой - фильтр отрабатывает некорректно. На целые числа срабатывает правильно
Код
     Selection.AutoFilter Field:=7, Criteria1:=">=" & [I2], _
        Operator:=xlAnd, Criteria2:="<=" & [J2]
       
 
 
 
#2
09.09.2018 12:54:12
Код
 Selection.AutoFilter Field:=7, Criteria1:=">=" & Replace(Range("I2").Value, ",", "."), _
        Operator:=xlAnd, Criteria2:="<=" & Replace(Range("J2").Value, ",", ".")
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
09.09.2018 12:54:26
Код
     Selection.AutoFilter Field:=7, Criteria1:=">=" & Replace([I2], ",", ".") _
        , Operator:=xlAnd, Criteria2:="<=" & Replace([J2], ",", ".")
 
 
 
#4
09.09.2018 13:10:57
вот спасибо. все работает!
а то я очень много времени потерял с этой задачкой..
 
 
 
#5
09.09.2018 14:37:27
Код
Selection.AutoFilter Field:=7, Criteria1:=">=" & Val([I2]), _
        Operator:=xlAnd, Criteria2:="<=" & Val([J2])
 
 
 
#6
09.09.2018 16:41:24
а если я хочу чтобы строка менялась на каждую переменную из цикла for:

Код
For perebor = 1 To 8
       Selection.AutoFilter Field:=7, Criteria1:=">=" & Val(["I" & perebor]), _

          Operator:=xlAnd, Criteria2:="<=" & Val(["I" & perebor])

выдает ошибку - type mismatch

Изменено: alexandrkudryavcev - 09.09.2018 16:41:48
 
 
 
#7
09.09.2018 16:56:45
Цитата
alexandrkudryavcev написал: а если я хочу
В таком случае используйте вариант записи адреса ячейки из моего сообщения (#2)
Изменено: Sanja - 09.09.2018 17:01:16
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
09.09.2018 21:29:09
"I" & perebor - адрес ячейки
Range("I" & perebor) - ячейка
["I" & perebor] - погода в Африке.
 
 
 
#9
09.09.2018 21:49:36
Погодой в Африке можно управлять :)
Код
Sub bb()
Dim perebor
  For perebor = 1 To 8
    ActiveWorkbook.Names.Add "perebor", "=" & perebor
    Debug.Print ["I" & perebor]
  Next
  ActiveWorkbook.Names("perebor").Delete
End Sub
В квадратных скобках должна быть строка, которую может обработать вычислитель выражений Excel. О переменной VBA perebor он ничего не знает, а имя, определенное в книге - знает.
 
 
 
Страницы: 1
Наверх