Классический макет сводной таблицы. VBA. - Страница 3

Дата: Среда, 02.11.2011, 14:07 | Сообщение № 41

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Саня!!!

Ты сделал это!!!
УРАААААА!!!!
+++++

ЗЫ Теперь куда в Personal пихать, что бы во всех книгах по умолчанию эта гулька была?

ЮMoney:41001419691823 | WMR:126292472390

Дата: Среда, 02.11.2011, 14:11 | Сообщение № 42

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

надстройками не пользуешься?

Дата: Среда, 02.11.2011, 14:13 | Сообщение № 43

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Саня)

надстройками не пользуешься?

PowerPivot и пакет анализа.
Но лучше без надстроек, прямо в Personal.

ЮMoney:41001419691823 | WMR:126292472390

Дата: Среда, 02.11.2011, 14:29 | Сообщение № 44

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

я посмотрел тему, у тебя здесь все есть:
добавляешь в personal модуль класса, называешь его, напр., clsApp
в этот модуль вставляешь строку:
[vba]

Код

Public WithEvents XL As Application

[/vba]
это по факту свойство класса

в модуле "ЭтаКнига" personal'а:[vba]

Код

Public X As New clsApp

Private Sub Workbook_Open()
Set X.XL = Application
End Sub

[/vba]после этого в модуле класса будут доступны события уровня всего приложения
из левого выпадающего списка выбирай XL, из правого нужное событие и пиши туда, пиши, пиши...

Дата: Среда, 02.11.2011, 14:39 | Сообщение № 45

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Саня)

из левого выпадающего списка выбирай XL

Вот тут споткнулся...

У меня в этом модуле уже есть код.

Если вставляю твой ниже, то выдает ошибку компиляции sad

ЮMoney:41001419691823 | WMR:126292472390

Дата: Среда, 02.11.2011, 15:19 | Сообщение № 46

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

вернулись к истокам:
[vba]

Код

Private Sub XL_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
      Application.EnableEvents = False
      Target.InGridDropZones = True
      On Error Resume Next
      Target.RowAxisLayout xlTabularRow
      Debug.Print Now
      Application.EnableEvents = True
End Sub

[/vba]
ты ж знаешь, куда это надо вставить?

Дата: Среда, 02.11.2011, 15:49 | Сообщение № 47

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Да.

Новая напасть:

К сообщению приложен файл: 1514191.gif (47.4 Kb)

ЮMoney:41001419691823 | WMR:126292472390

Дата: Среда, 02.11.2011, 16:00 | Сообщение № 48

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

эту 1-ю строку перенеси в любой стандартный модуль - в начало, до всех процедур, а лучше создать новый модуль для таких целей (объявление глобальных переменных)

Дата: Среда, 02.11.2011, 16:09 | Сообщение № 49

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Саня)

1-ю строку перенеси в любой стандартный модуль

Саня, жму лапу!

ЮMoney:41001419691823 | WMR:126292472390

Дата: Среда, 02.11.2011, 16:19 | Сообщение № 50

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

а ведь изначально событие было правильное, но у тебя оно не работало и мы полезли в дебри wacko

Дата: Среда, 02.11.2011, 16:26 | Сообщение № 51

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Саня)

изначально событие было правильное

Тогда поясни: Как событие ОБНОВЛЕНИЯ сводной работает, если сводной ещё нет, она только в это время создаётся?

ЮMoney:41001419691823 | WMR:126292472390

Дата: Среда, 02.11.2011, 16:34 | Сообщение № 52

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

значит во время создания происходит и обновление - это ж тайна за семью печатями...

все эти события нужно только опытным путем исследовать, они то лезут где не должно бы, а то не появляются, где должны бы вроде

Дата: Среда, 02.11.2011, 16:47 | Сообщение № 53

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Саня)

все эти события нужно только опытным путем исследовать, они то лезут где не должно бы, а то не появляются, где должны бы вроде

За совет - спасибо, обязательно им воспользуюсь wink

ЮMoney:41001419691823 | WMR:126292472390

danilsergei4

Дата: Вторник, 24.09.2013, 12:46 | Сообщение № 54

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
Можно ли тут вопрос задать, не создавать новую тему?

Мне нужно понять, как при создании сводной задавать не SourceData:= _"Лист!R1C1:R65536C3".
Я хочу, чтобы во вновь созданной сводной таблице не было пустых значений. Какие вижу решения:
1) пропись в сорсдата диапазона с А-В, который позволит прописать последнюю непустую ячейку таблицы. но не получается, получаю синтаксическую ошибку.
2) обращение в коде по имени таблицы. но тут у меня индекс имени постоянно увеличивается с исполнением макроса еще раз. в этом случае нужно понять, как задавать имя диапазона при создании нового листа и копировании данных туда.

Пожалуйста, помогите мне по первому, второму или какому-то еще пути, которого я не знаю. Спасибо.

Цитата (danilsergei4, 24.09.2013 в 12:46, в сообщении № 54)

Можно ли тут вопрос задать, не создавать новую тему?

[moder]Нет, нельзя. Читаем Правила форума, а то буду зверствовать уже.