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

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

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

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

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


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


WWW
« Ответ #44883: 29 Январь 2018, 19:13 »

Да, кстати! А почему при написании макроса про автоматическую фильтрацию в предыдущей теме этого не сказал? Мы бы сделали макрос не по конкретному столбцу  Смеющийся  Смеющийся  Смеющийся

А может не будем их чистить? Просто спрячем да и дело с концом?
Код:
Sub qickFltrWithZero
Dim oSheet As Variant, i As Long
Dim oSelection As Variant, oActiveCell As Variant, oColumn As Variant
Dim oSearchDescr As Variant, oFound As Variant
oSelection = ThisComponent.getCurrentSelection()
oSpreadsheet = oSelection.getSpreadsheet()
oActiveCell = oSelection.getCellByPosition(0, 0)
oColumn = oSpreadsheet.getColumns().getByIndex(oActiveCell.getCellAddress().Column)
oSearchDescr = oColumn.createSearchDescriptor()
oSearchDescr.setSearchString("^0$")
oSearchDescr.SearchRegularExpression = True
oFound = oColumn.findAll(oSearchDescr)
For i = oFound.getCount()-1 To 0 Step -1
oFound.getByIndex(i).getRows().IsVisible = False
Next i
oFound = oColumn.queryEmptyCells()
For i = oFound.getCount()-1 To 0 Step -1
oFound.getByIndex(i).getRows().IsVisible = False
Next i
End Sub

Впрочем, если хочешь действительно очистить нули, то это не сложно - просто первый из циклов будет таким:
Код:
For i = oFound.getCount()-1 To 0 Step -1
oFound.getByIndex(i).clearContents(23)
Next i
« Последнее редактирование: 29 Январь 2018, 19:17 от 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!