Когда я пишу имя фирмы Лист2 , мне нужно перечислить уникальные проекты и получить итоги. названия компаний могут иметь изменчивость. значения будут принимать Лист3.
=СУММПРОИЗВ((A1:A10={"W";"X"})*(B1:B10)) правильный результат =СУММПРОИЗВ((A1:A10={"W";"X"})*(B1:C10)) B1: B10 выполняет сбор данных. B1: C10 не собирает, когда. он дает ошибку
mail будут отправлены контакты получить массив With xlMail .To = "1@xxx.com,2@xxx.com,3@xxx.com,4@xxxx.com" .Cc = "" .Subject = S2.Cells(2, 1) & " " & S2.Cells(2, 2) .body = ""
A2:A8 mail адреса, как .TO для возьму легкий путь есть?
сбой кода;
Код
Dim sendmail()
For i = 2 To w1.Cells(Rows.Count, "B").End(3).Row
If UCase(w1.Cells(i, "B")) = "x" Then
m = m + 1
ReDim Preserve sendmail(m)
sendmail(m) = w1.Cells(i, "A")
End If
Next i
Dim xlOutlook As Object
Dim xlMail As Object
Set xlOutlook = CreateObject("Outlook.Application")
Set xlMail = xlOutlook.CreateItem(0)
With xlMail
For d = 1 To m
.To = sendmail(d)
Next d
.Cc = ""
....
Я хочу, чтобы дать порядковый номер 1 и 2 в соответствии с критериями. 1. Критерии> 10 должны быть. 2. Критерии, которые должны рассматриваться в первую очередь, а затем 1 критерии. (Номера Большие)
привет. 5 столбцов смещ я хочу найти Максимальное число. (2 Число, за исключением) 9 Количество, удалить. результат должен быть 1. СМЕЩ , МАКС формулы не пробовал.