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

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

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

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: [решено]Заполнить диапазон ячеек одинаковыми символами  (Прочитано 5038 раз)
0 Пользователей и 1 Гость смотрят эту тему.
JohnSUN
Капитана в тот день называли на "ты"
Гуру
*******
Offline Offline

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


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


WWW
« Ответ #30815: 5 Май 2015, 21:24 »

Ха! Таки-да, не работает... (Склероз, что ли?) Ну, тогда через автофильтр или стандартный фильтр

PS. На худой конец и такое сойдёт:
Код:
Sub selectEmptyCells
Dim oCurrentSelection As Variant
Dim oSDescr As Variant
Dim oFound As Variant
oCurrentSelection = ThisComponent.getCurrentSelection()
oSDescr = oCurrentSelection.createSearchDescriptor()
oFound = oCurrentSelection.findAll(oSDescr)
ThisComponent.getCurrentController().select(oFound)
End Sub
Выделяем диапазон, запускаем макрос, из первоначального выделения остаются выделенными только пустые ячейки. Если пустых клеток не найдено - выделение останется прежним


* Пустые.png (20.81 Кб, 481x292 - просмотрено 33 раз.)
« Последнее редактирование: 5 Май 2015, 21:39 от JohnSUN » Записан

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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