как отобразить список листов которые есть в файле - Мир MS Excel

Регистрация

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

= Мир MS Excel/как отобразить список листов которые есть в файле - Мир MS Excel

Страница 1 из 2 1 2 »
Модератор форума: китин, _Boroda_, DrMini

как отобразить список листов которые есть в файле (Формулы/Formulas)

как отобразить список листов которые есть в файле

Дата: Вторник, 29.08.2017, 16:07 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Уважаемые форумчане, подскажите, пожалуйста, есть ли в Excel такая опция, чтобы можно было списком посмотеть список листов, которые есть в файле?

Ответить

Дата: Вторник, 29.08.2017, 16:11 | Сообщение № 2

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

В диспетчер имён:

Код

=ЗАМЕНИТЬ(ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(1);1;НАЙТИ("]";ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(1));"")&Т(ТДАТА())

на лист

Код

=ЕСЛИОШИБКА(ИНДЕКС(Оглавление;СТРОКА(Лист4!E1));"")

а ещё можно ПКМ тапнуться в левый угол

К сообщению приложен файл: 5059586.xlsm (10.8 Kb) · 1798048.jpg (31.0 Kb)

Сообщение отредактировал buchlotnik - Вторник, 29.08.2017, 16:17

Ответить

Дата: Вторник, 29.08.2017, 16:22 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

buchlotnik, Михаил а для чего нужно в первой формуле

Код

&Т(ТДАТА())

всегда же вернет пустую строку ""?

Яндекс: 410016850021169

Ответить

Дата: Вторник, 29.08.2017, 16:27 | Сообщение № 4

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

sboy, Сергей, чтобы формула пересчитывалась, не только по Ctrl+Alt+F9

Ответить

Дата: Вторник, 29.08.2017, 16:31 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

buchlotnik, Спасибо, не знал!

Яндекс: 410016850021169

Ответить

Дата: Вторник, 29.08.2017, 16:54 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

Список в столбец А активного листа:
[vba]

Код

Sub ListName()
Dim aName()
Dim sht As Worksheet
Dim i As Long
    i = Worksheets.Count ' к-во листов

    If i = 1 Then
        Range("A1").Value = ActiveSheet.Name
    Else
        ReDim aName(1 To i, 1 To 1) ' массив для записи имен
        i = 0

        For Each sht In Worksheets ' по листам
            i = i + 1
            aName(i, 1) = sht.Name ' записываем имена в массив
        Next sht

        Range("A1").Resize(i, 1).Value = aName ' показываем список
    End If
End Sub

[/vba]
Код разместить в общем модуле.

Ответить

Дата: Вторник, 29.08.2017, 17:24 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

buchlotnik, buchlotnik,

Не выдает список листов, а пишет ошибку: #NAME?
Не очень понятен выбор функции. Почему ЕСЛИОШИБКА? Зачем у меня в процессе выполнения формулы запрашивает:выбрать обновление какого файла.

Куча вопросов. Начинающий пользователь. Не обессудьте...

Тапнуть получилось. Но такое решение не позволяет копировать и корректировать список.

Сообщение отредактировал aleshinanv - Вторник, 29.08.2017, 17:25

Ответить

Дата: Вторник, 29.08.2017, 17:59 | Сообщение № 8

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

aleshinanv, показывайте в файле что не работает

Ответить

Дата: Вторник, 29.08.2017, 18:00 | Сообщение № 9

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 501 ±

Замечаний: 0% ±

2003 & 2010

Цитата aleshinanv, 29.08.2017 в 17:24, в сообщении № 7 ()

не позволяет копировать и корректировать список

Это как??
Пусть даже вы получите список имен листов у себя где-то там отдельно. Проблемы с невозвратом данных формулой - это проблемы того, что вы не поняли, видимо, как работает формула.
Но вы ещё желаете, чтобы книга сама изменяла свои объекты в соответствии с тем, что вы будете делать в этом вашем "списке"? :'(

:'(

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

Дата: Вторник, 29.08.2017, 18:24 | Сообщение № 10

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

vikttur,
До VBA я видимо ещё не доросла. Попробовала. Но знаний нет.

Sub ListName()
Dim aName()
Dim sht As Worksheet
Dim i As Long
i = Worksheets.Count ' ?-?? ??????

If i = 1 Then
Range("A1").Value = ActiveSheet.Name
Else
ReDim aName(1 To i, 1 To 1) ' ?????? ??? ?????? ????
i = 0

For Each sht In Worksheets ' ?? ??????
i = i + 1
aName(i, 1) = sht.Name ' ?????????? ????? ? ??????
Next sht

Range("A1").Resize(i, 1).Value = aName ' ?????????? ??????
End If
End Sub

Он мне русские символы заменил на знаки вопроса. Но там как-то кодировкой это решается. Отправила в General, запустила и ничего не вижу на актичном листе. Похоже для меня VBA пока не вариант, поэтому я не могу проверить вашу формулу к сожалению.

Ответить

Дата: Вторник, 29.08.2017, 18:33 | Сообщение № 11

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

AndreTM,
путем кликания ПКМ - получается отображение списка на экране. Если его много я ничего с ним сделать не могу. Я хотела просто получить список наименований имеющихся листов в виде списка ячейках системной таблицы.

Ответить

Дата: Вторник, 29.08.2017, 18:40 | Сообщение № 12

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 501 ±

Замечаний: 0% ±

2003 & 2010

Цитата aleshinanv, 29.08.2017 в 18:24, в сообщении № 10 ()

Он мне русские символы заменил на знаки вопроса

Делайте копипаст при включенной русской раскладке (что там, откуда копируете,что там, куда копируете).

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

Дата: Вторник, 29.08.2017, 18:50 | Сообщение № 13

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

buchlotnik,

Ответить

Дата: Вторник, 29.08.2017, 19:05 | Сообщение № 14

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

aleshinanv, ещё раз - показывайте файл. Или у вас мой не работает?

Ответить

Дата: Вторник, 29.08.2017, 19:18 | Сообщение № 15

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Ваш работает, ура!!! Только когда в свой переношу формулу не работает. А свой не могу загрузить - потому что размер файла большой.

СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!!

Ответить

Дата: Вторник, 29.08.2017, 19:26 | Сообщение № 16

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

Цитата

когда в свой переношу формулу не работает

А какой язык-то у вас по дефолту? Судя по

Цитата

#NAME?

английский - так и формулу надо на английском вводить - флажок возле формул в сообщениях можно нажать, или в моём файле, но с вашим языком глянуть

Ответить

Дата: Вторник, 29.08.2017, 19:30 | Сообщение № 17

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Но вот в моем файле не хочет писать.
Что я делаю: я копирую формулу тупо в строку формул для первой ячейки в дополнительном листе.

Ответить

Дата: Вторник, 29.08.2017, 19:32 | Сообщение № 18

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

А оглавление на что надо менять? это уже другой вопрос, но переводчик для Экселя есть. Да у меня все на английском.

Ответить

Дата: Вторник, 29.08.2017, 19:34 | Сообщение № 19

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

aleshinanv, вы само имя Оглавление в Диспетчере имён добавили?

Ответить

Дата: Вторник, 29.08.2017, 19:43 | Сообщение № 20

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

А в диспетчер имен как формулу вбивать? Куда? Я, честно говоря, с таким ещё не сталкивалась.

Ответить

как отобразить список листов которые есть в файле (Формулы/Formulas)

Страница 1 из 2
1
2
»

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