Excel VBA AutoFilter百分比

Question

我想以产业增长率为标准，筛选出一份行业名单。最后，我希望我的报告只是显示工业>=增长了10%。

我想要过滤的数据在Tabelle1列10中，并显示为百分比。此外，我已经在Tabelle2 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

谢谢您:)

Answer 1

您的变量至少需要浮动(如果不是双倍的话)，因为例如12%等于0.12。

.AutoFilter属性似乎总是期望‘en’区域设置值，因此以下代码应该可以工作：

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