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

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

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

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

Сообщений: 35


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

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

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

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


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


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

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

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

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

Сообщений: 35


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

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


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

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


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


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

Сообщений: 35


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

JohnSUN Спасибо Улыбка
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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