Создание листа в книге в виде шаблона

@Андреас-сус · Регистрация: 18.04.2014

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

Добрый день, форумчане!

По работе необходимо делать однообразные действия. Но чет никак сообразить не могу, да и язык(VBA) знаю так себе. Поэтому прошу помощи у Вас!

Есть некий список со значениями(допустим 10, но может быть и больше) на листе1, есть шаблон, в который нужно вставить каждое из значений. В итоге должна получится книга состоящая из Лист1(список значений) + 10 листов с шаблонами, в которых будут фигурировать(в одной из ячеек, например А2) значения из списка.

Пример того чего необходимо достичь:
Лист1 - Список значений
Лист2 - Шаблон со значением1 из А1 на Листе1, в ячейке А2
Лист3 - Шаблон со значением2 из А2 на Листе1, в ячейке А2
Лист4 - Шаблон со значением3 из А2 на Листе1, в ячейке А2

и т.д.

Примерное описание процесса:

Есть книга, в ней один лист, на котором в столбце А находится список. Необходим цикл, который бы перебирал этот список до конца(пустой ячейки) и останавливался. Действия такие, смотрим в первую ячейку из списка, если пустая заканчиваем макрос, если не пустая создаем новыq лист на котором будет шаблон под названием "rabota", копируем значение из списка на первом листе и вставляем в созданный лист в ячейку А2(например). Переходим к следующей ячейке из списка на первом листе, с проверкой на наличия в нем значения, для продолжения процесса, либо остановки.

Имя файла и листов неважно, потом это все распечатается и удалится

Надеюсь описал понятно.
Заранее огромнейшее спасибо!

shanemac51 · 18.04.2014, 14:23

Имя файла и листов неважно, потом это все распечатается и удалится

а нужны ли эти 10 листов
и где шаблон

например столбец а содержит 1 - 2 -3-4-5-6
создаем листы 1 ,2,3,4,5,6
а что туда пишем?

@Андреас-сус · 18.04.2014, 14:37 **[ТС]**

Сообщение от shanemac51

Имя файла и листов неважно, потом это все распечатается и удалится
а нужны ли эти 10 листов
и где шаблон
например столбец а содержит 1 - 2 -3-4-5-6
создаем листы 1 ,2,3,4,5,6
а что туда пишем?

Листы нужны, для беглой проверки.

Шаблон стандартный, просто не знаю как "программно" его вставить на новый лист, либо добавить его в книгу в виде нового листа.

Пример того чего необходимо достичь:
Лист1 - Список значений
Лист2 - Шаблон"rabota" со значением1 из А1 на Листе1, в ячейке B2
Лист3 - Шаблон"rabota" со значением2 из А2 на Листе1, в ячейке B2
Лист4 - Шаблон"rabota" со значением3 из А3 на Листе1, в ячейке B2

и т.д.

@Андреас-сус · 18.04.2014, 14:40 **[ТС]**

Пример

@Казанский · 18.04.2014, 14:42

Пример не смотрел

Visual Basic

Sub bb()
Const T_NAME = "шаблон" 'имя листа-шаблона, он может быть скрыт
Dim tVis, tSh As Object, x
Set tSh = Worksheets(T_NAME)
tVis = tSh.Visible
tSh.Visible = xlSheetVisible
For Each x In Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value
  tSh.Copy after:=ActiveSheet
  Range("A2") = x
Next
tSh.Visible = tVis
End Sub

@Андреас-сус · 18.04.2014, 14:58 **[ТС]**

Сообщение от Казанский

Пример не смотрел

Спасибо за помощь.

Скрипт не работает, пишет "Subscript out of range"

toiai · 18.04.2014, 15:04

Попробуй вставить 7-й строкой:

Visual Basic

1	tSh.Activate

и заменить 7 строку на:

Visual Basic

1	For Each x In tSh.Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value

@Казанский · 18.04.2014, 15:06

toiai, не то.

Сообщение от Андреас-сус

пишет "Subscript out of range"

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

@Андреас-сус · 18.04.2014, 15:25 **[ТС]**

Сообщение от Казанский

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

Видимо косяк с шаблоном какой то.

упрощенная схема без шаблона:

Есть книга, в ней один лист, на котором в столбце А находится список и в диапазоне С1-H10 находится форма(шаблон). Необходим цикл, который бы перебирал этот список до конца(пустой ячейки) и останавливался. Действия такие, смотрим в первую ячейку из списка, если пустая заканчиваем макрос, если не пустая создаем новый лист на который копируем форму(шаблон) из первого листа(диапазон С1-H10), копируем значение из списка на первом листе и вставляем в созданный лист в ячейку А2(например). Переходим к следующей ячейке из списка на первом листе, с проверкой на наличия в нем значения, для продолжения процесса, либо остановки.

@Казанский · 18.04.2014, 15:29

