通过用户窗体 VBA 过滤表并插入值答案

【问题标题】：Filter Table and Insert Value by Userform VBA通过用户窗体 VBA 过滤表并插入值
【发布时间】：2016-11-13 15:36:26
【问题描述】：

第一次发帖，感谢您对格式的反馈。我想使用用户窗体向表格中的单元格添加一个值。 Combobox Value 'filters' Col 1, Textbox 1 Value 'filters Col 2 和结果 Col 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

谢谢.....

【问题讨论】：

请添加编译错误的详细信息，并尝试将其缩减为最小示例：stackoverflow.com/help/mcve

标签： vba excel

【解决方案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

【讨论】：