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

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

1 Июль 2022, 10:05 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Здесь можно поблагодарить участников форума Улыбка
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Есть код VBA для скрытия строк при пустых ячейках. Для Exce...  (Прочитано 671 раз)
0 Пользователей и 1 Гость смотрят эту тему.
ForumOOo (бот)

Offline Offline

Сообщений: 815


« Стартовое сообщение: 23 Декабрь 2021, 14:54 »

Компонент: 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
« Последнее редактирование: 23 Декабрь 2021, 17:31 от Helen » Записан
Bigor
Мастер
*****
Offline Offline

Пол: Мужской
Сообщений: 1 249


« Ответ #1: 23 Декабрь 2021, 16:23 »

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

* fayl1_1.ods (166.58 Кб - загружено 4 раз.)
« Последнее редактирование: 23 Декабрь 2021, 16:38 от Bigor » Записан

Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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