VBA解决在EXCEL表中某列点击单元格，另外一个表中根据选中单元格自动筛选

独白菜

求助高手：附件《2022年12月排产跟踪统计汇总表》中表“各计划员能排车型一览表“，我点击A列A4到A37中任意单元格，比如VJ18-JM03,
则在表“各计划员可排产情况“B列中自动出VJ18-JM03筛选结果。非常感谢高人指点！！！

蓝桥玄霜

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count <> 1 Then Exit Sub
   
3.     If Target.Column <> 1 Then Exit Sub
   
4.     If Target.Row < 4 Then Exit Sub
   
5.     If Target <> "" Then
   
6.         str1 = Target.Value
   
7.         Sheets("各计划员可排产情况").Activate
   
8.         r = Sheets("各计划员可排产情况").Cells(Rows.Count, 2).End(3).Row
   
9.         Sheets("各计划员可排产情况").Range("$A$4:$AR$" & r).AutoFilter Field:=2
   
10.         Sheets("各计划员可排产情况").Range("$A$4:$AR$" & r).AutoFilter Field:=2, Criteria1:=str1
    
11.     End If
    
12. End Sub
    
13. 
    

复制代码

iu950

数据筛选，附件供参考

独白菜

iu950 发表于 2022-12-21 09:21
数据筛选，附件供参考

完美解决，谢谢老师帮助！！！

独白菜

蓝桥玄霜 发表于 2022-12-21 08:38

已解决，多谢帮助