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

Вход

Регистрация

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

 

= Мир MS Excel/Имена таблиц на листе - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Имена таблиц на листе (Макросы/Sub)
Имена таблиц на листе
Leprotto Дата: Четверг, 15.02.2018, 17:59 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 145
Репутация: 2 ±
Замечаний: 0% ±

Excel 2016
Всем привет! Друзья, подскажите как получить имена таблиц с активного листа?
В примере на первом листе одна таблица, на втором - две.
Имена, как вариант, можно записать в ячейки А1 и т.д.
К сообщению приложен файл: tabName.xlsm (15.6 Kb)
 
Ответить
СообщениеВсем привет! Друзья, подскажите как получить имена таблиц с активного листа?
В примере на первом листе одна таблица, на втором - две.
Имена, как вариант, можно записать в ячейки А1 и т.д.
Автор - Leprotto
Дата добавления - 15.02.2018 в 17:59
nilem Дата: Четверг, 15.02.2018, 18:24 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Leprotto, привет
попробуйте
[vba]
Код
Sub ttt()
Dim wsh As Worksheet, Lo As ListObject
For Each wsh In ThisWorkbook.Sheets
    For Each Lo In wsh.ListObjects
        wsh.Cells(Rows.Count, 1).End(xlUp)(2, 1) = Lo.Name
    Next Lo
Next wsh
End Sub
[/vba]

Яндекс.Деньги 4100159601573
 
Ответить
СообщениеLeprotto, привет
попробуйте
[vba]
Код
Sub ttt()
Dim wsh As Worksheet, Lo As ListObject
For Each wsh In ThisWorkbook.Sheets
    For Each Lo In wsh.ListObjects
        wsh.Cells(Rows.Count, 1).End(xlUp)(2, 1) = Lo.Name
    Next Lo
Next wsh
End Sub
[/vba]
Автор - nilem
Дата добавления - 15.02.2018 в 18:24
Leprotto Дата: Пятница, 16.02.2018, 10:55 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 145
Репутация: 2 ±
Замечаний: 0% ±

Excel 2016
nilem, Спасибо большое!
Поправил под себя для активного листа ))
[vba]
Код
Sub ttt2()
Dim Lo As ListObject
    For Each Lo In ActiveSheet.ListObjects
        ActiveSheet.Cells(Rows.Count, 1).End(xlUp)(2, 1) = Lo.Name
    Next Lo
End Sub
[/vba]
 
Ответить
Сообщениеnilem, Спасибо большое!
Поправил под себя для активного листа ))
[vba]
Код
Sub ttt2()
Dim Lo As ListObject
    For Each Lo In ActiveSheet.ListObjects
        ActiveSheet.Cells(Rows.Count, 1).End(xlUp)(2, 1) = Lo.Name
    Next Lo
End Sub
[/vba]
Автор - Leprotto
Дата добавления - 16.02.2018 в 10:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Имена таблиц на листе (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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