Задача такова: есть два листа, "Планирование" и "Сделки". В одну из ячеек первого листа нужно записать сумму ячеек столбца N из листа "Сделки" с такими условиями, что в соответствующей ячейке листа "Сделки" в столбце F фон должен быть без цвета, а в соответствующей ячейке O шрифт должен быть черного цвета. То есть, если данные ячейки столбцов F и O соответствуют требованиям, то ячейка той же строки столбца N засчитывается (точнее, значение в ней) к общей сумме.
Пишу такой код, но значение никакое не выходит. Что делать?
Честно, с VBA раньше работать не доводилось.
Пишу такой код, но значение никакое не выходит. Что делать?
| Код |
|---|
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
|
Изменено: - 17.01.2017 17:17:51
