Есть код VBA для скрытия строк при пустых ячейках. Для Exce...

[ForumOOo (бот)]

Компонент: Calc
Версия продукта: 6.x
Сборка: LibreOffice
ОС: Windows 10

Есть код VBA для скрытия строк при пустых ячейках. Для Excel он подходит. Как его преобразовать под LibreOffice Calc, чтоб макрос выполнялся. Макрос прилагается.

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

Sub Макрос1()

   Dim i As Long
   
   '1. Идём по строкам с 3 по 89.
   For i = 3 To 89
 
       ' Если в ячейке пусто или ноль.
       If (Cells(i, "H").Value = "") Or (Cells(i, "H").Value = 0) Then
           ' Скрытие строки.
           Rows(i).Hidden = True
       ' Если в ячейке не пусто и не ноль.
       Else
           ' Отображение строки.
           Rows(i).Hidden = False
       End If
   Next i

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

--
Подпись: Геннадий
Эл. почта: saruev64@mail.ru

[bigor]

Добрый день.
Он и так с Option VBASupport 1 будет работать, только end  sub потерялся
В приложенном файле Ваш подправленный макрос и код на родном LOO бейсике
ps Отредактируйте пост, заключив код макроса в теги