我希望使用其增长率作为标准来过滤行业列表。 最后,我希望我的工作表显示行业增长> = 10%。
我要过滤的数据在Tabelle1第10列中,并显示为百分比。此外,我已经在Tabelle2 Cell B3上说明了我的标准10%(哪个应保持变量)。但是,在完成以下代码后,它向我展示了所有行业的增长率> = 0%。
有谁知道为什么以及如何根据我的需要调整它?
Sub AutoFilter()
Dim Bereich As Range
Dim Variable As Long
Set Bereich = Tabelle1.UsedRange
Variable = Tabelle2.Range("B3").Value
Bereich.AutoFilter Field:=10, Criteria1:=">=" & Variable
End Sub
谢谢:)
答案 0 :(得分:0)
如果不是加倍,你的变量至少需要浮点数,因为例如12%
等于0.12
。
而.AutoFilter属性似乎总是期望' en-US'语言环境值因此以下代码应该起作用:
Sub AutoFilter()
Dim Bereich As Range, Variable As Double
Set Bereich = Tabelle1.UsedRange
Variable = Tabelle2.Range("B3").Value
Bereich.AutoFilter Field:=10, Criteria1:=">=" & Replace(Variable, ",", ".")
End Sub