excel 双击某个单元格可显示包含单元格内容的其他工作表筛选器

waxmsbnn  于 2023-02-05  发布在  其他
关注(0)|答案(1)|浏览(204)

我正在制作一个直观的BOM。在我的工作表1中,我有用于装配的零件的完整列表(C包含所有引用)。在我的工作表2中,我有用所有零件完成的装配列表。A列是装配的引用,然后G2:X10000(表格可以增加)包含所有零件引用(每行是装配的BOM)
我想双击工作表2(G2:X10000)中的零件参照,然后自动切换到工作表1,并将双击单元格的参照作为C列的过滤器。
我已经尝试了一些代码,但总是返回错误,甚至适应我的情况。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If ActiveCell.Column = 1 Then
        Feuil1.ListObjects("Components_table").Range.AutoFilter Field:=3, Criteria1:=ActiveCell.Value.
    Feuil1.Activate
        End If
    End Sub

这里Feuil1是我的sheet1,“Components_table”是我给元件表起的名字(显然这段代码需要它)。这里我在把代码放到sheet2之前,只在第一列的测试表上双击激活的情况下尝试代码。“Feuil1.ListObjects...."行总是有错误,因为我有“执行错误9”消息。
你能帮我找到我申请的具体代码吗?
谢谢

v1uwarro

v1uwarro1#

这应该行得通。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 Then
        Feuil1.ListObjects("Components_table").Range.AutoFilter Field:=3, Criteria1:=Target.Value
        Feuil1.Activate
        Cancel = True
    End If
End Sub

相关问题