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

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

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

Войти
Новости: Вы можете задать вопрос по LibreOffice или Apache OpenOffice  без регистрации, используя форму
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: « 1 2   Вниз
  Печать  
Автор Тема: Автоматическая фильтрация в документе.  (Прочитано 3182 раз)
0 Пользователей и 1 Гость смотрят эту тему.
JohnSUN
Капитана в тот день называли на "ты"
Гуру
*******
Offline Offline

Пол: Мужской
Расположение: Киев
Сообщений: 2 764


Помогаю людям и компьютерам понимать друг друга


WWW
« Ответ #44873: 29 Январь 2018, 16:24 »

1) скрывается строка итога. Всё же хотелось бы её видеть (но если сложно реализовать - то не суть)ж
2) а ускорить код как-то можно?
2. Можно. Например, так:
Код:
Sub qickFltr
Dim oSheet As Variant, oEmpty As Variant, oRows As Variant, i As Long
oSheet = ThisComponent.getCurrentSelection().getSpreadsheet()
oSheet.getRows().IsVisible = True
oEmpty = oSheet.getColumns.getByIndex(9).queryEmptyCells()
For i = oEmpty.getCount()-1 To 0 Step -1
oEmpty.getByIndex(i).getRows().IsVisible = False
Next i
End Sub

1. Просто заранее в строке итогов (и в других, которые не нужно скрывать) в колонке J поставь что-нибудь, хотя бы пробел

Upd. Переписал чуть лаконичнее
« Последнее редактирование: 29 Январь 2018, 16:38 от JohnSUN » Записан

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне
Страниц: « 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!