通过用户表单VBA筛选表格和插入值

Question

第一篇文章，赞赏格式反馈。我想用一个用户窗体向表格中的单元格添加一个值。组合框值'过滤器'栏1，文本框1值'过滤器栏2和生成的栏3是我的值从textbox2输入的目标单元格。

下面的代码显示编译错误：未定义子功能或功能（突出显示“Where”）。

Private Sub CommandButton1_Click() 

Dim tbl As ListObject 
Sheets("Sheet5").Activate 
Set tbl = ActiveSheet.ListObject("Table1") 
    With tbl.DataBodyRange.Cells(12, tbl.ListColumns("Cost").Index) 
     .Value = TebxtBox2 
      Where tbl.DataBodyRange.Cells(0, tbl.ListColumns("Friendly Name").Index) = ComboBox.Value _ 
       And tbl.DataBodyRange.Cells(11, tbl.ListColumns("Height").Index) = TextBox1.Value 
    End With 



End Sub 

感谢.....

Answer 1

明白了！下面的代码过滤表格并插入值。宏附加到命令按钮。双“自动过滤器”线条清除表格过滤器，然后添加过滤器箭头。

Private Sub CommandButton1_Click() 

    Dim skn As ListObject 
    Set skn = ActiveSheet.ListObjects("Table1") 
     With skn 
     .Range.AutoFilter Field:=1, Criteria1:="Item 1" 
     .Range.AutoFilter Field:=12, Criteria1:="80.5" 
     .DataBodyRange.Columns(13).SpecialCells(xlCellTypeVisible).Select 
     Selection.Value = 12 
     .Range.AutoFilter 
     .Range.AutoFilter 


    End With 
End Sub