在列表框中添加相同的项目

Question

我一直在互联网上寻找解决方案，但没有成功。我想编写一个过程，该过程将遍历列表框的列，并总结与我在用户表单上的文本框（TextBox1）中找到的名称相比具有相似名称的所有值。

我已经尝试了以下代码，但它没有像我想要的那样完美工作

`

 Dim i As Integer
 Dim mySum As Double
 mySum = 0

 If Me.ListBox1.Column(i, 0) = Me.TextBox1.value And Me.ListBox1.Column(i, 0) <> "" Then
 For i = 0 To Me.ListBox1.ListCount - 1
 mySum = mySum + Me.ListBox1.List(i, 2)
 Next i
 Me.TextBox4.value = Format(mySum, "#,##0.00")

 End If
 End Sub`

它工作正常，但不是在第三列中添加与第一列中可以在 TextBox1 中找到的值相似的值，而是对第三列中的所有值进行求和

Answer 1

看起来代码中的逻辑不太正确 -

If

条件应该位于

For

循环内，以下应该有效：

For i = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.List(i, 0) = Me.TextBox1.Value And Me.ListBox1.List(i, 0) <> "" Then
        mySum = mySum + Me.ListBox1.List(i, 2)
    End If
Next i