LibreOffice Basic

[Ludmila87]

Добрый день, коллеги! Стоит задача скрывать строки с ошибками в формулах по макросу.
Активно пользуясь гуглом собрала вот такой макрос.

Код Выделить Развернуть

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.
Объектная переменная не установлена.

.
Стоит что-то изменить в макросе и сохранить его как сразу он вновь работает... опять же до момента закрытия документа и открытия его вновь!
Буду очень признательна в квалифицированной помощи!

[mikekaganski]

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

[Ludmila87]

Спасибо большое! Заработало как надо! 

[economist]

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

Код Выделить Развернуть


Option VBASupport 1
Option Compatible
'-----------------------------------------------

SUB hide()
ThisComponent.BasicLibraries.VBACompatibilityMode=true 

...

End Sub