Помогите с макросом для Excel

@Pasha_K · Регистрация: 05.09.2007

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

Извините, если вопрос тупой, но очень надо!

В общем так:
На одном листе есть форма 'Форма', а данные для нее на другом листе 'Данные'. Нужно с листа 'Данные' по ДВУМ критериям из первой 'А' и второй 'В' колонки взять числа из третьей 'С', их просуммировать и записать в ячейку на листе 'Форма'.

Принципиально сделать это в макросе, а не функцией, но как это сделать не знаю!
Пожалуйста, помогите советом или ссылкой!

@IgorTr · 09.12.2008, 10:54

Однако такие мульки лучше делать формулами. ИМХО

@Pasha_K · 09.12.2008, 10:57 **[ТС]**

Да я бы с удовольствием и формулой, но 'СУММЕСЛИ' только один параметр позволяет ставить. А еще-то как?

@IgorTr · 09.12.2008, 11:22

можно макрос типа:

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
Sub Суммируем_как_хочется()
Dim TAR As Object, SOU As Object
Dim CN1 As Variant, CN2 As Variant, CN3 As Variant
Dim Summa As Double
 
CN1 = 'A'
CN2 = 'B'
CN3 = 'C'
 
kr1 = '***'
kr2 = 12.789
 
Set TAR = Worksheets('Форма')
Set SOU = Worksheets('Данные')
 
ri = 1
Summa = 0
While SOU.Cells(ri, CN3) <> Empty
    If SOU.Cells(ri, CN1) = kr1 And _
       SOU.Cells(ri, CN2) = kr2 Then Summa = Summa + SOU.Cells(ri, CN3)
    ri = ri + 1
Wend
TAR.Range('a1') = Summa
End Sub

но лучше будет, если Вы почитаете хелп про формулы массивов. Очень полезная вещь!

@Korolana · 09.12.2008, 20:10

Suppose, you have A1:A6 with some data, that you want use as condition and in B1:B6 you have some data that you want use as condition, and in C1:C6 you have data that you want summarize according the data in A & B columns. Put in cells of column C formulas like this '=IF(A1>0,C1,0)' (in this case I took condition A>0, and in Column D you will have only data that match you first condition, or 0)
In the last cell of Column D put formula like this
'=SUMIF(B1:B6,'>0',D1

6)' where B1:B6 your range of column with condition, '>0' - condition for B and D1

6 - data for summarizing

@IgorTr · 10.12.2008, 08:23

Но всетаки лучше применять
{=СУММ(ЕСЛИ(C1:C9<=C14;ЕСЛИ(C1:C9>=C13

1

9)))}
и так далее

@IgorTr · 10.12.2008, 09:56

простите, был не прав
надо
{=СУММ(ЕСЛИ(C1:C9='условие1';ЕСЛИ(b1:b9= 'условие2'

1

9)))}

@Pasha_K · 10.12.2008, 11:20 **[ТС]**

Большое всем спасибо за помощь!
Проблема решена, вопрос снят!
Спасибо!

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@Pasha_K 0 / 0 / 0 Регистрация: 05.09.2007 Сообщений: 31

	Помогите с макросом для Excel 09.12.2008, 10:03. Показов 978. Ответов 7 Метки нет (Все метки) Извините, если вопрос тупой, но очень надо! В общем так: На одном листе есть форма 'Форма', а данные для нее на другом листе 'Данные'. Нужно с листа 'Данные' по ДВУМ критериям из первой 'А' и второй 'В' колонки взять числа из третьей 'С', их просуммировать и записать в ячейку на листе 'Форма'. Принципиально сделать это в макросе, а не функцией, но как это сделать не знаю! Пожалуйста, помогите советом или ссылкой! 0

@IgorTr 2 / 2 / 1 Регистрация: 01.01.2008 Сообщений: 410
	09.12.2008, 10:54
	Однако такие мульки лучше делать формулами. ИМХО 0

@Pasha_K 0 / 0 / 0 Регистрация: 05.09.2007 Сообщений: 31
	09.12.2008, 10:57 [ТС]
	Да я бы с удовольствием и формулой, но 'СУММЕСЛИ' только один параметр позволяет ставить. А еще-то как? 0

@Korolana 1 / 1 / 0 Регистрация: 27.08.2008 Сообщений: 154
	09.12.2008, 20:10
	Suppose, you have A1:A6 with some data, that you want use as condition and in B1:B6 you have some data that you want use as condition, and in C1:C6 you have data that you want summarize according the data in A & B columns. Put in cells of column C formulas like this '=IF(A1>0,C1,0)' (in this case I took condition A>0, and in Column D you will have only data that match you first condition, or 0) In the last cell of Column D put formula like this '=SUMIF(B1:B6,'>0',D16)' where B1:B6 your range of column with condition, '>0' - condition for B and D16 - data for summarizing 0

@IgorTr 2 / 2 / 1 Регистрация: 01.01.2008 Сообщений: 410
	10.12.2008, 08:23
	Но всетаки лучше применять {=СУММ(ЕСЛИ(C1:C9<=C14;ЕСЛИ(C1:C9>=C13 19)))} и так далее 0

@IgorTr 2 / 2 / 1 Регистрация: 01.01.2008 Сообщений: 410
	10.12.2008, 09:56
	простите, был не прав надо {=СУММ(ЕСЛИ(C1:C9='условие1';ЕСЛИ(b1:b9= 'условие2'19)))} 0

@Pasha_K 0 / 0 / 0 Регистрация: 05.09.2007 Сообщений: 31
	10.12.2008, 11:20 [ТС]
	Большое всем спасибо за помощь! Проблема решена, вопрос снят! Спасибо! 0