Из базы данных сделать отдельные отчеты

@volodia71 · Регистрация: 04.03.2016

Author24 — интернет-сервис помощи студентам

Добрый день! Подскажите, пожалуйста, о велики программисты vba.
Имеется ЛИСТ1, в котором вся информация. Нужно создать отчеты (в этой же книге) в екселе, причем данные из ЛИСТА1 первой строки соответствуют данным для первого отчета, вторая строка из ЛИСТА1 - для второго отчета, причем адреса для вставки одинаковые, меняется лишь номер строки. Нужно сделать где-то 2000 отчетов... вручную смог набрать только 100. Спасибо!

@snipe · 04.03.2016, 05:45

вам надо просто это один раз показать

Добавлено через 50 секунд
все это делается через автоматизацию - тут даже vba не надо

@volodia71 · 04.03.2016, 05:48 **[ТС]**

можете рассказать, каким образом? Спасибо!

@snipe · 04.03.2016, 05:56

рассказывать долго
наберите в справке excel
Создание и печать почтовых наклеек для списка адресов в Microsoft Excel

@volodia71 · 04.03.2016, 05:57 **[ТС]**

укажите, пожалуйста, материал, где можно с автоматизацией разобраться

@snipe · 04.03.2016, 05:59

данные выгрузятся в ворд

Добавлено через 1 минуту
если это не устраивает - то давайте писать макрос
вот только для написания макроса нужны изначальные данные - т.е. файлик

@volodia71 · 04.03.2016, 06:07 **[ТС]**

Snipe, спасибо за помощь!!!!

@volodia71 · 04.03.2016, 06:29 **[ТС]**

посмотрел про автоматизацию... не подходит. Если можно, помогите с созданием макроса

@snipe · 04.03.2016, 06:52

есть маленький затык
количество листов ограничено
надо посмотреть

Добавлено через 1 минуту
Число листов в книге

Ограничено объемом доступной памяти (значение по умолчанию — 3 листа)

@volodia71 · 04.03.2016, 06:57 **[ТС]**

думал записать цикл на добавление листа. вот макрос:

Sheets("Лист3").Copy After:=Sheets(3)
Sheets("Лист3").Select

только как циклом сделать, а не 2000 раз писать не разобрался.

и сегодня 2000 раз копировал этот макрос на создание пустых страниц. 2000 листов будет, а сколько максимум - не знаю

@snipe · 04.03.2016, 07:18

Ща получу предупреждение
загляните в мой профиль

Добавлено через 1 минуту
просто много вопросов

Добавлено через 18 минут
а можно несколько отчетов на один лист запихать

@volodia71 · 04.03.2016, 07:19 **[ТС]**

простите, но нельзя

сам лист, где база данных вся, можно разбить на несколько книг

@snipe · 04.03.2016, 07:22

volodia71, меня надо носом натыкать какие данные откуда берутся
(просто красных полей у вас больше чем данных в табле)

@volodia71 · 04.03.2016, 07:37 **[ТС]**

извините... вот всё расписано...

@snipe · 04.03.2016, 07:40

вот эти зеленые стрелочки и напрягают

@volodia71 · 04.03.2016, 07:43 **[ТС]**

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

@snipe · 04.03.2016, 07:51

более 2000 шт

Добавлено через 32 секунды
проще их в базу занести а потом по отчетам разнести

Добавлено через 42 секунды
можно - случайное число в диапазоне сделать

Добавлено через 6 минут
еще вопрос
а можно в несколько файлов разнести отчеты
ну допустим по 100 штук в книге

@volodia71 · 04.03.2016, 07:51 **[ТС]**

не мучайтесь, пожалуйста, с этим рендомом, ротдомом) изменю вручную

конечно можно... это мелочи жизни

@snipe · 04.03.2016, 07:53

это не сложно

Добавлено через 1 минуту
а можно в несколько файлов разнести отчеты
ну допустим по 100 штук в книге

@volodia71 · 04.03.2016, 08:09 **[ТС]**

отчеты разнести по 100 штук в книге можно.. это мелочи жизни

@snipe 4064 / 1445 / 399 Регистрация: 07.08.2013 Сообщений: 3,617
	04.03.2016, 07:18	11
	Ща получу предупреждение загляните в мой профиль Добавлено через 1 минуту просто много вопросов Добавлено через 18 минут а можно несколько отчетов на один лист запихать 1

@volodia71 0 / 0 / 0 Регистрация: 04.03.2016 Сообщений: 24
	04.03.2016, 07:19 [ТС]	12
	простите, но нельзя сам лист, где база данных вся, можно разбить на несколько книг 0

@snipe 4064 / 1445 / 399 Регистрация: 07.08.2013 Сообщений: 3,617
	04.03.2016, 07:22	13
	Сообщение было отмечено volodia71 как решение Решение volodia71, меня надо носом натыкать какие данные откуда берутся (просто красных полей у вас больше чем данных в табле) 1

