заполнение данными с созданием нового документа - Мир MS Excel

Регистрация

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

= Мир MS Excel/заполнение данными с созданием нового документа - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » заполнение данными с созданием нового документа (Макросы/Sub)

заполнение данными с созданием нового документа

Дата: Четверг, 05.11.2015, 13:59 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

прикладываю 2 файла, необходимо что бы в файле №2 в поля отмеченные красным вставлялись данные из таблицы №1 (тоже красным отмечены), с созданием нового документа в определенной папке (если есть возможность то с поочередным названием).
помогите найти решение, я дуб-дубом в этом деле.... если есть вопросы пишите отвечу!!!!!
просто мне необходимо более 23 тысяч таких файлов сделать, сами понимаете это ппц как долго!

К сообщению приложен файл: _1.xls (95.5 Kb) · _2.xls (99.0 Kb)

Ответить

Дата: Четверг, 05.11.2015, 17:53 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 190

Репутация: 37 ±

Замечаний: 0% ±

Excel 2010

tarasMen, Вам нужно бланки напечатать
Если да, то есть вариант "Слияние данных MS Excel и MS Word"

Ответить

Дата: Пятница, 06.11.2015, 09:01 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

не могу найти нигде в моей версии екселя - поле слияние..... чуш ведь какая то но не могу

Вот.... у меня есть БД в акцессе, может из него как то получится?

Сообщение отредактировал tarasMen - Пятница, 06.11.2015, 09:10

Ответить

Дата: Пятница, 06.11.2015, 09:13 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

тем более у меня ж не в ворде тебличка а в екселе!!!!! если внимательно посмотреть, то можно увидеть что у меня оба файла в екселе

Сообщение отредактировал tarasMen - Пятница, 06.11.2015, 09:14

Ответить

Дата: Пятница, 06.11.2015, 09:28 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 190

Репутация: 37 ±

Замечаний: 0% ±

Excel 2010

Цитата tarasMen, 06.11.2015 в 09:13, в сообщении № 4

можно увидеть что у меня оба файла в екселе

Это очевидно
Но так же очевидно - можно создать такую же таблицу в Word

Ответить

Дата: Пятница, 06.11.2015, 09:42 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

подругому никак? просто я повторюсь - НЕ СЕЛЕН в этой теме!

Ответить

Дата: Пятница, 06.11.2015, 10:04 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата tarasMen, 05.11.2015 в 13:59, в сообщении № 1

23 тысяч таких файлов сделать, сами понимаете это ппц как долго!

Даже если по 100 файлов в день делать, половины необходимого на это времени вполне хватит на изучение VBA.

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Пятница, 06.11.2015, 10:55 | Сообщение № 8

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Цитата tarasMen, 05.11.2015 в 13:59, в сообщении № 1

необходимо более 23 тысяч таких файлов сделать

А я вот не понял, а зачем их делать 23 тыс.?

Есть единый бланк. Вносим адрес и др. данные, печатаем бланк, вносим следующий.

Ответить

Дата: Пятница, 06.11.2015, 12:53 | Сообщение № 9

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Это же 9 коробок бумаги. Бедный принтер!

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Пятница, 06.11.2015, 13:39 | Сообщение № 10

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Цитата Wasilic, 06.11.2015 в 10:55, в сообщении № 8

А я вот не понял, а зачем их делать 23 тыс.?
Есть единый бланк. Вносим адрес и др. данные, печатаем бланк, вносим следующий.

есть 23 тысячи квартир, на каждую из них нужен запрос в росреестр.... вот отсюда и необходимость!!!!!

Ответить

Дата: Пятница, 06.11.2015, 13:40 | Сообщение № 11

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Цитата RAN, 06.11.2015 в 12:53, в сообщении № 9

Это же 9 коробок бумаги. Бедный принтер!

ну это не принтер будет делать а типография=))) я просто на флешке отдам файлы и все

Ответить

Дата: Пятница, 06.11.2015, 14:37 | Сообщение № 12

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Тут ничего сложного нет - простенький макрос справится

[vba]

Код

Sub Макрос1()
    Dim awb   As Workbook, fn$, i&
    Set awb = ThisWorkbook
    Application.ScreenUpdating = False
    For i = 2 To 10
        awb.Sheets(1).[l1] = i: Calculate: DoEvents
        fn = awb.Sheets(1).[n1]
        Sheets("стр_1_6").Copy
        Cells.Copy
        Cells.PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        ActiveWorkbook.SaveAs Filename:=fn
        ActiveWorkbook.Close
    Next
    Application.ScreenUpdating = True
