Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Создание Листов по Шаблону
 
#1
13.01.2015 14:42:03
Добрый день!
Есть файл (во вложении). Как создать n листов с названиями из диапазона В5:В10 по шаблону Листа 2?
Изменено: Zubar - 14.01.2015 11:02:20
 
 
 
#2
13.01.2015 14:53:38
Код
Sub jjj()
    Set sh_pattern = Sheets("Лист2")
    Set rng_sh_names = [Лист1].Range([b5], [b5].End(xlDown))
    Application.ScreenUpdating = False
    For Each cl In rng_sh_names
        sh_pattern.Copy After:=Sheets(Sheets.Count)
        With Sheets(Sheets.Count)
            .Name = cl.Value
            .[a1] = cl.Value
        End With
    Next cl
End Sub
Изменено: JayBhagavan - 13.01.2015 15:37:25

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#3
13.01.2015 15:20:10
Спасибо!
Еще один вопрос: Как сделать так, что бы создавалось именно то количество листов, сколько строчек заполнено в колонке B? Т.е если заполнен диапазон B5:B10,то создавалось 6 листов, если с В5:В9, то 5 листов?
Буду признателен за ответ.
 
 
 
#4
13.01.2015 15:23:47
Совсем забыл((((
И что бы в создаваемых листах в ячейке A1 вводилось наименование листа (т.е тоже, что и в наименовании листа).
Спасибо за понимание.
 
 
 
#5
13.01.2015 15:37:37
Скорректировал.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#6
13.01.2015 15:42:38
Покажете?
 
 
 
#7
13.01.2015 15:45:11
Zubar, смотрите выше JayBhagavan, во 2 посте скорректировал
Лень двигатель прогресса, доказано!!!
 
 
 
#8
13.01.2015 16:32:16
Почти достиг апофеоза)
вопрос удален
Excel рулит.
 
 
 
#9
13.01.2015 16:33:29
Excel рулит. Правила на форуме рулят. Вопрос не по теме.
 
 
 
#10
14.01.2015 11:03:18
А если необходимо, что бы листы создавались именно между Листом 3 и Листом 4? Такое возможно?
 
 
 
#11
14.01.2015 11:12:16
Zubar, можно.
Код
Sub jjj()
    Set sh_pattern = [Лист2]
    Set rng_sh_names = [Лист1].Range([b5], [b5].End(xlDown))
    Application.ScreenUpdating = False
    For Each cl In rng_sh_names
        sh_pattern.Copy After:=Sheets([Лист3].Index)
        With Sheets([Лист3].Index + 1)
            .Name = cl.Value
            .[a1] = cl.Value
        End With
    Next cl
End Sub

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#12
14.01.2015 11:15:06
After:=Sheets(Sheets.Count)
заменить на
After:=Sheets(3)
 
 
 
Страницы: 1
Наверх