Как правильно добавить в объект «Надпись» (TextBox) ссылку на общий итог из сводной таблички (для автоматизации отчетов) Excel.

Как правильно добавить в объект «Надпись» (TextBox) ссылку на общий итог из сводной таблички (для автоматизации отчетов) Excel.

Для добавления в текстовое поле (TextBox) в Excel ссылки на общий итог из сводной таблицы, вы можете воспользоваться макросами VBA. Вот как это можно сделать:

1. Создание TextBox:

Добавьте текстовое поле (TextBox) на ваш лист Excel, на котором вы хотите разместить ссылку на общий итог.

1. Создание макроса VBA:

Откройте редактор VBA, нажав Alt + F11. Вставьте следующий код в модуль:

Sub UpdateTextBoxWithPivotTotal()

Dim ws As Worksheet

Dim pt As PivotTable

Dim txtBox As Shape

Dim totalValue As Double

‘ Имя вашей сводной таблицы и её листа

Set ws = ThisWorkbook.Sheets(«ЛистССводнойТаблицей»)

Set pt = ws.PivotTables(«ИмяСводнойТаблицы»)

‘ Имя вашего текстового поля (замените на соответствующее)

Set txtBox = ws.Shapes(«TextBox1»)

‘ Получение общего итога из сводной таблицы

totalValue = pt.GetPivotData(«ВашСтолбецЗначений», «ВашСтолбецРядов», «ВашЗначениеИтога»)

‘ Обновление текстового поля

txtBox.TextFrame.Characters.Text = «Общий итог: » & totalValue

End Sub

Замените «ЛистССводнойТаблицей», «ИмяСводнойТаблицы», «ВашСтолбецЗначений», «ВашСтолбецРядов» и «ВашЗначениеИтога» на соответствующие значения из вашей сводной таблицы.

1. Связывание макроса с объектом TextBox:

Вернитесь на ваш лист Excel, выделите текстовое поле (TextBox) и щелкните правой кнопкой мыши. Выберите «Назначить макрос…» и выберите созданный вами макрос UpdateTextBoxWithPivotTotal.

Теперь, при запуске этого макроса, текстовое поле (TextBox) будет обновляться с ссылкой на общий итог из вашей сводной таблицы. Вы можете вызвать этот макрос вручную или автоматизировать его вызов при определенных событиях, например, при обновлении данных в сводной таблице.