Создайте макрос, который поместит из таблицы 1 общую стоимость по позициям по которым количество больше 50 - VBA

Узнай цену своей работы

Формулировка задачи:

Добрый день! Прошу помощи, всю работу сделала за 3 часа, но вот с макросом заморочка. Прикладываю работу, на первом листе задание, на втором выполненная работа. Пожалуйста помогите.

Решение задачи: «Создайте макрос, который поместит из таблицы 1 общую стоимость по позициям по которым количество больше 50»

textual
Листинг программы
    Dim c As Range, sum As Double
    For Each c In Range("d16:d35")
        If c > 50 Then sum = sum + c.Offset(, 2)
    Next
    Range("D10") = sum

ИИ для рефератов и докладов


  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

Оцени полезность:

15   голосов , оценка 4.067 из 5
Похожие ответы