Работа с шаблонами

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

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

Здравствуйте, уважаемые программисты!
Просьба к Вам будет малюпасенькая)
Имеется БАЗА ДАННЫХ, на основе которой делаются отдельные отчеты из неё. Ниже код. Но он создаёт новые листы, а необходимо данные отчеты вставлять в шаблон, т.е. имеется некий Шаблонный_Лист, расположенный в этой же книге, на который нужно ссылаться. Подскажите, пожалуйста, как в коде ниже это прописать. Спасибо Вам заранее!! Не раз выручали!!!

@Святой НякаЛайк · 05.03.2016, 10:19

Visual Basic

1
2
3

with worksheet("Шаблонный_Лист")
   '......
end with

Добавлено через 34 минуты

Visual Basic

Sub shablone()
    Set NewSheet = Worksheets.Add
    NewSheet.Name = "Шаблонный_Лист"
    With Sheets("Шаблонный_Лист")
        [b2] = .Cells(r, 1)
        [c3] = .Cells(r, 2)
        [d4] = .Cells(r, 3)
    End With
End Sub

Что касается почему пустые листы в коде создаются:

Visual Basic

For r = 1 To .UsedRange.Rows.Count
Sheets.Add
[b2] = .Cells(r, 1)
[c3] = .Cells(r, 2)
[d4] = .Cells(r, 3)
Next

Вот здесь у вас цикл, повторяется 4 раза и внутри цикла создается лист(соответственно тоже 4 раза). Нужно вынести создание листа за рамки цикла, примерно так:

Visual Basic

Sheets.Add
For r = 1 To .UsedRange.Rows.Count
[b2] = .Cells(r, 1)
[c3] = .Cells(r, 2)
[d4] = .Cells(r, 3)
Next

~~Shersh~~ · 05.03.2016, 15:13

volodia71, Вы хоть раз F1 нажали?

@volodia71 0 / 0 / 0 Регистрация: 04.03.2016 Сообщений: 24
		1
	Работа с шаблонами 05.03.2016, 06:48. Показов 726. Ответов 2 Метки нет (Все метки) Здравствуйте, уважаемые программисты! Просьба к Вам будет малюпасенькая) Имеется БАЗА ДАННЫХ, на основе которой делаются отдельные отчеты из неё. Ниже код. Но он создаёт новые листы, а необходимо данные отчеты вставлять в шаблон, т.е. имеется некий Шаблонный_Лист, расположенный в этой же книге, на который нужно ссылаться. Подскажите, пожалуйста, как в коде ниже это прописать. Спасибо Вам заранее!! Не раз выручали!!! Миниатюры 0

~~Shersh~~ Заблокирован
	05.03.2016, 15:13	3
	volodia71, Вы хоть раз F1 нажали? Миниатюры 0

Опции темы