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

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

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

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

Сообщений: 39


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

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

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

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


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


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

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

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

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

Сообщений: 39


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

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


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

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


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


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

Сообщений: 92


« Ответ #5: 12 Декабрь 2018, 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!