[@teplovdl]

Доброго дня, уважаемые. Подскажите, не могу сообразить, как просуммировать изменяющийся диапазон по условию. Что вроде суммесли. Условие подразумевается вводить через InputBox, а результат выводить через MsgBox. Т.е. есть два столбца (допустим 1 и 2). Через InputBox вводится значение, и если оно встречается в столбце 1, то суммируются значения из столбца 2 для строк, в которых это значение встречается. В MsgBox выводятся общая сумма всех значений. Количество заполненных строк в столбце 1 равно количеству заполненных строк в столбце 1 и это количество периодически добавляется.
Спасибо.

[@Alex77755]

и если оно встречается в столбце 1,

А где находятся эти столбцы?
На вскидку если на листе: сначала считать два столбца в массив, потом загнать в словарь и потом уже спрашивая значения, проверять наличие ключа в словаре суммировать

[@teplovdl]

А где находятся эти столбцы?

Допустим, столбец 1 - это столбец А, а столбец 2 - это столбец С.
Вася 35
Петя 40
Вася 40
В данном примере, если в InputBox завести "Вася", то в MsgBox должно отобразиться 75

[@Alex77755]

А, допустим:
Без файла я могу только предложить вариант решения...

Добавлено через 2 минуты

Допустим, столбец 1 - это столбец А, а столбец 2 - это столбец С.

Типа макрос должен обладать способностями искусственного интеллекта и сам догадаться где что находится?

[@pashulka]

A что =СУММЕСЛИ() уже исчезла из Excel

Visual Basic
1 MsgBox Application.SumIf([A:A], InputBox("Введите имя"), [C:C])

[@teplovdl]

1
MsgBox Application.SumIf([A:A], InputBox("Введите имя"), [C:C])

Суммесли мне известна, но не в VBA Спасибо, это то, что надо.

[@pashulka]

teplovdl, Сорри, прочитал в Вашем сообщение, как счётесли катастрофически быстро теряю зрение

[@teplovdl]

Это нормально...

Добавлено через 1 минуту
А скажите, а если придется суммировать диапазон, состоящий из двух столбцов, то как?

[@pashulka]

Результат для товарища Вася должен быть 105 ?

[@teplovdl]

Да

[@pashulka]

Как вариант, просто суммировать каждый столбец, т.е.

Visual Basic
1 2 iText = InputBox("Введите имя", , "Вася") MsgBox Application.SumIf([A:A], iText, [B:B]) + Application.SumIf([A:A], iText, [D:D])

Если столбцов более двух

Visual Basic
1 2 3 4 5 iText = InputBox("Введите имя", , "Вася") For Each iColumn In Array("B", "D", "F")     iResult = iResult + Application.SumIf(Columns("A"), iText, Columns(iColumn)) Next MsgBox iResult

Или программно вычислять формулу :

Visual Basic
1 2 =СУММ((A1:A10="Вася")*(B1:B10+D1:D10)) =СУММПРОИЗВ((A1:A10="Вася")*(B1:B10+D1:D10))

[@teplovdl]

Visual BasicВыделить код
1
2
3
4
5
iText = InputBox("Введите имя", , "Вася")
For Each iColumn In Array("B", "D", "F")
* * iResult = iResult + Application.SumIf(Columns("A"), iText, Columns(iColumn))
Next
MsgBox iResult

Прошу прощения, а выйти из цикла так?
If cells(i,1) = iText Then exit For

Добавлено через 1 минуту
Это правда для цикла типа For i = 1 to 10

[@pashulka]

А не нужно никуда выходить т.к. цикл в моём примере предназначен для перебора столбцов ("B", "D", "F"), а не строк.

P.S. С какой целью Вы перебираете строки ?

[@teplovdl]

А если пример вот такой

Visual Basic

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub zarplata() lastrow = Cells.SpecialCells(xlLastCell).Row Temp1 = (InputBox("Укажите начало периода")) Temp2 = (InputBox("Укажите конец периода")) Temp3 = (InputBox("Введите Ф.И.О. работника")) For i = 3 To lastrow         If Cells(i, 1) >= Temp1 Or Cells(i, 1) <= Temp2 Then             MsgBox "Зарплата за период " & " с " & Temp1 & " по " & Temp2 & " составила " & Application.SumIf([C:C], Temp3, [Z:Z]) + Application.SumIf([C:C], Temp3, [AA:AA]) & " руб", , "Зарплата"                 End If         If Cells(i, 3) = Temp3 Then Exit For Next End Sub

Это реальный пример. Все работает хорошо, но нужно, чтобы цикл прерывался как только в столбце 1 повстречается Temp3. Иначе бесконечно много раз вылезает MsgBox. Вроде все правильно написано, но че то цикл не прерывается.

[@pashulka]

Если воспользуетесь функцией СУММЕСЛИМН (Excel 2007 и старше), то сможете отказаться от цикла.

P.S. В более ранних версиях - можно использовать другие возможности.

Добавлено через 16 минут
Если же для подсчёта зарплаты использовать именно перебор ячеек, то можно и так :

Visual Basic

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Option Compare Text   Private Sub Zarplata()     On Error GoTo ErrHandler         Dim LastRow&, Row&, Zarplata#     Dim Temp1 As Date, Temp2 As Date, Temp3$       LastRow = Cells.SpecialCells(xlLastCell).Row     Temp1 = CDate(InputBox("Укажите начало периода"))     Temp2 = CDate(InputBox("Укажите конец периода"))     Temp3 = Trim(InputBox("Введите Ф.И.О. работника"))       For Row = 3 To LastRow         If Cells(Row, 3) = Temp3 Then            Select Case Cells(Row, 1)                Case Temp1 To Temp2                Zarplata = Zarplata + Cells(Row, 26) + Cells(Row, 27)            End Select        End If     Next     MsgBox Zarplata: Exit Sub     ErrHandler:     MsgBox Err.Description, vbCritical, Err.Number End Sub