Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Наименования листов из диапазона ячеек (строки) - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Наименования листов из диапазона ячеек (строки) (Макросы/Sub)
Наименования листов из диапазона ячеек (строки)
WaMii Дата: Вторник, 03.09.2019, 21:44 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день!

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

При этом в новой книге были созданы листы, названия которых содержит заданный диапазон ячеек исходной книги (B1-E1). Как сделать по столбцу это - я знаю, но со строкой возникли трудности

Приложен документ.

Буду очень благодарна за помощь в написании макроса. Спасибо!
К сообщению приложен файл: 8678474.xlsm(22.4 Kb)
 
Ответить
СообщениеДобрый день!

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

При этом в новой книге были созданы листы, названия которых содержит заданный диапазон ячеек исходной книги (B1-E1). Как сделать по столбцу это - я знаю, но со строкой возникли трудности

Приложен документ.

Буду очень благодарна за помощь в написании макроса. Спасибо!

Автор - WaMii
Дата добавления - 03.09.2019 в 21:44
Pelena Дата: Среда, 04.09.2019, 08:15 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14474
Репутация: 3172 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
[vba]
Код
Sub Макрос()
    Dim wb As Workbook, x, NameSh, i&, sh As Worksheet
    Application.ScreenUpdating = False
    NameSh = ThisWorkbook.Sheets(2).Range("B1:E1").Value    'имена листов в новой книге
    Workbooks.Add
    Set wb = ActiveWorkbook
    For i = 1 To UBound(NameSh, 2)
        If i > wb.Worksheets.Count Then Worksheets.Add After:=wb.Sheets(i - 1)
        wb.Sheets(i).Name = NameSh(1, i)
    Next i
    Application.ScreenUpdating = True
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
[vba]
Код
Sub Макрос()
    Dim wb As Workbook, x, NameSh, i&, sh As Worksheet
    Application.ScreenUpdating = False
    NameSh = ThisWorkbook.Sheets(2).Range("B1:E1").Value    'имена листов в новой книге
    Workbooks.Add
    Set wb = ActiveWorkbook
    For i = 1 To UBound(NameSh, 2)
        If i > wb.Worksheets.Count Then Worksheets.Add After:=wb.Sheets(i - 1)
        wb.Sheets(i).Name = NameSh(1, i)
    Next i
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Pelena
Дата добавления - 04.09.2019 в 08:15
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Наименования листов из диапазона ячеек (строки) (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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