Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » hoho.hoho
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Как создать макрос для суммирования значения ячеек с условиями в других ячейках?
 
#
17.01.2017 18:35:09
Hugo, получилось!  8-0 Спасибо вам огромное!!!  
 
Перейти    
Как создать макрос для суммирования значения ячеек с условиями в других ячейках?
 
#
17.01.2017 18:03:45
Hugo, там в файле слишком много частной информации (не моей), поэтому просто скопировала нужные столбцы в отдельный файл на "лист 2". Результат нужно вывести на листе 1, в любой ячейке. Поэтому так  :sceptic:
Но нужно же в нескольких диапазонах одновременно ячейки рассматривать... То есть у нас диапазоны "F3:F19", "N3:N19" и "O3:O19", и мы должны рассматривать ячейки, например, F4, N4 и O4 сразу, как это реализовать? :(  Ничего лучше, чем через For, придумать не могу. Плюс проблема, опять же, в разных рабочих листах, поэтому как обойтись без активации?  
 
Перейти    
Как создать макрос для суммирования значения ячеек с условиями в других ячейках?
 
#
17.01.2017 17:36:40
oakrasikov, и в ячейке, где нужно написать итоговую сумму, выходит "#ЗНАЧ!"  :(
 
Перейти    
Как создать макрос для суммирования значения ячеек с условиями в других ячейках?
 
#
17.01.2017 17:33:25
oakrasikov, с синтаксисом в цикле, по идее, всё в порядке. Единственное - когда пишу For i As Integer 3 to 19 (то есть определяю переменную в условии, а не перед ним), то вижуал бейсик ругается (см. скрин).
Что насчёт работы программы, то вот, это лист "Сделки". Ячейка F7 без цвета, текст в O7 черный. Значение ячейки N7 (7000) нужно приплюсовать к общей сумме. Если ячейка F имеет цвет или текст ячейки О красного цвета, то складывать их не нужно.
 
Перейти    
Как создать макрос для суммирования значения ячеек с условиями в других ячейках?
 
#
17.01.2017 17:19:44
oakrasikov, скинуть пример результата работы программы?.. Или чего?  :oops:
 
Перейти    
Как создать макрос для суммирования значения ячеек с условиями в других ячейках?
 
#
17.01.2017 17:08:59
Задача такова: есть два листа, "Планирование" и "Сделки". В одну из ячеек первого листа нужно записать сумму ячеек столбца N из листа "Сделки" с такими условиями, что в соответствующей ячейке листа "Сделки" в столбце F фон должен быть без цвета, а в соответствующей ячейке O шрифт должен быть черного цвета. То есть, если данные ячейки столбцов F и O соответствуют требованиям, то ячейка той же строки столбца N засчитывается (точнее, значение в ней) к общей сумме.
Пишу такой код, но значение никакое не выходит. Что делать?  :(
Код
Public Function SumNal() As Integer
    Application.Volatile True
    Dim i As Integer
    Dim Sum As Integer
    Sum = 0
    Sheets("Сделки").Activate
    For i = 3 To 19
        If ActiveSheet.Cells(6, i).Interior.ColorIndex = xlNone And ActiveSheet.Cells(15, i).Font.ColorIndex = 1 Then
        Sum = Sum + ActiveSheet.Cells(14, i).Value
        End If
    Next
    SumNal = Sum
End Function
Честно, с VBA раньше работать не доводилось.  
Изменено: hoho.hoho - 17.01.2017 17:17:51
 
Перейти    
Страницы: 1
Наверх