Скрыть/показать столбцы/строки по кнопке

Старая форма входа

Страница 1 из 2 1 2 »
Модератор форума: китин, _Boroda_

карандаш

Дата: Пятница, 08.02.2013, 15:01 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 329

Репутация: 8 ±

Замечаний: 0% ±

2010

Добрый день, эксельчане (или экселевцы?)))

подобная тема уже была (http://www.excelworld.ru/forum/2-968-1), но тут немного другой ракурс

есть книга с листками. Нужно скрыть/показать некоторые столбцы.
для этого можно завести две кнопки "показать подробнее" и "скрыть подробности" (удобство в наглядности, неудобство в необходимости плодить пару кнопок на каждом листе)
можно назначить этим макросам горячие клавиши (удобство/неудобство противоположные предыдущему варианту)
(был бы рад, если возможно реализовать оба варианта, чтобы попробовать на практике что лучше)

т.к. хотелось бы решить задачу в общем виде, то примера не привожу, а вместо этого ввожу доп.условие
отводим первую строку (потом еë скрываем, чтобы не мешалась) в качестве носителя аргументов для макроса (или подпрограммы)
в этой строке ячейки могут быть пустыми или непустыми
если ячейка непуста, тостолбец, в котором она находится попадает под действие макроса

таким образом, пометив некоторые столбцы мы можем их скрывать или показывать (по нажатию на одну из волшебных кнопок или функциональных клавиш)

это код из упомянутой похожей темы. Но у меня не получилось его модифицировать под описанные условия.

[vba]

Код

Option Explicit
Sub скрыть_столбцы()
Dim ch, i, k, sh As Variant
For Each sh In ThisWorkbook.Worksheets
        For i = 5 To 16
            ch = 5: k = 5
            Do While sh.Cells(ch, i) <> ""
                If sh.Cells(ch, i) = 0 Then
                    k = k + 1
                End If
                ch = ch + 1
            Loop
            If k = ch Then sh.Cells(1, i).EntireColumn.Hidden = True
        Next i
Next
End Sub

[/vba]

Код

[/vba]карандаш

Сообщение отредактировал карандаш - Пятница, 08.02.2013, 15:05