Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
04.11.2013, 18:24
|
|||
---|---|---|---|
|
|||
Не могу выбрать DataRange. |
|||
#18+
Sub AddCalculedPivotField( sht, tblName, fldName, numFormat, FillColor,Formula ) 'sht.PivotTables( tblName ).AddDataField sht.PivotTables( tblName ).PivotFields( fldName ), fldName & "_", xlSum sht.PivotTables( tblName ).CalculatedFields.Add fldName, "=0", True sht.PivotTables( tblName ).PivotFields( fldName ).Orientation = xlDataField sht.PivotTables( tblName ).PivotFields( fldName ).NumberFormat = numFormat sht.PivotTables( tblName ).PivotFields( fldName ).Caption = fldName With sht.PivotTables( tblName ).PivotFields( fldName ).DataRange.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = FillColor End With End Sub Ошибка. Невозможно получить свойство DataRange класса PivotField ... |
|||
:
Нравится:
Не нравится:
|
|||
|
04.11.2013, 18:56
|
|||
---|---|---|---|
|
|||
Не могу выбрать DataRange. |
|||
#18+
Вопрос в догонку как поменять название созданного поля. Оно у меня выходит Сумма по полю fldName ... |
|||
:
Нравится:
Не нравится:
|
|||
|
04.11.2013, 19:23
|
|||
---|---|---|---|
|
|||
Не могу выбрать DataRange. |
|||
#18+
ActiveSheet.PivotTables("СводнаяТаблица1").CalculatedFields.Add "Поле1", "=a+b" _ , True ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Поле1").Orientation = _ xlDataField Range("P17").Select ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Сумма по полю Поле1"). _ Caption = "Поле1_" Почему поле стало называться Сумма по полю Поле1 ? ... |
|||
:
Нравится:
Не нравится:
|
|||
|
|
start [/forum/topic.php?fid=61&mobile=1&tid=2174435]: |
0ms |
get settings: |
10ms |
get forum list: |
12ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
33ms |
get topic data: |
10ms |
get forum data: |
3ms |
get page messages: |
39ms |
get tp. blocked users: |
1ms |
others: | 332ms |
total: | 446ms |
0 / 0 |