Макрос на скрытие/отображение строк "по очереди".

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

Макрос на скрытие/отображение строк "по очереди". (Макросы/Sub)

Vladislawww

Дата: Вторник, 06.10.2015, 07:52 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2007

Добрый день! Ребята помогите пожалуйста с написанием макроса:
В файле "Primer" есть ячейка, под ней скрыто 10 строк, справа от ячейки 2 кнопки, после нажатия кнопки "+" раскрывалась каждый раз следующая строка под ячейкой, после нажатия кнопки "-" скрывалась строка последняя раскрытая.

Помогите пожалуйста написать такой макрос, лазил по темам, под насобирал маленько и слепил свой макрос, но максим что у меня получилось это - после нажатия на кнопку "+" строки раскрывались, но что бы заработала кнопка "-" нужно было раскрыть все ячейки кнопкой "+". А хотелось бы что бы при нажатии "-" скрывалась строка именно последняя раскрытая. К сожалению макрос свой из "тяп ляп" я не сохранил! =(
Прошу Вас помогите написать подобный макрос.

К сообщению приложен файл: Primer.xlsx (13.0 Kb)

Ответить

nilem

Дата: Вторник, 06.10.2015, 08:16 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

Vladislawww, привет
не очень понятно как-то, но вот попробуйте:
[vba]

Код

Sub HidRows()    '"+"
With Range("C3:C12")
     .EntireRow.Hidden = True
     .SpecialCells(4).Cells(1).EntireRow.Hidden = False
End With
End Sub

[/vba]
будет раскрывать только одну первую пустую строку в С3:С12

Яндекс.Деньги 4100159601573

Ответить

Vladislawww

Дата: Вторник, 06.10.2015, 10:25 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2007

nilem, Спасибо что обратили внимание на моё сообщение! Но слегка не то)
Да вот основная проблема в том что не могу правильно объяснить что я хочу видеть!))
Объясню двумя способами:

Способ 1:
Попробую описать что хочу видеть по другому=) :
Нажимаю на кнопку "+" раскрывается строка 4, еще нажимаю, раскрывается строка 5, нажал еще 6.
Нажал на кнопку "-" скрылась строка 6, еще нажал, скрылась 5.
Нажал опять на "+" раскрылась строка 5.

Способ 2: Написал программку, прикрепил файлом, там пример, но вот тоже самое, только хочу это видеть в Excel'e =)) И с не добавлением строк а с раскрытием/скрытием))
Помогите пожалуйста)

К сообщению приложен файл: Primer.rar (46.0 Kb)

Ответить

nilem

Дата: Вторник, 06.10.2015, 12:03 | Сообщение № 4

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

Кажется, понял. Вот так пробуйте:
[vba]

Код

Sub UnHidRows()    '"+"
Dim i&: On Error Resume Next: Err.Clear
With Range("C3:C12")
     i = .SpecialCells(12).Count
     .Cells(1).Resize(i + 1).EntireRow.Hidden = False
End With
End Sub

[/vba]
[vba]

Код

Sub HidRows() '"-"
On Error Resume Next: Err.Clear
With Range("C3:C12")
.Cells(.SpecialCells(12).Count).EntireRow.Hidden = True
End With
End Sub

[/vba]
[p.s.]Обычная проблема на форумах - это отсутствие примеров. А тут сразу два и в разных исполнениях.
Присуждаю Вам звание "Лучший создатель примеров для форумов" :)[/p.s.]

Яндекс.Деньги 4100159601573

Ответить

Vladislawww

Дата: Вторник, 06.10.2015, 12:14 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2007

nilem, ДА!!! НАКОНЕЦ ТО, это то что нужно!! Блин спасибо Вам большое =) Золотой Вы человек))
Насчет "Лучший создатель примеров для форумов" надеюсь это не шутка xD
Еще раз спасибо, очень доволен что помогли решить проблему!)

Ответить

Макрос на скрытие/отображение строк "по очереди". (Макросы/Sub)

Страница 1 из 1
1