Уважаемые форумчане! Помогите сделать макрос что бы в итоговой ячейке подсчитывала итоговую сумму по определенному параметру на пример "А" или "Б" или В. Саму форму и формат заполнения менять к сожалению нельзя. Заранее благодарю за помощь.
Уважаемые форумчане! Помогите сделать макрос что бы в итоговой ячейке подсчитывала итоговую сумму по определенному параметру на пример "А" или "Б" или В. Саму форму и формат заполнения менять к сожалению нельзя. Заранее благодарю за помощь.baaur
Function baaur(r As Range, crit As String) As Double Dim cr As Range, i&, spl For Each cr In r spl = Split(cr, Chr(10)) For i = LBound(spl) To UBound(spl) If Left(spl(i), Len(crit)) = crit Then baaur = baaur + CDbl(Mid(spl(i), Len(crit) + 1)) End If Next Next End Function
[/vba]
[vba]
Код
Function baaur(r As Range, crit As String) As Double Dim cr As Range, i&, spl For Each cr In r spl = Split(cr, Chr(10)) For i = LBound(spl) To UBound(spl) If Left(spl(i), Len(crit)) = crit Then baaur = baaur + CDbl(Mid(spl(i), Len(crit) + 1)) End If Next Next End Function
Добрый день всем! Ran, у нас ваш уникальный макрос работал прекрасно, пока не внесли опять корректировку в заполнение формы. Раньше у нас первых букв при заполнении одинаковых не было из за этого макрос работал прекрасно. Теперь появились в одном диапазоне одинаковые первые буквы. То есть как во вложении. Можно ли сделать так что бы он считал только конкретные значения. Спасибо.
Добрый день всем! Ran, у нас ваш уникальный макрос работал прекрасно, пока не внесли опять корректировку в заполнение формы. Раньше у нас первых букв при заполнении одинаковых не было из за этого макрос работал прекрасно. Теперь появились в одном диапазоне одинаковые первые буквы. То есть как во вложении. Можно ли сделать так что бы он считал только конкретные значения. Спасибо.baaur
Function baaur(r As Range, crit As String) As Double Dim cr As Range, i&, spl For Each cr In r spl = Split(cr, Chr(10)) For i = LBound(spl) To UBound(spl) If Left(spl(i), Len(crit)) = crit Then If IsNumeric(Left(spl(i), Len(crit) + 1)) Then baaur = baaur + CDbl(Mid(spl(i), Len(crit) + 1)) Else baaur = baaur + CDbl(Mid(spl(i), Len(crit) + 2)) End If End If Next Next End Function
[/vba]
Но код для файла из сообщения №1, а не №8.
[vba]
Код
Function baaur(r As Range, crit As String) As Double Dim cr As Range, i&, spl For Each cr In r spl = Split(cr, Chr(10)) For i = LBound(spl) To UBound(spl) If Left(spl(i), Len(crit)) = crit Then If IsNumeric(Left(spl(i), Len(crit) + 1)) Then baaur = baaur + CDbl(Mid(spl(i), Len(crit) + 1)) Else baaur = baaur + CDbl(Mid(spl(i), Len(crit) + 2)) End If End If Next Next End Function
Добрый день, ребята, пытался доработать макрос под себя, к сожалению не получилось. Необходимо что бы он выводил сумму "Отвеченных звонков" как по агенту, так и по пилоту.
Добрый день, ребята, пытался доработать макрос под себя, к сожалению не получилось. Необходимо что бы он выводил сумму "Отвеченных звонков" как по агенту, так и по пилоту.Ben
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
