И в файле тоже вероятно не читали что пишете ИМХО так нужно: [vba]
Код
Rows("3:7").EntireRow.Hidden = Rows("9:13").EntireRow.Hidden With Rows("3:7") .EntireRow.Hidden = Not (.EntireRow.Hidden) End With With Rows("9:13") .EntireRow.Hidden = Not (.EntireRow.Hidden) End Withh
[/vba]
И в файле тоже вероятно не читали что пишете ИМХО так нужно: [vba]
Код
Rows("3:7").EntireRow.Hidden = Rows("9:13").EntireRow.Hidden With Rows("3:7") .EntireRow.Hidden = Not (.EntireRow.Hidden) End With With Rows("9:13") .EntireRow.Hidden = Not (.EntireRow.Hidden) End Withh
Hugo, спасибо, но скорее всего я не правильно объяснил чего я хочу
В моём примере: Кнопка "Раздел" - разворачивает и сворачивает кнопки "1 Подраздел и 2 Подраздел" и их строчки, но мне не нужно чтоб он при разворачивании, показывал только кнопки "1 Подраздел и 2 подраздел" без строчек!
С уважением Дмитрий
Hugo, спасибо, но скорее всего я не правильно объяснил чего я хочу
В моём примере: Кнопка "Раздел" - разворачивает и сворачивает кнопки "1 Подраздел и 2 Подраздел" и их строчки, но мне не нужно чтоб он при разворачивании, показывал только кнопки "1 Подраздел и 2 подраздел" без строчек!
Sub Раздел() If Rows(2).EntireRow.Hidden = True Then Rows("2:13").EntireRow.Hidden = True Rows(2).EntireRow.Hidden = False Rows(8).EntireRow.Hidden = False Else Rows("2:13").EntireRow.Hidden = True End If End Sub
[/vba]
Может угадаю? ) [vba]
Код
Sub Раздел() If Rows(2).EntireRow.Hidden = True Then Rows("2:13").EntireRow.Hidden = True Rows(2).EntireRow.Hidden = False Rows(8).EntireRow.Hidden = False Else Rows("2:13").EntireRow.Hidden = True End If End Sub
nilem, , и правда логично) boa, Всё ништяк, Вы просто красавчеГи) А теперь вопрос? такой, где будет быстрее срабатывать ? почему такой вопрос задаю, у меня 20 разделов по 4 подраздела в каждом Подразделе строчек 50 + - , и ещё с сжатыми картинками и этот "прайс с товарами" я скидываю сотням людям! и не у всех компьютеры мощные. Через команду Dim быстрее будет? или также?
И вопрос не по теме, (можно проигнорировать) У моих покупателей MS Exel не свежие могут быть версии, и мой прайс иногда некорректно работает у них, а ещё хуже, когда они открывают через Open office, и тогда вообще ужас=) Вообще реально такое сделать, чтоб у всех работало нормально как у меня? С уважением Дмитрий
nilem, , и правда логично) boa, Всё ништяк, Вы просто красавчеГи) А теперь вопрос? такой, где будет быстрее срабатывать ? почему такой вопрос задаю, у меня 20 разделов по 4 подраздела в каждом Подразделе строчек 50 + - , и ещё с сжатыми картинками и этот "прайс с товарами" я скидываю сотням людям! и не у всех компьютеры мощные. Через команду Dim быстрее будет? или также?
И вопрос не по теме, (можно проигнорировать) У моих покупателей MS Exel не свежие могут быть версии, и мой прайс иногда некорректно работает у них, а ещё хуже, когда они открывают через Open office, и тогда вообще ужас=) Вообще реально такое сделать, чтоб у всех работало нормально как у меня? С уважением ДмитрийАдри
В моём варианте если нужно прятать и заголовки - обрабатывайте Rows("2:7") и Rows("8:13"). При таком варианте при раскрытии будет раскрываться всё. И прятаться всё. Ну может вдруг так понадобится.
В моём варианте если нужно прятать и заголовки - обрабатывайте Rows("2:7") и Rows("8:13"). При таком варианте при раскрытии будет раскрываться всё. И прятаться всё. Ну может вдруг так понадобится.Hugo