通過用戶表單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