Question

第一篇文章，所以对格式的反馈表示赞赏。我想使用Userform为表中的单元格添加值。 Combobox Value'过滤器'过滤器'Col 1，Textbox 1 Value'过滤器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

感谢.....

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

按用户窗体VBA筛选表和插入值

1 个答案: