Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Убрать столбец из сводной таблицы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Убрать столбец из сводной таблицы (Макросы/Sub)
Убрать столбец из сводной таблицы
Elvira66 Дата: Вторник, 20.02.2018, 11:47 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день!
Помогите с макросом, код прописан в файле, но он не работает, нужно убрать столбец из сводной, причем столбец это переменная.
К сообщению приложен файл: 6214470.xlsm (31.3 Kb)


Сообщение отредактировал Elvira66 - Вторник, 20.02.2018, 14:14
 
Ответить
СообщениеДобрый день!
Помогите с макросом, код прописан в файле, но он не работает, нужно убрать столбец из сводной, причем столбец это переменная.

Автор - Elvira66
Дата добавления - 20.02.2018 в 11:47
sboy Дата: Вторник, 20.02.2018, 12:12 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Если исходных данных не очень много, то я бы предложил не использовать сводную для этих целей, и тем более писать код для этой сводной.
Задача решается в 3-4 формулы.
Чтобы приступить к решению, нужно привести название темы в соответствие с Правилами форума, и решать поэтапно (1 вопрос = 1 тема)


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Если исходных данных не очень много, то я бы предложил не использовать сводную для этих целей, и тем более писать код для этой сводной.
Задача решается в 3-4 формулы.
Чтобы приступить к решению, нужно привести название темы в соответствие с Правилами форума, и решать поэтапно (1 вопрос = 1 тема)

Автор - sboy
Дата добавления - 20.02.2018 в 12:12
Elvira66 Дата: Вторник, 20.02.2018, 12:18 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Исходных данных большое количество, нужна именно сводная таблица и именно то решение которое описано в примере
 
Ответить
СообщениеИсходных данных большое количество, нужна именно сводная таблица и именно то решение которое описано в примере

Автор - Elvira66
Дата добавления - 20.02.2018 в 12:18
Pelena Дата: Вторник, 20.02.2018, 12:39 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19167
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Elvira66, дайте теме более конкретное название в соответствии с Правилами форума


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеElvira66, дайте теме более конкретное название в соответствии с Правилами форума

Автор - Pelena
Дата добавления - 20.02.2018 в 12:39
Elvira66 Дата: Вторник, 20.02.2018, 12:50 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Поправила
 
Ответить
СообщениеПоправила

Автор - Elvira66
Дата добавления - 20.02.2018 в 12:50
Elvira66 Дата: Вторник, 20.02.2018, 13:21 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Изменения в самом начале


Сообщение отредактировал Elvira66 - Вторник, 20.02.2018, 14:15
 
Ответить
СообщениеИзменения в самом начале

Автор - Elvira66
Дата добавления - 20.02.2018 в 13:21
Elvira66 Дата: Вторник, 20.02.2018, 14:19 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, посмотрите пожалуйста мой файл, он сокращен до одного пункта
 
Ответить
СообщениеPelena, посмотрите пожалуйста мой файл, он сокращен до одного пункта

Автор - Elvira66
Дата добавления - 20.02.2018 в 14:19
Mikael Дата: Вторник, 20.02.2018, 16:42 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 80
Репутация: 31 ±
Замечаний: 0% ±

Excel 2010
Всем доброго дня.
Elvira66, нужно убрать кавычки у X и поместить все в одну строку. Вот так:
[vba]
Код
ActiveSheet.PivotTables("Сводная таблица2").PivotFields(x).Orientation = xlHidden
[/vba]
 
Ответить
СообщениеВсем доброго дня.
Elvira66, нужно убрать кавычки у X и поместить все в одну строку. Вот так:
[vba]
Код
ActiveSheet.PivotTables("Сводная таблица2").PivotFields(x).Orientation = xlHidden
[/vba]

Автор - Mikael
Дата добавления - 20.02.2018 в 16:42
abtextime Дата: Вторник, 20.02.2018, 18:39 | Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
и еще, мне кажется, Вы пытаетесь удалить столбец "Факт на 19.02.17", а это пользовательское имя, а реальное имя - "на 19.02.17", его и надо присваивать переменной x

У меня сработало с такой корректировкой


Сообщение отредактировал abtextime - Вторник, 20.02.2018, 18:39
 
Ответить
Сообщениеи еще, мне кажется, Вы пытаетесь удалить столбец "Факт на 19.02.17", а это пользовательское имя, а реальное имя - "на 19.02.17", его и надо присваивать переменной x

У меня сработало с такой корректировкой

Автор - abtextime
Дата добавления - 20.02.2018 в 18:39
Elvira66 Дата: Среда, 21.02.2018, 06:52 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо большое! Всё работает теперь!!! :)
 
Ответить
СообщениеСпасибо большое! Всё работает теперь!!! :)

Автор - Elvira66
Дата добавления - 21.02.2018 в 06:52
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Убрать столбец из сводной таблицы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!