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

Вход

Регистрация

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

 

= Мир MS Excel/Робота макроса по смене месяца. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Робота макроса по смене месяца. (Макросы/Sub)
Робота макроса по смене месяца.
Ярик Дата: Суббота, 09.01.2016, 15:32 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 130
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
Добрый день! Помогите решить если такое возможно. Есть сводная таблица, макросом (макрос скачал в интернете) автоматически изменяется ширина столбцов при выборе нужного месяца. Можно ли как-то изменить макрос чтобы он срабатывал при выборе месяца, не назначая его к кнопке как у меня в примере.
И еще один вопрос можно как то сделать чтобы месяцы менялись в сводной при выборе месяца с выпадающего списка как у меня в ячейке I2 (например ячейка I2= «Март», чтобы в сводной автоматически менялся месяц «3» ячейка В1). Заранее спасибо.
К сообщению приложен файл: 2473158.xlsm (22.0 Kb)


753123
 
Ответить
СообщениеДобрый день! Помогите решить если такое возможно. Есть сводная таблица, макросом (макрос скачал в интернете) автоматически изменяется ширина столбцов при выборе нужного месяца. Можно ли как-то изменить макрос чтобы он срабатывал при выборе месяца, не назначая его к кнопке как у меня в примере.
И еще один вопрос можно как то сделать чтобы месяцы менялись в сводной при выборе месяца с выпадающего списка как у меня в ячейке I2 (например ячейка I2= «Март», чтобы в сводной автоматически менялся месяц «3» ячейка В1). Заранее спасибо.

Автор - Ярик
Дата добавления - 09.01.2016 в 15:32
Kuzmich Дата: Суббота, 09.01.2016, 16:46 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
В сводной сделайте группировку по месяцам и выбирайте любой месяц
Сводная на Лист1
К сообщению приложен файл: 6411569.xls (47.0 Kb)
 
Ответить
СообщениеВ сводной сделайте группировку по месяцам и выбирайте любой месяц
Сводная на Лист1

Автор - Kuzmich
Дата добавления - 09.01.2016 в 16:46
Ярик Дата: Суббота, 09.01.2016, 17:03 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 130
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
Kuzmich спасибо за ответ, не это не совсем то. Мне нужно чтобы было как в примере месяц выбирался из выпадающего списка, и ширина столбца изменялась по ширине города(значения).


753123
 
Ответить
СообщениеKuzmich спасибо за ответ, не это не совсем то. Мне нужно чтобы было как в примере месяц выбирался из выпадающего списка, и ширина столбца изменялась по ширине города(значения).

Автор - Ярик
Дата добавления - 09.01.2016 в 17:03
gling Дата: Суббота, 09.01.2016, 18:09 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2519
Репутация: 674 ±
Замечаний: 0% ±

2010
Так надо?
К сообщению приложен файл: 9577570.xlsm (24.7 Kb)


ЯД-41001506838083

Сообщение отредактировал gling - Суббота, 09.01.2016, 18:42
 
Ответить
СообщениеТак надо?

Автор - gling
Дата добавления - 09.01.2016 в 18:09
Ярик Дата: Суббота, 09.01.2016, 19:01 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 130
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
gling огромное Вам спасибо, дай Бог Вам здоровья за Ваш труд и помощь таким как я. hands


753123
 
Ответить
Сообщениеgling огромное Вам спасибо, дай Бог Вам здоровья за Ваш труд и помощь таким как я. hands

Автор - Ярик
Дата добавления - 09.01.2016 в 19:01
_Boroda_ Дата: Суббота, 09.01.2016, 19:22 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
У меня немного иначе, но по сути аналогично
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "I2" Then
        Application.ScreenUpdating = 0
        ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("1").CurrentPage = "(Все)"
        On Error Resume Next
            Range("B1") = WorksheetFunction.Match(Target, [месяц], 0)
        On Error GoTo 0
        ШИРИНА
    End If
End Sub
[/vba]
К сообщению приложен файл: 2473158_2.xlsm (26.6 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеУ меня немного иначе, но по сути аналогично
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "I2" Then
        Application.ScreenUpdating = 0
        ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("1").CurrentPage = "(Все)"
        On Error Resume Next
            Range("B1") = WorksheetFunction.Match(Target, [месяц], 0)
        On Error GoTo 0
        ШИРИНА
    End If
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 09.01.2016 в 19:22
Ярик Дата: Воскресенье, 10.01.2016, 14:03 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 130
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
_Boroda_ спасибо Вам за ответ.


753123
 
Ответить
Сообщение_Boroda_ спасибо Вам за ответ.

Автор - Ярик
Дата добавления - 10.01.2016 в 14:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Робота макроса по смене месяца. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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