[已解决]当选定某一单元格时，求VBA自动以该行中某一列单元文本内容跳至另一工作表中筛选.....

索马里

当该单元格（G134)被选定时，VBA自动以该行的B 列（B134)文本内容。跳至“出货表”B列中筛选。
最终效果是，乐声E13KF1变频分体机出库12台，清楚明白，这12是怎样得来的（筛选出来 的记录相加即是）。
急盼高手赐教！！！

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2013-9-21 17:01

两个表的B列数据不对应，如果编号唯一的话就以编号筛选可以吧，附件请测试

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2. If Target.Column = 7 And Target.Row > 1 Then
   
3.   If Target.Offset(, -6) = "" Then Exit Sub
   
4.   Sheets(2).Columns(2).AutoFilter Field:=2, Criteria1:=Target.Offset(, -6)
   
5.   Sheets(2).Activate
   
6. End If
   
7. If Target.Column = 6 And Target.Row > 1 Then
   
8.   If Target.Offset(, -5) = "" Then Exit Sub
   
9.   Sheets(1).Columns(2).AutoFilter Field:=2, Criteria1:=Target.Offset(, -5)
   
10.   Sheets(1).Activate
    
11. End If
    
12. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

啥都没有，就这样，估计只有神才能解决你的问题。
趁早传附件。

索马里

抱歉，加上附件。

大灰狼1976

两个表的B列数据不对应，如果编号唯一的话就以编号筛选可以吧，附件请测试

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2. If Target.Column = 7 And Target.Row > 1 Then
   
3.   If Target.Offset(, -6) = "" Then Exit Sub
   
4.   Sheets(2).Columns(2).AutoFilter Field:=2, Criteria1:=Target.Offset(, -6)
   
5.   Sheets(2).Activate
   
6. End If
   
7. If Target.Column = 6 And Target.Row > 1 Then
   
8.   If Target.Offset(, -5) = "" Then Exit Sub
   
9.   Sheets(1).Columns(2).AutoFilter Field:=2, Criteria1:=Target.Offset(, -5)
   
10.   Sheets(1).Activate
    
11. End If
    
12. End Sub

复制代码