Подскажите,пожалуйста,как можно более рационально решить следующую задачу: я создал сводную таблицу,необходима процедура,которая снимет/поставит галку на все элементы определенной группы данных,включенных в сводную таблицу как элементы строк.Так как с VBA я знаком весьма посредственно,то я просто включил запись макроса и вручную снял несколько галок.Полученный код преобразовал к следующему:
For i = 1 To ActiveSheet.PivotTables("MyTable").PivotFields("AnyField").PivotItems.Count
ActiveSheet.PivotTables("MyTable").PivotFields("AnyField").PivotItems(i).Visible = Not ActiveSheet.PivotTables("MyTable").PivotFields("AnyField").PivotItems(i).Visible
Next
Все работает,но происходит пересчет при каждом такте цикла,нельзя ли как-то сделать это в одной транзакции?