Какой косяк? Я поменял имя шаблона на "Лист2" - и пожалуйста!

@all_angarsk · 18.04.2014, 15:38

На листе 2 записи. Лист 1 шаблон.

Создание листа в книге в виде шаблона

Решение

Решение

@Андреас-сус 0 / 0 / 0 Регистрация: 18.04.2014 Сообщений: 5
		1
	Создание листа в книге в виде шаблона 18.04.2014, 14:13. Показов 2471. Ответов 10 Метки нет (Все метки) Добрый день, форумчане! По работе необходимо делать однообразные действия. Но чет никак сообразить не могу, да и язык(VBA) знаю так себе. Поэтому прошу помощи у Вас! Есть некий список со значениями(допустим 10, но может быть и больше) на листе1, есть шаблон, в который нужно вставить каждое из значений. В итоге должна получится книга состоящая из Лист1(список значений) + 10 листов с шаблонами, в которых будут фигурировать(в одной из ячеек, например А2) значения из списка. Пример того чего необходимо достичь: Лист1 - Список значений Лист2 - Шаблон со значением1 из А1 на Листе1, в ячейке А2 Лист3 - Шаблон со значением2 из А2 на Листе1, в ячейке А2 Лист4 - Шаблон со значением3 из А2 на Листе1, в ячейке А2 и т.д. Примерное описание процесса: Есть книга, в ней один лист, на котором в столбце А находится список. Необходим цикл, который бы перебирал этот список до конца(пустой ячейки) и останавливался. Действия такие, смотрим в первую ячейку из списка, если пустая заканчиваем макрос, если не пустая создаем новыq лист на котором будет шаблон под названием "rabota", копируем значение из списка на первом листе и вставляем в созданный лист в ячейку А2(например). Переходим к следующей ячейке из списка на первом листе, с проверкой на наличия в нем значения, для продолжения процесса, либо остановки. Имя файла и листов неважно, потом это все распечатается и удалится Надеюсь описал понятно. Заранее огромнейшее спасибо! 0

shanemac51 Модератор 11955 / 4823 / 779 Регистрация: 07.08.2010 Сообщений: 14,126 Записей в блоге: 4
	18.04.2014, 14:23	2
	Имя файла и листов неважно, потом это все распечатается и удалится а нужны ли эти 10 листов и где шаблон например столбец а содержит 1 - 2 -3-4-5-6 создаем листы 1 ,2,3,4,5,6 а что туда пишем? 0

@Андреас-сус 0 / 0 / 0 Регистрация: 18.04.2014 Сообщений: 5
	18.04.2014, 14:37 [ТС]	3
	Сообщение от shanemac51 Имя файла и листов неважно, потом это все распечатается и удалится а нужны ли эти 10 листов и где шаблон например столбец а содержит 1 - 2 -3-4-5-6 создаем листы 1 ,2,3,4,5,6 а что туда пишем? Листы нужны, для беглой проверки. Шаблон стандартный, просто не знаю как "программно" его вставить на новый лист, либо добавить его в книгу в виде нового листа. Пример того чего необходимо достичь: Лист1 - Список значений Лист2 - Шаблон"rabota" со значением1 из А1 на Листе1, в ячейке B2 Лист3 - Шаблон"rabota" со значением2 из А2 на Листе1, в ячейке B2 Лист4 - Шаблон"rabota" со значением3 из А3 на Листе1, в ячейке B2 и т.д. 0

@Андреас-сус 0 / 0 / 0 Регистрация: 18.04.2014 Сообщений: 5
	18.04.2014, 14:58 [ТС]	6
	Сообщение от Казанский Пример не смотрел Спасибо за помощь. Скрипт не работает, пишет "Subscript out of range" 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	18.04.2014, 15:06	8
	toiai, не то. Сообщение от Андреас-сус пишет "Subscript out of range" 2-ю строку кода внимательно прочитайте. 1

@Андреас-сус 0 / 0 / 0 Регистрация: 18.04.2014 Сообщений: 5
	18.04.2014, 15:25 [ТС]	9
	Сообщение от Казанский 2-ю строку кода внимательно прочитайте. Видимо косяк с шаблоном какой то. упрощенная схема без шаблона: Есть книга, в ней один лист, на котором в столбце А находится список и в диапазоне С1-H10 находится форма(шаблон). Необходим цикл, который бы перебирал этот список до конца(пустой ячейки) и останавливался. Действия такие, смотрим в первую ячейку из списка, если пустая заканчиваем макрос, если не пустая создаем новый лист на который копируем форму(шаблон) из первого листа(диапазон С1-H10), копируем значение из списка на первом листе и вставляем в созданный лист в ячейку А2(например). Переходим к следующей ячейке из списка на первом листе, с проверкой на наличия в нем значения, для продолжения процесса, либо остановки. 0

	18.04.2014, 15:38

Опции темы