@volodia71 0 / 0 / 0 Регистрация: 04.03.2016 Сообщений: 24
	04.03.2016, 07:37 [ТС]	14
	извините... вот всё расписано... Миниатюры 0

@snipe 4064 / 1445 / 399 Регистрация: 07.08.2013 Сообщений: 3,617
	04.03.2016, 07:40	15
	вот эти зеленые стрелочки и напрягают 0

@volodia71 0 / 0 / 0 Регистрация: 04.03.2016 Сообщений: 24
		1
	Из базы данных сделать отдельные отчеты 04.03.2016, 05:37. Показов 1514. Ответов 22 Метки нет (Все метки) Добрый день! Подскажите, пожалуйста, о велики программисты vba. Имеется ЛИСТ1, в котором вся информация. Нужно создать отчеты (в этой же книге) в екселе, причем данные из ЛИСТА1 первой строки соответствуют данным для первого отчета, вторая строка из ЛИСТА1 - для второго отчета, причем адреса для вставки одинаковые, меняется лишь номер строки. Нужно сделать где-то 2000 отчетов... вручную смог набрать только 100. Спасибо! Миниатюры 0

@snipe 4064 / 1445 / 399 Регистрация: 07.08.2013 Сообщений: 3,617
	04.03.2016, 05:45	2
	вам надо просто это один раз показать Добавлено через 50 секунд все это делается через автоматизацию - тут даже vba не надо 0

@volodia71 0 / 0 / 0 Регистрация: 04.03.2016 Сообщений: 24
	04.03.2016, 05:48 [ТС]	3
	можете рассказать, каким образом? Спасибо! 0

@snipe 4064 / 1445 / 399 Регистрация: 07.08.2013 Сообщений: 3,617
	04.03.2016, 05:56	4
	рассказывать долго наберите в справке excel Создание и печать почтовых наклеек для списка адресов в Microsoft Excel 0

@volodia71 0 / 0 / 0 Регистрация: 04.03.2016 Сообщений: 24
	04.03.2016, 05:57 [ТС]	5
	укажите, пожалуйста, материал, где можно с автоматизацией разобраться 0

@snipe 4064 / 1445 / 399 Регистрация: 07.08.2013 Сообщений: 3,617
	04.03.2016, 05:59	6
	данные выгрузятся в ворд Добавлено через 1 минуту если это не устраивает - то давайте писать макрос вот только для написания макроса нужны изначальные данные - т.е. файлик 0

@volodia71 0 / 0 / 0 Регистрация: 04.03.2016 Сообщений: 24
	04.03.2016, 06:29 [ТС]	8
	посмотрел про автоматизацию... не подходит. Если можно, помогите с созданием макроса 0

@snipe 4064 / 1445 / 399 Регистрация: 07.08.2013 Сообщений: 3,617
	04.03.2016, 06:52	9
	есть маленький затык количество листов ограничено надо посмотреть Добавлено через 1 минуту Число листов в книге Ограничено объемом доступной памяти (значение по умолчанию — 3 листа) 1

@volodia71 0 / 0 / 0 Регистрация: 04.03.2016 Сообщений: 24
	04.03.2016, 06:57 [ТС]	10
	думал записать цикл на добавление листа. вот макрос: Sheets("Лист3").Copy After:=Sheets(3) Sheets("Лист3").Select только как циклом сделать, а не 2000 раз писать не разобрался. и сегодня 2000 раз копировал этот макрос на создание пустых страниц. 2000 листов будет, а сколько максимум - не знаю 0

@volodia71 0 / 0 / 0 Регистрация: 04.03.2016 Сообщений: 24
	04.03.2016, 07:43 [ТС]	16
	я их вручную изменю, не мучайтесь. мне бы только саму базу вбить в отчеты. читал про рендом в екселе - абалдевал, что и так можно сделать 0

	04.03.2016, 08:09

@snipe 4064 / 1445 / 399 Регистрация: 07.08.2013 Сообщений: 3,617
	04.03.2016, 07:51	17
	более 2000 шт Добавлено через 32 секунды проще их в базу занести а потом по отчетам разнести Добавлено через 42 секунды можно - случайное число в диапазоне сделать Добавлено через 6 минут еще вопрос а можно в несколько файлов разнести отчеты ну допустим по 100 штук в книге 0

@volodia71 0 / 0 / 0 Регистрация: 04.03.2016 Сообщений: 24
	04.03.2016, 07:51 [ТС]	18
	не мучайтесь, пожалуйста, с этим рендомом, ротдомом) изменю вручную конечно можно... это мелочи жизни 0

@snipe 4064 / 1445 / 399 Регистрация: 07.08.2013 Сообщений: 3,617
	04.03.2016, 07:53	19
	это не сложно Добавлено через 1 минуту а можно в несколько файлов разнести отчеты ну допустим по 100 штук в книге 1

@volodia71 0 / 0 / 0 Регистрация: 04.03.2016 Сообщений: 24
	04.03.2016, 08:09 [ТС]	20
	отчеты разнести по 100 штук в книге можно.. это мелочи жизни 0

Из базы данных сделать отдельные отчеты

Решение