Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Группировка-оптимизировать / 3 сообщений из 3, страница 1 из 1
11.10.2009, 22:29:58
    #36244590
Zerat
Zerat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Группировка-оптимизировать
Добрый вечер!

Есть простой макрос по группировке строк. Строки группируются если в столбце "B" текст написан шрифтом с размером 10. Если макрос запустить пару раз, то одни и те же данные соответственно группируются пару раз, и вместо 3-го уровня, данные располагаются на 5-м.
Так вот, подскажите, пож-та, как сделать так, чтобы данные располагались на 3-м уровне, независимо от количества запусков макроса?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub Групп()
Application.ScreenUpdating = False
Dim i As Long
For i =  1  To Cells(Rows.Count, "B").End(xlUp).Row Step  1 
If Cells(i,  2 ).Font.Size =  10  Then
Rows(i).Group
Rows(i).Group
End If
Next i
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.10.2009, 01:37:52
    #36244689
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Группировка-оптимизировать
Например:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim r As Range
...
Set r = Rows(i)
Select Case r.OutlineLevel
    Case  1 
        r.Group
        r.Group
    Case  2 
        r.Group
End Select
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.10.2009, 22:38:39
    #36246716
Zerat
Zerat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Группировка-оптимизировать
PA, спасибо большое, теперь работает как надо.
А не могли бы Вы прокомментировать как это работает, начиная с Select Case...

Код выглядит таким образом:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub Групп()
Application.ScreenUpdating = False
Dim i As Long
Dim r As Range
For i =  1  To Cells(Rows.Count, "B").End(xlUp).Row Step  1 
If Cells(i,  2 ).Font.Size =  10  Then
Set r = Rows(i)
Select Case r.OutlineLevel
    Case  1 
        r.Group
        r.Group
    Case  2 
        r.Group
End Select
End If
Next i
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Группировка-оптимизировать / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 397ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2178974]:
 0ms
get settings:
 8ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 66ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 228ms
total:  397ms
x
x
Закрыть


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