Excel 宏 - 值比较

Question

实际上，我需要有关思考过程和选项的帮助，而不是编码方面的帮助。

我希望用户输入他们的邮政编码。然后我需要查看邮政编码的范围。 编辑：因为我来自比利时，所以邮政编码有 4 个数字长（1000、1500、8380，...），

Zip code: 2800
Range between;
1000-1999
2000-2999
3000-3999
4000-4999
If the range is between one of the following, display all zip codes for that range
Else do nothing

我想出了一个 If, Else 结构。但我想知道是否有更好的选择？

Zip code: 2800
If zip code > 3999 then
   'Select all zipcodes within this range
   'Range(" .. ").Copy Destination:=Sheets...
ElsIf zip code > 2999 then
   'Select all zipcodes within this range
   'Range(" .. ").Copy Destination:=Sheets...
Elsif zipcode  ....

谢谢。

@@@@@@@@@@@@@

Openshac

我想出了这个。

x = 1
Sheets("Reference").Select
For i = 1 to 115
    If Range("A" & i).value > 5999 and Range("A" & i).value < 6000 then
        Range("A" & i).copy Destination:=Sheets("Design").Range("A" & x)
        x = x + 1
    End if
Next i

Answer 1

switch 语句怎么样？

Select Case zipCode
Case 1000 To 1999
    'Do something
Case 2000 To 2999
    'Do something
Case 3000 To 3999
    'Do something
Case 4000 To 4999
    'Do something
Case Else
    ' Do nothing
End Select

你所拥有的很好，这只是对你来说最易读/最容易维护的情况。您不应该注意到性能有任何差异

Answer 2

阅读各种评论我仍然不清楚问题是什么。我认为您提供了一个输入 ZIP (ARG = 2800)，并且您想要显示数据表的所有 ZIP，其中千位数字与输入的千位数字相匹配，换句话说，

ZIPdata.ZIP BETWEEN INT(ARG / 1000) * 1000 AND INT(ARG / 1000) * 1000 + 999

无需任何 VBA，您就可以使用计算的值定义高级过滤器基于上述公式的标准，标准公式为

=AND(B9>=$B$2;B9<=$E$2)

    B9 being the ZIP in your first data record (not the heading)
    B2 being the lower bound using above formulae
    E2 being the upper bound using above formulae

或者，您可以跨 ZIP 定义自动过滤器，并通过 VBA 将下限和上限输入到自动过滤器标准中。