是否有一种基于列表框列之一中的条件在列表框中查找值的方法？

Question

我有一个列表框，总共有5列，第2列中有电子邮件地址。我有一些代码遍历该列，并将电子邮件地址添加到电子邮件中的收件人。效果很好，但现在我只需要在列表框第5列中添加包含某个值的电子邮件地址即可。

我已经搜索了查找方法，但找不到列表框的任何内容。

这是没有任何查找条件的代码：

strEmailRecipients = ""
For N = 0 To Me.lstContacts.ListCount - 1
    strEmailRecipients = strEmailRecipients & "; " & Me.lstContacts.Column(2, N)
Next N

有什么方法可以修改代码，使其仅添加第2列中满足第5列中特定条件的值？

Answer 1

我不明白这个问题（也许我错过了什么）。

只需使用与If相同的方法读取已存在的列值。

strEmailRecipients = ""
For N = 0 To Me.lstContacts.ListCount - 1
    If Me.lstContacts.Column(5, N) = "a certain value" Then
        strEmailRecipients = strEmailRecipients & "; " & Me.lstContacts.Column(2, N)
    End If
Next N