Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / После Subtotal определить строки с итогоами? / 6 сообщений из 6, страница 1 из 1
31.07.2006, 11:19:38
    #33888534
АлексейЕ
АлексейЕ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
После Subtotal определить строки с итогоами?
C помощью метода Subtotal добавил промежуточные итоги.
Как определить, в каких строках выходит этот итог, что бы их расскрасить в ругой цвет?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.07.2006, 19:17:01
    #33890237
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
После Subtotal определить строки с итогоами?
вдумчивым изучением проперти IndentLevel применительно к коллекции Rows
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2006, 08:36:31
    #33890799
sergeyvg
sergeyvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
После Subtotal определить строки с итогоами?
как вариант
Код: plaintext
1.
2.
3.
4.
5.
Sub test()
Dim R As Range
  For Each R In Columns( 2 ).SpecialCells(xlCellTypeFormulas)
    MsgBox R.EntireRow.Address
  Next R
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2006, 10:13:48
    #33891006
АлексейЕ
АлексейЕ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
После Subtotal определить строки с итогоами?
White Owlвдумчивым изучением проперти IndentLevel применительно к коллекции Rows
Не понятно, поясните пожалуйста.

sergeyvgкак вариант
Код: plaintext
1.
2.
3.
4.
5.
Sub test()
Dim R As Range
  For Each R In Columns( 2 ).SpecialCells(xlCellTypeFormulas)
    MsgBox R.EntireRow.Address
  Next R
End Sub

Спасибо Сергей. Ваш спосаб к сожалению не подошел, т.к. в этом столбце у меня все значения рассчитываются по формулам.
Пока вышел из положения таким способом
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Set objRange = objExcel.Selection.Find("ПРОМЕЖУТОЧНЫЕ.ИТОГИ", LookIn:=xlFormulas)

        If Not objRange Is Nothing Then
            firstAddress = objRange.Address
            Do
                objSheet.Rows(objRange.Row).Interior.ColorIndex =  15 
                With Range(objSheet.Cells(objRange.Row,  1 ), objSheet.Cells(objRange.Row, objRange.Column -  1 ))
                    .Merge
                    .HorizontalAlignment = xlLeft
                End With
                Set objRange = objExcel.Selection.Find("ПРОМЕЖУТОЧНЫЕ.ИТОГИ", After:=objRange, LookIn:=xlFormulas)
                If objRange Is Nothing Then Exit Do
            Loop While objRange.Address <> firstAddress
        End If
но тема не закрыта, т.к. ссылаться на формулу "ПРОМЕЖУТОЧНЫЕ.ИТОГИ", с моей точки зрения не корректно, т.к. в англоязычном EXCEL'е это формула будет другой. Т.е. теряем межязыковую универсальность.
Есть еще идеи?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2006, 20:05:43
    #33893104
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
После Subtotal определить строки с итогоами?
АлексейЕ White Owlвдумчивым изучением проперти IndentLevel применительно к коллекции Rows
Не понятно, поясните пожалуйста.
Прошу прощения, OutlineLevel конечно. Для простого одноуровнего Subtotal с одной группировкой по одному полю:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
for each r in subtotal_table_range.rows
   if r.outlinelevel =  2  then
       ' строка r содержит промежуточные итоги
   elseif r.outlinelevel =  1  then
       ' строка r содержит глобальный итог
       ' либо не находится внутри subtotal таблицы вообще
   else
       ' строка r содержит данные
   end if
next
Для более сложных группировок (вложеных по двум и более полям) прийдется подправить константы :) В общем смотри слева от листа рисуется дерево группировки - вот его и используй.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2006, 12:42:16
    #33894283
АлексейЕ
АлексейЕ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
После Subtotal определить строки с итогоами?
Спасибо, White Owl.
Именно это мне и нужно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / После Subtotal определить строки с итогоами? / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 332ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2184528]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 55ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 203ms
total:  332ms
x
x
Закрыть


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