Макрос показать/скрыть столбец/строку

Автор Aspid, 25 февраля 2018, 02:10

0 Пользователи и 1 гость просматривают эту тему.

Aspid

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

JohnSUN

Так что ли? А то выпадающего списка на листе не нашел  :(
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

Aspid

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

JohnSUN

А! Для совсем альтернативно одаренных лист делаешь? Тогда так:
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


alpold

Цитата: JohnSUN от 25 февраля 2018, 08:56
Так что ли? А то выпадающего списка на листе не нашел  :(
По какому принципу здесь сделаны эти плюсы ??? при нажатии на которые раскрываются скрытые ячейки?