大于 VBA 中的自动筛选条件
声明：本页面是StackOverFlow热门问题的中英对照翻译，遵循CC BY-SA 4.0协议，如果您需要使用它，必须同样遵循CC BY-SA许可，注明原文地址和作者信息，同时你必须将它归于原作者（不是我）：StackOverFlow
原文地址: http://stackoverflow.com/questions/28667555/
Warning: these are provided under cc-by-sa 4.0 license. You are free to use/share it, But you must attribute it to the original authors (not me):
StackOverFlow
提示：将鼠标放在中文语句上可以显示对应的英文。显示中英文
时间：2020-09-12 06:19:25 来源:igfitidea点击:
Greater than in Auto Filter Criteria in VBA
提问by user1544327
How do I use greater than in this code?
我如何在此代码中使用大于？
ActiveSheet.Range("$A:$BG58").AutoFilter Field:=13, Criteria1:= _
">"Range("BJ1").Value, Operator:=xlAnd
Here is the complete code
这是完整的代码
Sheets("New Hire").Select
Range("CI1").Select
Selection.Copy
ChDir "D:\Sales Report"
Workbooks.Open Filename:="D:\Sales Report\Global_New_Hire_Report.xlsb"
Windows("Global_New_Hire_Report.xlsb").Activate
Range("BJ1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Selection.AutoFilter
Windows("Global_New_Hire_Report.xlsb").Activate
ActiveSheet.Range("$A:$BG58").AutoFilter Field:=13, Criteria1:= _
">"Range("BJ1").Value, Operator:=xlAnd
回答by L42
Criteria1argument expects Stringso you need to concatenate it like:
Criteria1参数需要String所以你需要像这样连接它：
ActiveSheet.Range("$A:$BG58").AutoFilter Field:=13, _
Criteria1:=">" & Range("BJ1").Value
