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

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

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

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

Сообщений: 1 515


« Ответ #58432: 11 Май 2021, 12:20 »

Вот специально сел и засек сколько МИНУТ мне понадобится на написание макроса фильтра по цвету, в том виде, в каком он используется у Excel-пользователей в 80% случаев (там не сортировка, а отбор - но все его упорно называют сортировкой).

Ушло 4 минуты, никуда не заглядывал. Код незамысловат, работает в LO 5-6-7, а потыкать кнопкой можете в файле-вложении.

Код:
Option VBASupport 1
' (c) economist - делайте что хотите, мне на.......

Sub FilterByColor
For Each cl in [C3:C500]
clcol = cl.CellRange.CellBackColor ' =  RGB (255, 255, 0)
If clcol <> 16776960 then  ' желтый
cl.Entirerow.hidden = Not cl.Entirerow.hidden
End if
Next
End Sub
 

У меня нет вопросов к разрабам почему этого функционала нет в LO (в Excel он тоже появился только в 2007-м). Спасибо им за то, что в OpenOffice|LibreOffice есть возможность написания макросов на 4-х языках. С их помощью штатные айтишники, да и сами пользователи могут "добывать" отсутствующий функционал. Как видно из примера выше - это не так сложно и часто решается в несколько строк.

UPD: если что-то в Calc - АвтофильтрПоЦвету(пример).ods не работает, то:  
- у кого файл открылся только для чтения - нажмите справа вверху на голубой полоске кнопку Редактировать
- у кого кнопка нажимается, но ничего не меняет - навсегда разрешите макросы: Alt+F12 - Безоп... - Безоп... - Низкий - Ок
- у кого кнопка не нажимается, а обрастает 8-ю маркерами:  Вид - Панели... - Элементы... - Отжать 2-ю по счету кнопку

* Calc - АвтофильтрПоЦвету(пример).ods (13.34 Кб - загружено 34 раз.)

* АФ по цвету.jpg (61.9 Кб, 703x572 - просмотрено 57 раз.)
« Последнее редактирование: 11 Май 2021, 19:20 от economist » Записан

Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...
Страниц: 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!