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

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

24 Май 2019, 18:26 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: « 1 2 3 »   Вниз
  Печать  
Автор Тема: Суммирование чисел которые находятся в цветной ячейки  (Прочитано 4654 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Yarik
Участник
**
Offline Offline

Сообщений: 16


« Ответ #45078: 4 Февраль 2018, 19:51 »

Sub summcolor
Dim oSheet As Variant, i As Long
Dim oSelection As Variant, oActiveCell As Variant, oRow As Variant
oSelection = ThisComponent.getCurrentSelection()
oSpreadsheet = oSelection.getSpreadsheet()
sum_byr=0
sum_kr=0
 For j =7 To 68
    For i =4 To 16
      Select case oSpreadsheet.getCellByPosition(j, i).CellBackColor
      '3407769
      Case  3407769 ' если бирюзовый
         sum_byr = sum_byr + oSpreadsheet.getCellByPosition(j, i).getvalue
      '16724787
      Case 16724787 ' если красный
         sum_kr = sum_kr + oSpreadsheet.getCellByPosition(j, i).getvalue    
   End Select
   Next i
   If j Mod 2 =0 Then
      oSpreadsheet.getCellByPosition(j-1, 21).setvalue(sum_kr)
      oSpreadsheet.getCellByPosition(j-1, 27).setvalue(sum_byr)
      sum_byr=0
      sum_kr=0   
   End if   
Next j
End Sub


Вот теперь все круто))) Только нужно на три цвета)
Это уже в последний раз)
« Последнее редактирование: 4 Февраль 2018, 20:13 от Yarik » Записан
Страниц: « 1 2 3 »   Вверх
  Печать  
 
Перейти в:  

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