我正在制作一个直观的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”消息。
你能帮我找到我申请的具体代码吗?
谢谢
1条答案
按热度按时间v1uwarro1#
这应该行得通。