|
|
|
Не могу выбрать 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:24 |
|
||
|
Не могу выбрать DataRange.
|
|||
|---|---|---|---|
|
#18+
Вопрос в догонку как поменять название созданного поля. Оно у меня выходит Сумма по полю fldName ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.11.2013, 18:56 |
|
||
|
Не могу выбрать 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 ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.11.2013, 19:23 |
|
||
|
|
start [/forum/topic.php?fid=61&msg=38452161&tid=2174435]: |
0ms |
get settings: |
9ms |
get forum list: |
11ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
57ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
42ms |
get tp. blocked users: |
2ms |
| others: | 318ms |
| total: | 457ms |
| 0 / 0 |
