根据 2 列中的值删除列表框项目 - vba

Question

我对 VBA 比较陌生，正在努力创建一些表单来帮助进行库存管理。

当表单初始化时，有一个列表框将从库存表中提取产品信息。每行有 11 列，其中包含产品 ID、供应商、价格、库存商品等信息。还有三个复选框 - 低于标准的项目、标准的项目和高于标准的项目。 3 个复选框值设置为 True 开始，因为在初始化表单时所有 Inventory 都显示在列表框中。

我正在尝试编写代码，以便在未选中其中一个复选框时从列表框中删除产品。例如，如果我取消选中“低于面值的商品”，我希望删除所有库存商品数量

我该怎么做呢？我不确定如何引用列表框列中的值。

提前谢谢你！！如果不清楚，请提出问题。

---

Private Sub UserForm_Initialize()

Dim lr As Long
Dim Inv As Worksheet
Dim rng As Range

Set Inv = Sheets("Inventory")
lr = Inv.Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Inv.Range("A2:K" & lr)

Me.lbInventory.ColumnCount = 11
Me.lbInventory.RowSource = rng.Address
Me.lbInventory.ColumnHeads = True

Me.chkAbove.Value = True
Me.chkBelow.Value = True
Me.chkAt.Value = True

End Sub


Private Sub chkAbove_Change()
    ListBuild
End Sub

Private Sub chkAt_Change()
    ListBuild
End Sub

Private Sub chkBelow_Change()
    ListBuild
End Sub


Sub ListBuild()

Dim Inv As Worksheet
Set Inv = Sheets("Inventory")

Dim r As Integer
Me.lbInventory.Clear

If Me.chkBelow.Value = True Then
    For r = 1 To 11
        If Inv.Cells(r, 7).Value <
           Inv.Cells(r, 9).Value Then
                Me.lbInventory.AddItem Inv.Cells(r, 1).Value
        End If
    Next r
End If

If Me.chkAt.Value = True Then
    For r = 1 To 11
        If Inv.Cells(r, 7).Value =
           Inv.Cells(r, 9).Value Then
                Me.lbInventory.AddItem Inv.Cells(r, 1).Value
        End If
    Next r
End If

If Me.chkAbove.Value = True Then
    For r = 1 To 11
        If Inv.Cells(r, 7).Value >
           Inv.Cells(r, 9).Value Then
                Me.lbInventory.AddItem Inv.Cells(r, 1).Value
        End If
    Next r
End If

End Sub

我收到编译错误。这 3 个语句的预期表达式：

If Inv.Cells(r, 7).Value >,<,=
        Inv.Cells(r, 9).Value Then

Answer 1

可能有更清洁的方式，我鼓励任何有更清洁方式的人加入，但这似乎有效。基本上，在每个复选框的更改事件下重建列表框列表。下面我有一个示例，假设复选框被命名为BelowPar、AtPar 和AbovePar。

Private Sub AbovePar_Change()
    ListBuild
End Sub

Private Sub AtPar_Change()
    ListBuild
End Sub

Private Sub BelowPar_Change()
    ListBuild
End Sub

Sub ListBuild()

    Dim r As Integer
    InventoryList.Clear

    If BelowPar.Value = True Then
        For r = 1 To 11
            If Sheets("InventorySheet").Cells(r, 2).Value < _
               Sheets("InventorySheet").Cells(r, 3).Value Then
                    InventoryList.AddItem Sheets("InventorySheet").Cells(r, 1).Value
            End If
        Next r
    End If

    If AtPar.Value = True Then
        For r = 1 To 11
            If Sheets("InventorySheet").Cells(r, 2).Value = _
               Sheets("InventorySheet").Cells(r, 3).Value Then
                    InventoryList.AddItem Sheets("InventorySheet").Cells(r, 1).Value
            End If
        Next r
    End If

    If AbovePar.Value = True Then
        For r = 1 To 11
            If Sheets("InventorySheet").Cells(r, 2).Value > _
               Sheets("InventorySheet").Cells(r, 3).Value Then
                    InventoryList.AddItem Sheets("InventorySheet").Cells(r, 1).Value
            End If
        Next r
    End If

End Sub

调整范围和工作表名称以满足您的需要。对于此示例，Cells(r, 1).Value = 商品名称，Cells(r, 2).Value = 库存商品数量，Cells(r, 3).Value = 面值。其中 1、2、3 是包含数据的列号。