Как заставить Excel поместить поле поворота Sigma Values ​​в метку столбцов с помощью кода VBA?

В моих сводных таблицах я предпочитаю видеть поля Значение, отображаемые как метки столбцов рядом с полями метки Row. По умолчанию Excel создаст поле «Значения Sigma» и переместит его в ярлыки Row Labels или Column Labels. Я хотел бы добавить в свою сводную таблицу Create Create макрос, строку (строки) кода для создания и поместить это поле в метку столбцов. Ниже я покажу, какую ориентацию я бы хотел. Заранее спасибо! Поле Sigma Values ​​создается по умолчанию. Я бы хотел, чтобы excel всегда помещал это поле в ярлык столбца

Вот мой код VBA, он еще не закончен

Sub olderRTSPivot() Dim objTable As PivotTable, objField As PivotField 

'в верхнем левом углу таблицы исходных данных (то есть в отчете об исключении)

  ActiveWorkbook.Sheets("Sheet Name").Select Range("A1").Select 

«Сказать Excel, чтобы использовать эту таблицу, чтобы создать стержень

  Set objTable = ActiveSheet.PivotTableWizard 

'установить поля фильтра

  Set objField = objTable.PivotFields("Aging Category") objField.Orientation = xlPageField Set objField = objTable.PivotFields("Project") objField.Orientation = xlPageField 

'Установить поля строки

  Set objField = objTable.PivotFields("Originator") objField.Orientation = xlRowField Set objField = objTable.PivotFields("Created") objField.Orientation = xlRowField 

'Установить поля данных

  Set objField = objTable.PivotFields("RTS") objField.Orientation = xlDataField objField.Function = xlCount Set objField = objTable.PivotFields("Days Aged") objField.Orientation = xlDataField objField.Function = xlAverage Set objField = objTable.PivotFields("Days Aged") objField.Orientation = xlDataField objField.Function = xlMax End Sub 

Interesting Posts

Разбор XML-книги Excel в Coldfusion

Расширить исключение с новым сообщением

Скрипт Powershell для объединения нескольких CSV с несколькими разделяемыми заголовками

Чтение excel (.xls) шаблона, замена переменных значениями текстового поля и сохранение файла excel в C #

Преобразование гиперссылок в HTML-код в Excel

Как анализировать даты для сравнения времени для сравнения по конкретному значению

Как создать строковый литерал в excel?

Как открыть файл excel в R, где формат файла и расширение файла отличаются?

Ошибки сохранения первого 8 символа строки

Копирование строк и вставка в различный лист с использованием VBA (отредактированный код)

Ошибка VBA: определения процедур свойств для одного и того же свойства являются несогласованными, или процедура свойства имеет необязательный параметр

Как использовать Excel VBA для изменения базы данных доступа (accdb) Таблица, синхронизированная с Sharepoint?

Excel VBA Fill Combo Box с данными из SQL-запроса

Динамический диапазон VBA с калькуляцией значений

Excel Sql вызывает слишком мало ошибок параметров при запуске Sql в режиме чтения только в Excel

Давайте будем гением компьютера.