Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

17 Ноябрь 2019, 01:27 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Здесь можно поблагодарить участников форума Улыбка
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Сумма ячеек по цвету.  (Прочитано 341 раз)
0 Пользователей и 1 Гость смотрят эту тему.
foxyra
Участник
**
Offline Offline

Сообщений: 19


« Стартовое сообщение: 14 Июнь 2019, 16:15 »

Доброго времени суток , есть столбик с 2умя цветами , задача . суммировать те ячейки которые буду совпадать по цвету.
я так понимаю есть образец цвета ,и он будет сравнивать его по цвету .
есть макрос функции ,но он для exel ,помогите пожалуйста переписать его для openoffic/

Public Function SumByColor(DataRange As Range, ColorSample As Range) As Double
     Dim Sum As Double
     Application.Volatile True
 
     For Each cell In DataRange
         If cell.Interior.Color = ColorSample.Interior.Color Then
             Sum = Sum + cell.Value
         End If
     Next cell
     SumByColor = Sum
 End Function

за ранее спасибо
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!