Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Lyco
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Применение макроса ко всем файлам, с автоподстановкой имен изменяемых файлов
 
#
12.04.2016 18:38:14
Цитата
V написал:
обязательно копировать полностью 3 строки и полностью 1 столбец?
Не обязательно. Для kons2 это строки 25-29, столбцы с B до AQ, для kons3 строки 4-26, столбец I.
По остальным вкладкам тоже можно ограничить ~50 строками/столбцами.
 
Перейти    
Применение макроса ко всем файлам, с автоподстановкой имен изменяемых файлов
 
#
12.04.2016 16:53:07
Цитата
alexthegreat написал:
открывает все файлы в указанной вами папке. Допишите что он должен делать с файлами, допилите под себя
Выдает ошибку. Я так понимаю, проблема в имени файла: у меня в коде предполагается переключение между двумя активными окнами (книгами): K3Oirignal и целевой. Даже если операция выполнится для книги 01, для книги 02 ссылки перестанут работать.
 
Перейти    
Применение макроса ко всем файлам, с автоподстановкой имен изменяемых файлов
 
#
12.04.2016 16:02:00
Добрый день,

Есть 85 книг эксель, в каждой несколько вкладок, вкладки всегда одинаковы, некоторых вкладок может не хватить. Например:
Название "01.xlsx", вкладки kons1, kons2, kons3
Название "02.xlsx", вкладки kons1, kons2
Название "03.xlsx", вкладки kons1, kons3

Есть один файл-образец "K3Original.xlsx", в котором прописаны проверочные формулы. Формулы я хочу скопировать в каждую из 85 книг на соответствующий лист. Сейчас я делаю это так: открываю файл 01, применяю макрос (сохранен в PERSONAL.xlsx), сохраняю результат. Открываю файл 02, изменяю текст макроса с названием книги, применяю макрос, сохраняю результат. И так 85 раз.

Как мне использовать один и тот же макрос на всех файлах, не изменяя вручную имя файла в макросе? В моем представлении, я должен ввести переменную "название книги" (от 01 до 85), и зациклить макрос до тех пор, пока он не пройдет все имена файлов. Вот только как это сделать?

Пример кода для файла с названием 01:
Код
'KONS2

    Windows("K3Original.xlsx").Activate
    Sheets("kons2").Select
    Rows("25:29").Select
    Application.CutCopyMode = False
    Selection.Copy
    
    Windows("01.xlsx").Activate
    Sheets("kons2").Select
    Rows("25:29").Select
    ActiveSheet.Paste
    ActiveWindow.View = xlNormalView

'KONS3
        
    Windows("K3Original.xlsx").Activate
    Sheets("kons3").Select
    Columns("I:I").Select
    Application.CutCopyMode = False
    Selection.Copy
    
    Windows("01.xlsx").Activate
    Sheets("kons3").Select
    Columns("I:I").Select
    ActiveSheet.Paste
    ActiveWindow.View = xlNormalView
Изменено: Lyco - 12.04.2016 16:38:26
 
Перейти    
Анализ массива данных, Подскажите/помогите/сделайте за меня.
 
#
10.12.2013 10:45:46
У меня спортивный интерес, потому платить за решение я не буду.
Если бесплатное решение этой задачи никому не интересно - да будет похоронена эта тема.
 
Перейти    
Суммирование повторяющихся значений
 
#
09.12.2013 22:50:00
1. Данные - Удалить дубликаты.
2. СУММЕСЛИ.

Или я чего-то не понимаю?
 
Перейти    
Анализ массива данных, Подскажите/помогите/сделайте за меня.
 
#
09.12.2013 22:48:09
Добрый день.
Задача:
В таблице представлена статистика по услугам уборки снега за 2010-2011 гг. В колонке "Amount_DUE" отражены издержки на топливо в долларах. Проведите максимально полный анализ данных относительно возникших издержек. Дайте свои комментарии.
Файл 5361 строчка (минус 11 шапка), 51 столбец.
Ссылки на яндекс.диск:
1) Архив 366 КБ
http://yadi.sk/d/EgOrnhUvE48Ch
2) Оригинальный эксель-файл 2,92 МБ
http://yadi.sk/d/5X_7LOtVE48Ed

Контекст:
6 мес. назад я пробовался в крупную компанию на должность аналитика. В компании нужно было пройти тест - провести анализ данных. Тест я не прошел, обратной связи (здесь, правильно, здесь нет; надо было сделать еще это и это) не получил. В связи с чем и возник вопрос: может быть, кто-то поможет мне с анализом? Подскажет направления, в которых нужно было двигаться? Приложит свой анализ аналогичной задачи, который принят у вас в компании?

Меня хватило на:
- грузовики увеличили потребление топлива в 2011 к 2010 на 40%;
- максимальное количество потребленного топлива - у трака 7;
- максимальное количество потребленного топлива в разрезе компаний - у компании ЗXЫ (48,65%);
- потребность в топливе у компаний выросла от 20 до 38%.

Комментарии в задании нужно было дать на английском, но здесь в этом нет нужды. В файле оставил текст на русском и на английском. Мало ли, я ошибся при переводе.

Пользуюсь Excel 2010.
Изменено: Lyco - 16.12.2013 02:07:36
 
Перейти    
Страницы: 1
Наверх