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

[Aspid]

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

[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

[Aspid]

JohnSUN Спасибо

[alpold]

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

По какому принципу здесь сделаны эти плюсы при нажатии на которые раскрываются скрытые ячейки?