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

Вход

Регистрация

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

 

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

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

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

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

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


Сообщение отредактировал WaMii - Суббота, 31.08.2019, 12:31
 
Ответить
СообщениеДобрый день!

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

Буду очень благодарна за помощь в написании макроса. Спасибо!
Автор - WaMii
Дата добавления - 31.08.2019 в 12:11
Pelena Дата: Воскресенье, 01.09.2019, 07:58 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19184
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
Если точно по заданию, то можно так
[vba]
Код
Public Sub NewBook()
    Dim sh As Worksheet, i&
    With Workbooks.Add
    i = 3
        For Each sh In ThisWorkbook.Sheets
            .Sheets(1).Cells(i, 1) = sh.Name
            i = i + 1
        Next sh
    End With
End Sub
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Если точно по заданию, то можно так
[vba]
Код
Public Sub NewBook()
    Dim sh As Worksheet, i&
    With Workbooks.Add
    i = 3
        For Each sh In ThisWorkbook.Sheets
            .Sheets(1).Cells(i, 1) = sh.Name
            i = i + 1
        Next sh
    End With
End Sub
[/vba]
Автор - Pelena
Дата добавления - 01.09.2019 в 07:58
WaMii Дата: Вторник, 03.09.2019, 13:45 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, Спасибо, это то что нужно! yes
 
Ответить
СообщениеPelena, Спасибо, это то что нужно! yes
Автор - WaMii
Дата добавления - 03.09.2019 в 13:45
WaMii Дата: Вторник, 03.09.2019, 15:38 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena,
единственный момент, лист "Главная", на котором находятся кнопки - тоже выводится в список. Можно ли как-нибудь исключить его при выводе списка листов? :)


Сообщение отредактировал WaMii - Вторник, 03.09.2019, 15:38
 
Ответить
СообщениеPelena,
единственный момент, лист "Главная", на котором находятся кнопки - тоже выводится в список. Можно ли как-нибудь исключить его при выводе списка листов? :)
Автор - WaMii
Дата добавления - 03.09.2019 в 15:38
Pelena Дата: Вторник, 03.09.2019, 16:53 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19184
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
[vba]
Код
Public Sub NewBook()
    Dim sh As Worksheet, i&
    With Workbooks.Add
    i = 3
        For Each sh In ThisWorkbook.Sheets
            if sh.Name <> ActiveSheet.Name Then
            .Sheets(1).Cells(i, 1) = sh.Name
            i = i + 1
            End If
        Next sh
    End With
End Sub
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение[vba]
Код
Public Sub NewBook()
    Dim sh As Worksheet, i&
    With Workbooks.Add
    i = 3
        For Each sh In ThisWorkbook.Sheets
            if sh.Name <> ActiveSheet.Name Then
            .Sheets(1).Cells(i, 1) = sh.Name
            i = i + 1
            End If
        Next sh
    End With
End Sub
[/vba]
Автор - Pelena
Дата добавления - 03.09.2019 в 16:53
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Наименования листов в указанный диапазон ячеек (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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