End Sub

[/vba]
Нужно только заполнить правильно 2-й лист (см. пример в зеленых ячейках), с использованием формулы:

Код

=ИНДЕКС(TDSheet!A:J; TDSheet!$L$1;5)

А дальше просто меняем цифру в TDSheet!$L$1 - и форма перезаполняется

Потом сохраняем этот лист в отдельную книгу - убиваем формулы - сохраняем эту книгу в нужную папку с нужным именем yes

yes

Имя можете тоже собрать формулой - с такой же ссылкой - тогда будет проще редактировать. Например:

Код

="D:\Файл " &ИНДЕКС(TDSheet!A:J;$L$1;3) & "_"&ИНДЕКС(TDSheet!A:J;$L$1;4)&"_"&ИНДЕКС(TDSheet!A:J;$L$1;5)&".xlsx"

К сообщению приложен файл: 3212188.xls (87.0 Kb)

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Пятница, 06.11.2015, 14:44

Ответить

Дата: Пятница, 06.11.2015, 15:19 | Сообщение № 13

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

товарищ славик=))) это ппц для меня китайский язык честно!!!!! если можете, распишите подробнее, буду признателен!!!!!!!!

Ответить

Дата: Пятница, 06.11.2015, 15:54 | Сообщение № 14

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата tarasMen, 06.11.2015 в 15:19, в сообщении № 13

если можете, распишите подробнее, буду признателен

Что именно не понятно?
принцип работы, или сами формулы?
Если формулы - тут все просто
сцепляем заготовки текста с ячейками из строки указанной на 1-м листе в зеленой ячейке.
текст сцепляется знаком &
Сама формула :

Код

=ИНДЕКС(TDSheet!A:J; TDSheet!$L$1;5)

- значит что берется значение из листа TDSheet - в колонках A:J из строки указанной в TDSheet!$L$1 и из 5- го столбца

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Пятница, 06.11.2015, 15:55

Ответить

Дата: Пятница, 06.11.2015, 15:57 | Сообщение № 15

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

ну вот честно вообще не понятно ниче=)))

пожалуйста как ребенку разжуйте!

Ответить

Дата: Пятница, 06.11.2015, 16:06 | Сообщение № 16

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата tarasMen, 06.11.2015 в 15:57, в сообщении № 15

ну вот честно вообще не понятно ниче=)))

Вы файл смотрели? кнопку нажимали?
Что именно не ясно - в файле измененные ячейки я выделил зеленым цветом.
ячейка L1 - ключевая - макрос изменяет значение в этой ячейке - и происходит пересчет значений - форма заполняется данными из строки - которая указана в этой ячейке
Полное имя файла, который будет создан - также формульно сразу меняется в ячейке N1 - а потом макрос просто копирует 2-й лист в новую книгу, удаляет формулы и сохраняет эту книгу с именем из N1
Вроде все

Иногда все проще чем кажется с первого взгляда.

Ответить

Дата: Пятница, 06.11.2015, 16:18 | Сообщение № 17

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 190

Репутация: 37 ±

Замечаний: 0% ±

Excel 2010

tarasMen, Сделал по ТЗ
Все управление на листе "стр_1_6"

К сообщению приложен файл: 2919910.xls (79.0 Kb)

Сообщение отредактировал miver - Пятница, 06.11.2015, 16:26

Ответить

Дата: Пятница, 06.11.2015, 17:07 | Сообщение № 18

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Цитата SLAVICK, 06.11.2015 в 16:06, в сообщении № 16

Вы файл смотрели? кнопку нажимали?

да нажимал, пишет чтото там бейсик - no script

К сообщению приложен файл: 8692424.bmp (66.6 Kb)

Сообщение отредактировал tarasMen - Пятница, 06.11.2015, 17:12

Ответить

Дата: Пятница, 06.11.2015, 17:15 | Сообщение № 19

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

tarasMen, у Вас что, OpenOffice?

ЯД: 410013299366744 WM: R193491431804

Ответить

Дата: Пятница, 06.11.2015, 18:03 | Сообщение № 20

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Есть смутные подозрения, что там не только ОО, там еще и винды нема.

Либра 3.5 свободно кушает оба файла ( SLAVICK и miver )

Быть или не быть, вот в чем загвоздка!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » заполнение данными с созданием нового документа (Макросы/Sub)

Страница 1 из 1
1

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