Question

我觉得这会更容易，但它正在吃我的午餐。我有一个主Excel列表，其中包含许多列，一些文本，一些数字，以及一个带有前导字母后跟两个数字的列表。它们是自动过滤器，还有一个activeX文本框。我已经将Textbox链接到VBA，并且所有基于String的列都可以正常运行。它如下：

Private Sub TextBox4_Change()
Range("$E$1").AutoFilter Field:=5, Visibledropdown:=True    'Leave the drop down arrows on
Range("$E$1").AutoFilter Field:=5, Criteria1:="=*" & TextBox4 & "*"
End Sub

现在让我们说确切的列填充了数字。我该怎么做？它使用上面的代码过滤掉数值。有没有人使用此设置解决此问题？我今天和其他地方一直在寻找几个小时，只是找不到解决这个特定问题的正确方法。提前谢谢。

Answer 1

没关系，这真的很简单，只需将Criteria1的值更改为Textbox4即可：

Private Sub TextBox4_Change()
  Range("$E$1").AutoFilter Field:=5, Visibledropdown:=True    'Leave the drop down arrows on
Range("$E$1").AutoFilter Field:=5, Criteria1:=TextBox4
End Sub

使用ActiveX文本框和自动筛选列自动筛选数值？

1 个答案: