excel吧 关注：281,831贴子：1,555,533
- 8回复贴，共1页
不感兴趣
开通SVIP免广告
做一个宏吧
ActiveSheet.Range("$A$3:$J$26").AutoFilter Field:=10, Criteria1:=ActiveSheet.Cells(2, 9)
解释一下“
ActiveSheet 就是当前表格
Range("$A$3:$J$26") 表示筛选范围 A3 -J26 你自行修改 你的筛选范围
AutoFilter 自动筛选
Field:=10 表示左边数过来第十行 就是你图片中的J 为筛选基准
Criteria1:= 筛选的值是什么
ActiveSheet.Cells(2, 9) 当前表格第二行 第九列 就是 I2
这样你每次 修改I2的数据之后 运行宏 就可以了
如果每次闲麻烦 打开VBA 找到你所要筛选的表格 右键 查看代码
ActiveSheet.Range("$A$3:$J$26").AutoFilter Field:=10, Criteria1:=ActiveSheet.Cells(2, 9)
解释一下“
ActiveSheet 就是当前表格
Range("$A$3:$J$26") 表示筛选范围 A3 -J26 你自行修改 你的筛选范围
AutoFilter 自动筛选
Field:=10 表示左边数过来第十行 就是你图片中的J 为筛选基准
Criteria1:= 筛选的值是什么
ActiveSheet.Cells(2, 9) 当前表格第二行 第九列 就是 I2
这样你每次 修改I2的数据之后 运行宏 就可以了
如果每次闲麻烦 打开VBA 找到你所要筛选的表格 右键 查看代码
如果每次修改按宏 闲麻烦 打开VBA 找到你所要筛选的表格 右键 查看代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$2" Then
ActiveSheet.Range("$A$3:$J$26").AutoFilter Field:=10, Criteria1:=ActiveSheet.Cells(2, 9)
End If
End Sub
代码解释一下
Private Sub Worksheet_Change(ByVal Target As Range)
第一句表示 该表格有变动的时候就执行下面的程序
If Target.Address = "$I$2" Then 如果变动的的位置 是 I2 那么赛选
如果不是就跳过了
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$2" Then
ActiveSheet.Range("$A$3:$J$26").AutoFilter Field:=10, Criteria1:=ActiveSheet.Cells(2, 9)
End If
End Sub
代码解释一下
Private Sub Worksheet_Change(ByVal Target As Range)
第一句表示 该表格有变动的时候就执行下面的程序
If Target.Address = "$I$2" Then 如果变动的的位置 是 I2 那么赛选
如果不是就跳过了
