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

Вход

Регистрация

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

 

= Мир MS Excel/Добавление в Макрос фильтра - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление в Макрос фильтра (Макросы Sub)
Добавление в Макрос фильтра
Mrzv Дата: Вторник, 11.02.2014, 19:15 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте помогите решить задачу! Есть три файла:
1. Выгрузка (Название: Ростов);
2. Промежуточный файл с макросом (Название: Подсчет тематик);
3. Конечный файл в котором данные консолидируются (Название: Февраль).
По нажатию кнопки в файле "Подсчет тематик" открывается файл "Ростов", данные из которого обрабатываются с помощью формул и складываются в определенный массив, далее открывается файл по названием "Февраль" и там уже в зависимости от даты я вручную вставляю данные.
Вопрос в следующем, как добавить в макрос фильтр чтобы он сам вставлял массив в нужную дату которую я укажу.


Сообщение отредактировал Mrzv - Вторник, 11.02.2014, 19:29
 
Ответить
СообщениеЗдравствуйте помогите решить задачу! Есть три файла:
1. Выгрузка (Название: Ростов);
2. Промежуточный файл с макросом (Название: Подсчет тематик);
3. Конечный файл в котором данные консолидируются (Название: Февраль).
По нажатию кнопки в файле "Подсчет тематик" открывается файл "Ростов", данные из которого обрабатываются с помощью формул и складываются в определенный массив, далее открывается файл по названием "Февраль" и там уже в зависимости от даты я вручную вставляю данные.
Вопрос в следующем, как добавить в макрос фильтр чтобы он сам вставлял массив в нужную дату которую я укажу.
Автор - Mrzv
Дата добавления - 11.02.2014 в 19:15
Mrzv Дата: Вторник, 11.02.2014, 19:27 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
урезал массивы
К сообщению приложен файл: __2.xlsm (42.0 Kb) · 6227710.xlsx (89.6 Kb)
 
Ответить
Сообщениеурезал массивы
Автор - Mrzv
Дата добавления - 11.02.2014 в 19:27
Mrzv Дата: Вторник, 11.02.2014, 19:28 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
3й файл
К сообщению приложен файл: 5231641.xlsx (95.5 Kb)
 
Ответить
Сообщение3й файл
Автор - Mrzv
Дата добавления - 11.02.2014 в 19:28
Валерьянка Дата: Вторник, 11.02.2014, 19:41 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
Предлагаю использовать переменную с вводом данных вручную
InputBox(Prompt[,Title] [,Default] [,XPos] [,YPos] [,HelpFile,Context])
http://www.excelworld.ru/stuff....-1-0-69
 
Ответить
СообщениеПредлагаю использовать переменную с вводом данных вручную
InputBox(Prompt[,Title] [,Default] [,XPos] [,YPos] [,HelpFile,Context])
http://www.excelworld.ru/stuff....-1-0-69
Автор - Валерьянка
Дата добавления - 11.02.2014 в 19:41
Mrzv Дата: Вторник, 11.02.2014, 20:03 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
я не настолько силен в VBA и не понимаю как применить эту функцию. Можно пример использования этой функции?


Сообщение отредактировал Mrzv - Вторник, 11.02.2014, 20:10
 
Ответить
Сообщениея не настолько силен в VBA и не понимаю как применить эту функцию. Можно пример использования этой функции?
Автор - Mrzv
Дата добавления - 11.02.2014 в 20:03
Валерьянка Дата: Вторник, 11.02.2014, 20:17 | Сообщение № 6
Группа: Гости
Пока чами руками не попробуете не прймете
Побробуйте скопировать и всавить себе в модуль

'Переменная MyValue
Dim MyValue
MyValue = InputBox("текст сообщения", "заголовок", Date)
Range("a1") = MyValue

Может так понятнее будет
 
Ответить
СообщениеПока чами руками не попробуете не прймете
Побробуйте скопировать и всавить себе в модуль

'Переменная MyValue
Dim MyValue
MyValue = InputBox("текст сообщения", "заголовок", Date)
Range("a1") = MyValue

Может так понятнее будет
Автор - Валерьянка
Дата добавления - 11.02.2014 в 20:17
Валерьянка Дата: Вторник, 11.02.2014, 20:38 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
Пардон, что-то с сайта выкинуло
[vba]
Код

Sub qwert()

Dim MyValue  
MyValue = InputBox("текст сообщения", "заголовок", Date)  
Range("a1") = MyValue  

End Sub

[/vba]
 
Ответить
СообщениеПардон, что-то с сайта выкинуло
[vba]
Код

Sub qwert()

Dim MyValue  
MyValue = InputBox("текст сообщения", "заголовок", Date)  
Range("a1") = MyValue  

End Sub

[/vba]
Автор - Валерьянка
Дата добавления - 11.02.2014 в 20:38
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление в Макрос фильтра (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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