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

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

13 Декабрь 2018, 16:36 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

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

Сообщений: 39


« Стартовое сообщение: 25 Февраль 2018, 02:10 »

Графа "Шкалы" - необходимо чтобы столбцы показывались/скрывались и графа "Пояснения" - необходимо, чтобы строки показывались/скрывались, исходя из выбора в выпадающем списке.
Подскажите пожалуйста.

* Пример.ods (30.27 Кб - загружено 6 раз.)
Записан
JohnSUN
Капитана в тот день называли на "ты"
Гуру
*******
Online Online

Пол: Мужской
Расположение: Киев
Сообщений: 2 635


Помогаю людям и компьютерам понимать друг друга


WWW
« Ответ #1: 25 Февраль 2018, 08:56 »

Так что ли? А то выпадающего списка на листе не нашел  Грустный

* СкрытьПоказатьСтрокиСтолбцы.ods (114.57 Кб - загружено 13 раз.)
Записан

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне
Aspid
Участник
**
Offline Offline

Сообщений: 39


« Ответ #2: 25 Февраль 2018, 14:14 »

Так что ли? Не так.
А то выпадающего списка на листе не нашел
Вот же он


* Screenshot_1.png (3.84 Кб, 225x255 - просмотрено 12 раз.)
Записан
JohnSUN
Капитана в тот день называли на "ты"
Гуру
*******
Online Online

Пол: Мужской
Расположение: Киев
Сообщений: 2 635


Помогаю людям и компьютерам понимать друг друга


WWW
« Ответ #3: 25 Февраль 2018, 14:45 »

А! Для совсем альтернативно одаренных лист делаешь? Тогда так:
Код:
Sub OnChangeCell(oEvent As Variant)
Select Case oEvent.AbsoluteName
Case "$Мотивация.$P$18" ' Шкалы
oEvent.getSpreadsheet().getCellRangeByName("R1:AR24").getColumns().IsVisible = (oEvent.getString()="Показать")
Case "$Мотивация.$P$19" ' Пояснения
oEvent.getSpreadsheet().getCellRangeByName("D20:P41").getRows().IsVisible = (oEvent.getString()="Показать")
Case Else
End Select
End Sub
Записан

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне
Aspid
Участник
**
Offline Offline

Сообщений: 39


« Ответ #4: 26 Февраль 2018, 13:06 »

JohnSUN Спасибо Улыбка
Записан
alpold
Участник
**
Offline Offline

Сообщений: 23


« Ответ #5: Вчера в 16:17 »

Так что ли? А то выпадающего списка на листе не нашел  Грустный
По какому принципу здесь сделаны эти плюсы Непонимающий при нажатии на которые раскрываются скрытые ячейки?
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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