У меня есть ящик списка с 5 столбцами с адресами электронной почты в столбце 2. У меня есть какой-код, который проходит через этот столбец и добавляет адреса электронной почты получателям в электронном письме. Он отлично работает, но теперь мне нужно добавлять только адреса электронной почты, которые содержат определенное значение в столбце 5 в списке 5.
Я искал поиск методов UP, но я не могу найти ничего, чтобы ящики списков.
Это код без каких-либо критериев поиска:
strEmailRecipients = ""
For N = 0 To Me.lstContacts.ListCount - 1
strEmailRecipients = strEmailRecipients & "; " & Me.lstContacts.Column(2, N)
Next N
Есть ли способ, которым я могу изменить код, чтобы добавить только значения из столбца 2, которые соответствуют определенным критериям в столбце 5?
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
Похожие вопросы
Новые вопросы
vba
Visual Basic для приложений (VBA) - это управляемый событиями объектно-ориентированный язык программирования для написания макросов, используемый для всего пакета Office, а также для других приложений. VBA не эквивалентен VB.NET или VBS; если вы работаете в Visual Studio, используйте [vb.net]. Если ваш вопрос конкретно касается программирования любого приложения MS Office, также используйте соответствующий тег: [excel], [ms-access], [ms-word], [outlook] или [ms-project].
En Español