СУММПРОИЗВ на VBA

@Avgusta · Регистрация: 29.05.2010

Студворк — интернет-сервис помощи студентам

Имеем два выделенных диапазона. Как с помощью КОДА VBA посчитать Сумму Произведений значений ячеек 2х выделенных диапазонов. К примеру:

А_________F
0,12_____0,13
0,17_____0,34
0,45_____0,47

0,12*0,13+0,17*0,34+0,45*0,47=

С помощью кода VBA! Спасибо!

@Vlanib · 29.05.2010, 21:01

Visual Basic
1
2
3
4
5
With Selection
   For i = 1 To .Rows.Count
      vSum = vSum + .Areas.Item(1).Cells(i, 1) * .Areas.Item(2).Cells(i, 1)
   Next
End With

@Avgusta · 30.05.2010, 20:28 **[ТС]**

Vlanib, Спасибо большое! А можно сделать такое с произведением двух векторов? По аналогии два диапазона перемножаются как МУМНОЖ (умножение векторов). Как сделать, чтобы выводилось перемножение?

Добавлено через 49 минут
Поправочка:

А_________F
0,12_____0,13
0,17_____0,34
0,45_____0,47

0,12*0,13 = Ячейка1
0,17*0,34 = Ячейка2
0,45*0,47 = Ячейка3

@Vlanib · 30.05.2010, 22:39

Может я чего-то недопонял? Если вам надо перемножить эти значения попарно, то чем вам не подходит предыдущий код, с небольшими интуитивно понятными изменениями?

@Avgusta · 30.05.2010, 22:43 **[ТС]**

Мне непонятно как получить результат, чтобы он вставлялся в ячейки. Глупая я

@Vlanib · 30.05.2010, 23:17

Если исходные данные у вас постоянно в столбцах А и F, то можно использовать такой код:

Visual Basic
1
2
3
4
5
Sub NNN()
For i = 1 To ActiveSheet.UsedRange.Rows.Count
    Cells(i, 8) = Cells(i, 1) * Cells(i, 6)
Next
End Sub

@Avgusta · 30.05.2010, 23:41 **[ТС]**

А если как в первом случае - выделенные диапазоны? Так вообще можно сделать или нет?

@Vlanib · 31.05.2010, 17:13

Можно, например так:

Visual Basic
1
2
3
4
5
With Selection
    For i = 1 To .Rows.Count
        Cells(i, 8) = .Areas.Item(1).Cells(i, 1) * .Areas.Item(2).Cells(i, 1)
    Next
End With

@analyst · 01.06.2010, 16:52

Использование табличных функций

Наряду с функциями VBA в процедурах можно использовать встроенные функции рабочего листа (табличные функции). Названия функций VBA и функций рабочего листа часто совпадают, но параметры функций могут различаться. Часть встроенных табличных функций не имеет аналогов в VBA, например, функции Max или Min.

При необходимости использования табличной функции нужно сделать уточнение при помощи ссылки на объект Application или объект WorksheetFunction

ВНИМАНИЕ
Независимо от русскоязычной или англоязычной версий MS Office названия функций VBА и функций рабочего листа в процедурах записываются на английском языке.

Visual Basic располагает большим набором встроенных функций для обработки алфавитно-цифровых (символьных) данных. Многие из них совпадают с табличными. Но есть табличные строковые функции, отсутствующие в языке VBA, и наоборот.

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@Avgusta 0 / 0 / 0 Регистрация: 29.05.2010 Сообщений: 8

	СУММПРОИЗВ на VBA 29.05.2010, 17:34. Показов 6479. Ответов 8 Метки нет (Все метки) Имеем два выделенных диапазона. Как с помощью КОДА VBA посчитать Сумму Произведений значений ячеек 2х выделенных диапазонов. К примеру: А_________F 0,12_____0,13 0,17_____0,34 0,45_____0,47 0,120,13+0,170,34+0,45*0,47= С помощью кода VBA! Спасибо! 0

@Avgusta 0 / 0 / 0 Регистрация: 29.05.2010 Сообщений: 8
	30.05.2010, 20:28 [ТС]
	Vlanib, Спасибо большое! А можно сделать такое с произведением двух векторов? По аналогии два диапазона перемножаются как МУМНОЖ (умножение векторов). Как сделать, чтобы выводилось перемножение? Добавлено через 49 минут Поправочка: А_________F 0,12_____0,13 0,17_____0,34 0,45_____0,47 0,120,13 = Ячейка1 0,170,34 = Ячейка2 0,45*0,47 = Ячейка3 0

@Vlanib Частенько бываю 750 / 331 / 42 Регистрация: 20.06.2007 Сообщений: 854
	30.05.2010, 22:39
	Может я чего-то недопонял? Если вам надо перемножить эти значения попарно, то чем вам не подходит предыдущий код, с небольшими интуитивно понятными изменениями? 0

@Avgusta 0 / 0 / 0 Регистрация: 29.05.2010 Сообщений: 8
	30.05.2010, 22:43 [ТС]
	Мне непонятно как получить результат, чтобы он вставлялся в ячейки. Глупая я 0

@Avgusta 0 / 0 / 0 Регистрация: 29.05.2010 Сообщений: 8
	30.05.2010, 23:41 [ТС]
	А если как в первом случае - выделенные диапазоны? Так вообще можно сделать или нет? 0

@analyst 437 / 144 / 9 Регистрация: 12.01.2009 Сообщений: 678 Записей в блоге: 1
	01.06.2010, 16:52
	Использование табличных функций Наряду с функциями VBA в процедурах можно использовать встроенные функции рабочего листа (табличные функции). Названия функций VBA и функций рабочего листа часто совпадают, но параметры функций могут различаться. Часть встроенных табличных функций не имеет аналогов в VBA, например, функции Max или Min. При необходимости использования табличной функции нужно сделать уточнение при помощи ссылки на объект Application или объект WorksheetFunction ВНИМАНИЕ Независимо от русскоязычной или англоязычной версий MS Office названия функций VBА и функций рабочего листа в процедурах записываются на английском языке. Visual Basic располагает большим набором встроенных функций для обработки алфавитно-цифровых (символьных) данных. Многие из них совпадают с табличными. Но есть табличные строковые функции, отсутствующие в языке VBA, и наоборот. 0