Помогите с макросом для Excel - VB
Формулировка задачи:
Извините, если вопрос тупой, но очень надо!
В общем так:
На одном листе есть форма 'Форма', а данные для нее на другом листе 'Данные'. Нужно с листа 'Данные' по ДВУМ критериям из первой 'А' и второй 'В' колонки взять числа из третьей 'С', их просуммировать и записать в ячейку на листе 'Форма'.
Принципиально сделать это в макросе, а не функцией, но как это сделать не знаю!
Пожалуйста, помогите советом или ссылкой!
Решение задачи: «Помогите с макросом для Excel»
textual
Листинг программы
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д