Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос для формирование списка названий таблиц с разных листов
 
#1
04.10.2018 09:16:11
Здравствуйте. Подскажите плз как написать макрос. Нужно на одном листе создать список с названиями всех таблиц, которые на других листах.
Когда будут меняться названия и макрос запускаться заново, сам список будет обновляться с корректными (новыми) названиями.
Сам список на листе 1 в столбце "А".
Спасибо.
 
 
 
#2
04.10.2018 09:20:02
Названия Ваших таблиц всегда в ячейке A1 определенного листа? Это 'Умные таблицы'?  
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
04.10.2018 09:21:53
Да! Всегда ссылаются на определенную ячейку и далее список всех названий. В данном случае А1.
Да, это "Умные таблицы"  :)  
 
 
 
#4
04.10.2018 09:29:25
Цитата
AlexBosenko написал:
это "Умные таблицы"
Вариант
Код
Sub test()
Dim freerow As Long
Dim listobj As ListObject
freerow = 2
For i = 2 To Worksheets.Count
    For Each listobj In Sheets(i).ListObjects
    Sheets(1).Cells(freerow, 1) = listobj.Name
    freerow = freerow + 1
    Next
Next i
End Sub
 
 
 
#5
04.10.2018 09:34:38
Это не полный макрос? нужно еще прописать чтобы данные попадали в нужные ячейки таблицы?
 
 
 
#6
04.10.2018 09:37:19
AlexBosenko,Не вижу в вашем первом посте, что нужно что то ещё вносить, помимо названий таблиц на лист 1 в столбец А
 
 
 
#7
04.10.2018 09:39:09
Все верно, только это. Можете плз показать на примере, что я отправил? У меня не получается, чтобы при запуске макроса, все названия таблиц с разных листов собирались и попадали на Sheet1.
 
 
 
#8
04.10.2018 09:39:54
AlexBosenko,в вашем примере нет Умных таблиц кроме той что на первом листе - в каковую нужно список вносить.
Изменено: Александр П. - 04.10.2018 09:49:22
 
 
 
#9
04.10.2018 09:51:17
Спасибо. Но немного не так. Во всех листах кроме первого нет умных таблиц и так должно быть. Там есть просто названия.
Нужно чтобы эти названия попадали в 1 умную таблицу на листе 1 как список.
 
 
 
#10
04.10.2018 09:58:58
Цитата
AlexBosenko написал: Да, это "Умные таблицы"
Цитата
AlexBosenko написал: Во всех листах кроме первого нет умных таблиц
В чём подвох?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#11
04.10.2018 10:00:52
Нет подвоха! :)
Есть 1 только умная таблица на 1 листе все остальные просто таблицы. И мне нужно с них просто названия взять, чтобы попадали в 1 первую умную таблицу
 
 
 
#12
04.10.2018 10:05:19
Цитата
AlexBosenko написал:
Нет подвоха!  
Есть, ведь Название умных таблиц и просто значение ячейки А1 в каждом листе - это абсолютно разные вещи.
 
 
 
#13
04.10.2018 10:07:31
Прошу прощения возможно не правильно выразился. Можете помочь сейчас решить как я описал последний раз?
В одну таблицу названия всех остальных!
 
 
 
#14
04.10.2018 10:10:49
Код
Sub test()
Dim freerow As Long

freerow = 2
For i = 2 To Worksheets.Count
    
    Sheets(1).Cells(freerow, 1) = Sheets(i).Cells(1,1)
    freerow = freerow + 1
  
Next i
End Sub
 
 
 
#15
04.10.2018 10:21:20
А если названия таблиц не только в ячейке А1? в разные если ячейках?
 
 
 
#16
04.10.2018 10:26:30
Цитата
AlexBosenko написал: Да! Всегда ссылаются на определенную ячейку и далее список всех названий. В данном случае А1.
Цитата
AlexBosenko написал: А если названия таблиц не только в ячейке А1? в разные если ячейках?
Я же говорю - троллинг какой-то
Согласие есть продукт при полном непротивлении сторон
 
 
 
#17
04.10.2018 10:30:06
ну так можно сделать по этому примеру?
 
 
 
#18
04.10.2018 10:44:15
Цитата
AlexBosenko написал:
Нет подвоха!
Серьёзно :qstn:  То есть на листах с именем отличным от Sheet1 нужно будет искать и выводить на лист Sheet1 все значения ячеек, где есть ТаблицаXXX, где XXX некоторый номер?
 
 
 
Страницы: 1
Наверх