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

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

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

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

Сообщений: 9


« Стартовое сообщение: 28 Январь 2013, 20:18 »

Парни подскажите как посчитать сумму клеток зелёного цвета и сумму клеток красного цвета?

То есть в итоге должно посчитать сумму чисел клеток с красным цветом и сумму чисел клеток с зелёным цветом.
« Последнее редактирование: 28 Январь 2013, 20:22 от vipmax77 » Записан
Smaigas
Форумчанин
***
Offline Offline

Пол: Мужской
Расположение: Vilnius (Вильнюс) Lietuva (Литва)
Сообщений: 81

Дураков не сеют и не сажают, дураки сами вырастут


« Ответ #1: 28 Январь 2013, 21:13 »

Это не то?
Записан
vipmax77
Участник
**
Offline Offline

Сообщений: 9


« Ответ #2: 28 Январь 2013, 21:45 »

что то не сохраняется
Почему то этот макрос выдаёт ошибку...(
Записан
Hasim
Форумчанин
***
Offline Offline

Сообщений: 754


Woe from wit


« Ответ #3: 28 Январь 2013, 22:34 »

Вы бы свой файл с примером приложили.

И, вообще, я бы советовал всем прикладывать файлы с примерами - это очень упрощает работу тех, кто захочет ответить.
Записан
vipmax77
Участник
**
Offline Offline

Сообщений: 9


« Ответ #4: 28 Январь 2013, 22:41 »

Буду очень признателен если помножите посчитать общее кол-во  "Купли" и "Продажи"

P.S. ну и конечно объясните как, заранее благодарен.

[вложение удалено Администратором]
Записан
Hasim
Форумчанин
***
Offline Offline

Сообщений: 754


Woe from wit


« Ответ #5: 28 Январь 2013, 23:01 »

Ну вот, вопрошающим опять, наверное, изначально задан не тот вопрос.
И где там клетки зеленого и красного цвета?

Видимо, нужно суммы посчитать отдельно по словам "Купля" и "Продажа".

А для этого нужно воспользоваться функциями VLOOKUP (для Calc) или ВПР (для Excel).
Или похожими на них (типа SUMPRODUCT), нужно посмотреть.

Если знаете Calc, то можно сделать в нем и сохранить как XLS.
Тогда, если открыть потом в Excel, то функции преобразуются сами.


[вложение удалено Администратором]
« Последнее редактирование: 28 Январь 2013, 23:05 от Hasim » Записан
vipmax77
Участник
**
Offline Offline

Сообщений: 9


« Ответ #6: 28 Январь 2013, 23:05 »

VLOOKUP

Нет, они по цветам разбиты, видимо в MS это не отображается. Но в целом правильно поняли. Сейчас попробую функцию VLOOKUP
Записан
Hasim
Форумчанин
***
Offline Offline

Сообщений: 754


Woe from wit


« Ответ #7: 28 Январь 2013, 23:09 »

Да, точно, в Calc цвета есть.
Можно бы использовать макрос, как в ссылке от Smaigas, но макрос из Calc не будет работать в Excel.
Хотя, возможно, если его переписать на VBA, то, возможно, он и в Calc будет работать.
« Последнее редактирование: 28 Январь 2013, 23:12 от Hasim » Записан
vipmax77
Участник
**
Offline Offline

Сообщений: 9


« Ответ #8: 28 Январь 2013, 23:10 »

Помогите, сделать это в опене а то я не соображу...

[вложение удалено Администратором]
Записан
Hasim
Форумчанин
***
Offline Offline

Сообщений: 754


Woe from wit


« Ответ #9: 29 Январь 2013, 00:31 »

Функцией из макроса в Calc легко, правда очень медленно работает.
Код:
Function LCK(s,r1,r2)
Dim numcol As Double
oSheet=ThisComponent.CurrentController.getActiveSheet()
numcol=0
For n=r1-1 To r2-1
  If Trim(oSheet.getCellByPosition(2, n).getString())=Trim(s) Then
vv=oSheet.getCellByPosition(0, n).getValue()*oSheet.getCellByPosition(1, n).getValue()
numcol=numcol+vv
  End If
Next n
LCK = numcol
End Function

Ну, а функциями самого Calc это нужно поковыряться.

[вложение удалено Администратором]
Записан
Hasim
Форумчанин
***
Offline Offline

Сообщений: 754


Woe from wit


« Ответ #10: 29 Январь 2013, 01:00 »

Если сделать файл Excel ("сделки.xls") с функцией макроса
Код:
Function LCK(s, r1, r2)
Dim numcol As Double
numcol = 0
For n = r1 - 1 To r2 - 1
  If Trim(Range("A1").Offset(n, 2).Value) = Trim(s) Then
    vv = Range("A1").Offset(n, 0).Value * Range("A1").Offset(n, 1).Value
    numcol = numcol + vv
  End If
Next n
LCK = numcol
End Function
то он работает и в Excel и в Calc.

В Excel функция работает очень быстро,
а в Calc очень-очень медленно.

Записан
vipmax77
Участник
**
Offline Offline

Сообщений: 9


« Ответ #11: 29 Январь 2013, 06:49 »

Функцией из макроса в Calc легко, правда очень медленно работает.

Попробовал добавить функцию,  и потом проверить, она выдаёт ошибку....

[вложение удалено Администратором]
Записан
vipmax77
Участник
**
Offline Offline

Сообщений: 9


« Ответ #12: 29 Январь 2013, 07:19 »

Парни сбросте мой файл уже с макросом в Microsoft Excel или Open Office, пожалуйста.
Записан
Smaigas
Форумчанин
***
Offline Offline

Пол: Мужской
Расположение: Vilnius (Вильнюс) Lietuva (Литва)
Сообщений: 81

Дураков не сеют и не сажают, дураки сами вырастут


« Ответ #13: 29 Январь 2013, 09:55 »

Лови, только я не считал крашенные ячейки, а поступил проще. Так как покраска ячеек сделана только для наглядности, а в этой же ячейке присутствуют слова(числа, знаки - не важно) то я считал их в вспомогательных столбцах, короче смотри разбирайся, а то мне томно кирриллицей набивать.
ЗЫ. Макросов нету.

[вложение удалено Администратором]
Записан
vipmax77
Участник
**
Offline Offline

Сообщений: 9


« Ответ #14: 29 Январь 2013, 10:01 »

Лови, только я не считал крашенные ячейки, а поступил проще. Так как покраска ячеек сделана только для наглядности, а в этой же ячейке присутствуют слова(числа, знаки - не важно) то я считал их в вспомогательных столбцах, короче смотри разбирайся, а то мне томно кирриллицей набивать.
ЗЫ. Макросов нету.

Спасибо! Но у меня всё равно не пашет((((((( в чём дело?((((

[вложение удалено Администратором]
Записан
Страниц: 1 2 »   Вверх
  Печать  
 
Перейти в:  

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