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

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

16 Июнь 2019, 15:56 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

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

Пол: Мужской
Сообщений: 610


« Ответ #44871: 29 Январь 2018, 16:08 »

Вот симбиоз макроса economist и JohnSUN Улыбка
Код:
Sub test_filtr
oSheet = ThisComponent.sheets(0)
oSheet.getRows().IsVisible = True
For i = 4 To  2500 'строки как в твоем примере
If oSheet.getCellByPosition(10,i).value< 1 Then
oSheet.getCellByPosition(10,i).getRows().IsVisible = False
EndIf
Next
msgbox "Завершено"
End Sub

работает медленнее первого, как понимаю за счет того что я не знаю как в starbasic запретить перерисовку

p.s. Блокировка перерисовки на скорость практически не повлияла
« Последнее редактирование: 29 Январь 2018, 16:40 от Bigor » Записан
Страниц: « 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!