Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не могу выбрать DataRange. / 3 сообщений из 3, страница 1 из 1
04.11.2013, 18:24
    #38452129
Не могу выбрать DataRange.
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
...
Рейтинг: 0 / 0
04.11.2013, 18:56
    #38452161
Не могу выбрать DataRange.
Вопрос в догонку как поменять название созданного поля.
Оно у меня выходит Сумма по полю fldName
...
Рейтинг: 0 / 0
04.11.2013, 19:23
    #38452193
Не могу выбрать DataRange.
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 ?
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не могу выбрать DataRange. / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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