Значения DataField в столбце вместо строки - PullRequest
Новая
       4

Значения DataField в столбце вместо строки

0 голосов
/ 25 апреля 2020

Ниже приведен код для установки строки и полей данных сводной таблицы, которая уже присутствует в моем листе.

Моя проблема заключается в том, что поля данных отображаются в строках, а не в столбцах. это как -

неправильно

enter image description here

Я хочу это как -

правильно

enter image description here

Sub Create_CR_DT
Set pt = ActiveSheet.PivotTables(1)

'Remove existing Data fields
For Each pf In pt.DataFields
    pf.Orientation = xlHidden
Next pf

'Remove existing Row fields
For Each pf In pt.RowFields
    pf.Orientation = xlHidden
Next pf

'Remove existing Column fields
For Each pf In pt.ColumnFields
    pf.Orientation = xlHidden
Next pf


'Set VR.NO as 1st row
pt.PivotFields(" VR. NO.").Orientation = xlRowField
pt.PivotFields(" VR. NO.").Position = 1

'Set DataFields
pt.PivotFields("INCOME TAX").Orientation = xlDataField
pt.PivotFields("CESS").Orientation = xlDataField
pt.PivotFields("I.G.S.T").Orientation = xlDataField
pt.PivotFields("C.G.S.T").Orientation = xlDataField
pt.PivotFields("C.G.S.T BY CASH").Orientation = xlDataField
pt.PivotFields("S.G.S.T").Orientation = xlDataField 
End Sub

1 Ответ

0 голосов
/ 25 апреля 2020

Я снова гуглил по утрам, и после 4-5 попыток я смог решить ее самостоятельно.

Только что добавил строку ниже в конце, и это сработало.

pt.DataPivotField .Orientation = xlColumnField

Спасибо всем !!

...