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

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

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

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

Сообщений: 2


« Стартовое сообщение: 26 Декабрь 2016, 11:32 »

Добрый день, коллеги! Стоит задача скрывать строки с ошибками в формулах по макросу.
Активно пользуясь гуглом собрала вот такой макрос.
Код:
SUB hide()
[AJ:AJ].SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Hidden = True
END SUB
Sub show()
[AJ:AJ].SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Hidden = False
End Sub
Макросы работают, если их вставить в новый модуль и сохранить. Но стоит только закрыть либру и открыть документ вновь, как сразу ошибка при выполнении макроса следующего содержания.
Цитата:
Ошибка времени выполнения BASIC.
Объектная переменная не установлена.
.
Стоит что-то изменить в макросе и сохранить его как сразу он вновь работает... опять же до момента закрытия документа и открытия его вновь!
Буду очень признательна в квалифицированной помощи!


* Безымянный.png (50.21 Кб, 1280x984 - просмотрено 10 раз.)
Записан
mikekaganski
Ветеран
*****
Offline Offline

Пол: Мужской
Расположение: Хабаровск -> Москва
Сообщений: 687


« Ответ #1: 26 Декабрь 2016, 11:36 »

Вы пользуетесь макросами VBA. При этом нужно в начало определить Option VBASupport 1
Записан

С уважением,
Михаил Каганский
Ludmila87
Новичок
*
Offline Offline

Сообщений: 2


« Ответ #2: 26 Декабрь 2016, 11:51 »

Спасибо большое! Заработало как надо!  Веселый
Записан
economist
Ветеран
*****
Offline Offline

Сообщений: 746


« Ответ #3: 26 Декабрь 2016, 13:01 »

А еще лучше включить все опции совместимости:

Код:
Option VBASupport 1
Option Compatible
'-----------------------------------------------

SUB hide()
ThisComponent.BasicLibraries.VBACompatibilityMode=true 

...

End Sub
Записан

Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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