Здравствуйте, на работе пользовались макросом в Excel, се...

[ForumOOo (бот)]

Компонент: Basic
Версия продукта: 3.x
Сборка:
ОС: виндовс 7

Здравствуйте, на работе пользовались макросом в Excel, сейчас руководство всех переводит на OpenOffice и LibreOffice, а макрос из Excel в них не работает, помогите пожалуйста довести до ума вложенный файл,
что бы в OpenOffice работал.

Тестовый файл: http://forumooo.ru/attachments/upload/uchet_temperaturi13.ods (19.31 КБ)

--
Подпись: Иван
Эл. почта: fedorov.wan@yandex.ru

[kompilainenn]

сейчас руководство всех переводит на OpenOffice и LibreOffice

Передайте руководству, чтобы выбрало что-то одно

[Иван2020]

Организация большая, отдел программистов раньше вместе с майкрософтом ставил OpenOffice а сейчас на новых компах ставят LibreOffice. Главное чтоб макрос на LibreOffice работал.

[eeigor]

Файл не содержит макросов

[Иван2020]

там такой написан
Private Sub print_temperatura()
    Dim cell As Range
    Application.ScreenUpdating = False
    Sheets("Температура").Select
    For Each cell In ActiveSheet.Range("A4:A22")
        If cell.Value = False Then cell.EntireRow.Hidden = True
    Next

    Sheets("Температура").Select
    Application.Dialogs(xlDialogPrint).show

    Rows.Hidden = False
   
    Sheets("Список КБПК-1").Select
   
    Application.ScreenUpdating = True
End Sub

[economist]

Такие простые макросы могут заработать в OpenOffice|LibreOffice, если поставить первой строкой Модуля (Alt+F11) вот такие строки:

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


Option VBASupport 1
Option Compatible

' тут ниже идут ваши макросы


Конкретно этот макрос вызывает окно диалога печати, оно скорее всего не сработает, но можно записать макрорекордером его вызов по нажатию Ctrl+P. Чтобы стала доступна запись макросов - включите Alt+F12 - Расширенные - Включить Эксп. возможности. И добавить его вместо строки Application.Dialogs(xlDialogPrint).show

Макросы в OpenOffice|LibreOffice - это новый уровень развития специалиста, прекрасная гимнастика для ума, и она стоит каждой потраченной минуты и недели на их изучение.  

[Sirius34]

Если не изменяет память, то Application.ScreenUpdating в LO не работает.
Ошибки не будет, но и эффекта тоже.

[mikekaganski]

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


Option VBASupport 1
Option Compatible


Option VBASupport 1 уже включает в себя Option Compatible, поэтому применение обеих не требуется, и нужно что-то одно (в зависимости от задачи). Применение обеих - признак непонимания работы этих параметров.

[Иван2020]

Спасибо за помощь, возьмусь за изучение написания макросов.
Обложился учебниками, ушел в запой.