VBA筛选选定内容

Question

Dim data_text As String
data_text = Analiza_Date.TextBox6.Value

Worksheets("PE_Centralizare").Activate
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection).AutoFilter field:=1, Criteria1:=data_text

我只想过滤"A3“列的选择。

VBA用黄色标记最后一行：

Range(Selection).AutoFilter field:=1, Criteria1:=data_text

Answer 1

试试这个：

Dim data_text As String
data_text = Analiza_Date.TextBox6.Value
Worksheets("PE_Centralizare").Activate
Range("a3").CurrentRegion.AutoFilter field:=1, Criteria1:=data_text

总是重写记录器生成的内容。它是一个很好的学习和找出特定任务需要什么指令的工具，但是生成的代码是一团糟的，应该始终清理。

Answer 2

你必须改变：

Range(Selection).AutoFilter field:=1, Criteria1:=data_text

转换为以下任一项：

Range(Selection.Address).AutoFilter field:=1, Criteria1:=data_text

或者，更好的是：

Selection.AutoFilter field:=1, Criteria1:=data_text

更好的是你：

Select/Selection/Activate/ActiveXXX contexts

• work避免使用
• ，因为它们会导致对实际处理的Range (在什么Worsheet中，以及在什么Workbook中)的控制松散，特别是在多个工作表/工作簿contexts
• work中，使用完全限定(至少直到工作表)引用设置的Workbook变量，如下所示：

Dim data_text As String data_text = Analiza_Date.TextBox6.value With worksheet (“PE_Centralizare”) '<--| refer wanted worksheet .Range(.Range("A3")，.Range("A3").End(xlDown)).AutoFilter field:=1，criteria1:=data_text '<--|所有这些前导“点”表示它们的后续对象引用最后一个“With”语句中的对象(即"PE_Centralizare“工作表)以结尾