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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Робота макроса по смене месяца. (Макросы/Sub)
Робота макроса по смене месяца.
Ярик Дата: Суббота, 09.01.2016, 15:32 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 80
Репутация: 1 ±
Замечаний: 0% ±

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


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

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

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

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

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


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

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

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


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

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

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


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

Автор - Ярик
Дата добавления - 09.01.2016 в 19:01
_Boroda_ Дата: Суббота, 09.01.2016, 19:22 | Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 10334
Репутация: 4357 ±
Замечаний: 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(27Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
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
Группа: Пользователи
Ранг: Участник
Сообщений: 80
Репутация: 1 ±
Замечаний: 0% ±

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


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

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

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