Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Перехват ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ, пользователь сделал двойной клик на данных сводной таблицы, надо понять, какие данные он взял
 
Добрый день, друзья!

Подскажите, пожалуйста, каким способом в VBA можно получить строку, которую Excel сам подставляет в формулу ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ при включенной опции Параметры/Формулы/"Использовать функции GetPivotData для ссылок в сводной таблице"?


Глобально зада решается такая:
Сводная таблица произвольного формата, построенная на данных из оракловой базы.
Пользователь делает двойной клик на ячейке данных - штатный функционал Эксель создаёт новый лист с данными, которые составляют выбранную ячейку сводной.
Далее уже самодельная нахлобучка - открывшийся лист с данными можно править и запускать макрос, который будет писать изменения в оракловую базу.
Также есть макрос, который актуализирует выбранные данные из базы.

Проблема в том, что в базе могли появиться новые строки, внесенные другими пользователями.
Сейчас, чтобы увидеть эти строки, приходится обновлять сводную таблицу и заново двойным кликом вытаскивать данные.

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

Мне видится, что надо перехватить фильтры сводной таблицы при двойном клике и при обновлении дописать их к sql запросу к базе.

P.S. Предчувствую неизмеримое поле граблей при работе с переименованными столбцами и вычисляемыми полями, но до этого еще надо дойти.
Если кому-либо видятся более прямые и правильные пути решения этой задачи - буду очень признателен за советы и наставления.
Поиск универсального способа проверки существования свойства у объекта.,
 
Добрый день, друзья!

Столкнулся с необходимостью проверки существования конкретного свойства у объекта, чтобы не встречать ошибку  (Run-time error '1004')  Не нашел какого-то универсального решения.
Пример
Код
MsgBox (Selection.PivotItem.Caption)  
Если при выполнении выделена ячейка строк сводной таблицы - покажет заголовок,
если нет - Run-time error '1004'.
Уровень проекта не позволяет использовать "On error resume next" внутри основного кода.

Пока выкручиваюсь отдельной функцией для проверки каждого подобного случая, но это крайне неэстетично и громоздко.
Уверен, что есть более красивое решение. Буду очень признателен за подсказки, в каком направлении копать.
Страницы: 1
Наверх