ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Эксель группировка
9 сообщений из 9, страница 1 из 1
Эксель группировка
    #36183899
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Есть 3 уровня группировки строк ....
Как кодом удалить строки только группировки 1 уровня???
Пишу: ActiveSheet.Outline.ShowLevels.RowLevels(1).Delete
Но что-то не правильно...
Подскажите, что?
Спасибо...

Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
08.09.2009, 13:01:57
| Ответить | Цитировать | Написать  
Эксель группировка
    #36184035
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaximuS_G
Участник
а такое возможно?... F1 говорит что у объекта outline только одно свойство:
F1ShowLevels Method
Displays the specified number of row and/or column levels of an outline.

expression.ShowLevels(RowLevels, ColumnLevels)
expression Required. An expression that returns an Outline object.

RowLevels Optional Variant. Specifies the number of row levels of an outline to display. If the outline has fewer levels than the number specified, Microsoft Excel displays all the levels. If this argument is 0 (zero) or is omitted, no action is taken on rows.

ColumnLevels Optional Variant. Specifies the number of column levels of an outline to display. If the outline has fewer levels than the number specified, Microsoft Excel displays all the levels. If this argument is 0 (zero) or is omitted, no action is taken on columns.
тоесть по идее даже вот эта запись ShowLevels.RowLevels(1) уже не правильна... пример F1 дают такой: .ShowLevels rowLevels:=3
...
Рейтинг: 0 / 0
08.09.2009, 13:47:39
| Ответить | Цитировать | Написать  
Эксель группировка
    #36184128
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
MaximuS_G,

Да, но как извратиться и ActiveSheet.Outline.ShowLevels.RowLevels:=1
 выделить??? Чтобы потом "грохнуть"
...
Рейтинг: 0 / 0
08.09.2009, 14:16:18
| Ответить | Цитировать | Написать  
Эксель группировка
    #36184142
sergeyvg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sergeyvg
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub test()
  ActiveSheet.Outline.ShowLevels rowLevels:= 1 
  For Each WAr In ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Areas
    WAr.EntireRow.Delete
  Next WAr
End Sub
...
Рейтинг: 0 / 0
08.09.2009, 14:20:50
| Ответить | Цитировать | Написать  
Эксель группировка
    #36184230
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
sergeyvg,

Спасибо , смысл понял, Может знаешь как сам уровень № 1 убрать, т.е. он как бы пустой, но он присутствует, а мне надо, чтобы:
Было: 1 2 3 уровни
Стало: 1 2 (бывшие 2 3) уровни (удалить строки 1 уровня и строки 2 уровня стали строками 1 уровня, а строки 3 стали 2 уровнем)
...
Рейтинг: 0 / 0
08.09.2009, 14:48:57
| Ответить | Цитировать | Написать  
Эксель группировка
    #36184285
sergeyvg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sergeyvg
Гость
может так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub test()
For I =  2  To  3 
  ActiveSheet.Outline.ShowLevels rowLevels:=I
  For Each WAr In ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Areas
    WAr.EntireRow.OutlineLevel = I -  1 
  Next WAr
Next I
End Sub
...
Рейтинг: 0 / 0
08.09.2009, 15:11:17
| Ответить | Цитировать | Написать  
Эксель группировка
    #36184370
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
sergeyvg,
Всё класно, 2-ой уровень переходит в 1-ый, но...
После Next I
 3-ий превращается во 2-ой уровень, сам 3-ий ликвидируется и ... 1-ый становиться 2-ым, т.е. объединяется с 3-им....
sergeyvg ,
Если можно, объясни мне логику переустановки уровня - я никак понять её не могу.
Спасибо.
...
Рейтинг: 0 / 0
08.09.2009, 15:41:59
| Ответить | Цитировать | Написать  
Эксель группировка
    #36184423
sergeyvg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sergeyvg
Гость
тогда может так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub test()
  ActiveSheet.Outline.ShowLevels rowLevels:= 2 
  For Each WAr In ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Areas
    WAr.EntireRow.OutlineLevel =  1 
  Next WAr
  For Each WAr In ActiveSheet.UsedRange.Rows
    If WAr.OutlineLevel =  3  Then WAr.OutlineLevel =  2 
  Next WAr
End Sub
...
Рейтинг: 0 / 0
08.09.2009, 16:03:09
| Ответить | Цитировать | Написать  
Эксель группировка
    #36184445
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
sergeyvg,

Спасибо большое, вроде логику нащупал..., что-то уже заработало.
Ущё раз СПАСИБО...
...
Рейтинг: 0 / 0
08.09.2009, 16:12:01
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Эксель группировка
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2179082]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 49ms
get topic data:
 10ms
get first new msg:
 7ms
get forum data:
 3ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 230ms
total:  361ms
созд. / загр.: 361ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]