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

Вход

Регистрация

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

 

= Мир MS Excel/Оглавление / Содержание книги - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Оглавление / Содержание книги (Макросы/Sub)
Оглавление / Содержание книги
Мурад Дата: Пятница, 05.12.2014, 15:50 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 513
Репутация: 18 ±
Замечаний: 0% ±

Excel 2007
Добрый день! Помогите написать макрос, создающий на первом листе книги Excel оглавление, состоящее из названий листов - гиперссылок в соответствующие листы. Очень удобно при навигации.
Названия листов расположены сверху вниз в порядке расположения в книге.


Сообщение отредактировал Мурад - Пятница, 05.12.2014, 15:52
 
Ответить
СообщениеДобрый день! Помогите написать макрос, создающий на первом листе книги Excel оглавление, состоящее из названий листов - гиперссылок в соответствующие листы. Очень удобно при навигации.
Названия листов расположены сверху вниз в порядке расположения в книге.
Автор - Мурад
Дата добавления - 05.12.2014 в 15:50
Pelena Дата: Пятница, 05.12.2014, 16:02 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19572
Репутация: 4646 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте
Похожая тема

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте
Похожая тема
Автор - Pelena
Дата добавления - 05.12.2014 в 16:02
Мурад Дата: Пятница, 05.12.2014, 16:58 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 513
Репутация: 18 ±
Замечаний: 0% ±

Excel 2007
[vba]
Код
Sub SheetList()
    Dim sheet As Worksheet
    Dim cell As Range
    With ActiveWorkbook
       For Each sheet In ActiveWorkbook.Worksheets
          Set cell = Worksheets(1).Cells(sheet.Index, 1)
          .Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", SubAddress:="'" & sheet.Name & "'" & "!A1"
          cell.Formula = sheet.Name
       Next
    End With
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub SheetList()
    Dim sheet As Worksheet
    Dim cell As Range
    With ActiveWorkbook
       For Each sheet In ActiveWorkbook.Worksheets
          Set cell = Worksheets(1).Cells(sheet.Index, 1)
          .Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", SubAddress:="'" & sheet.Name & "'" & "!A1"
          cell.Formula = sheet.Name
       Next
    End With
End Sub
[/vba]
Автор - Мурад
Дата добавления - 05.12.2014 в 16:58
Мурад Дата: Среда, 10.12.2014, 21:35 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 513
Репутация: 18 ±
Замечаний: 0% ±

Excel 2007
А как доработать этот макрос, чтоб вначале создавался новый лист, который помещается в начало книги, под именем "Оглавление"? И уже в нем начинает работать макрос, указанный сверху.
 
Ответить
СообщениеА как доработать этот макрос, чтоб вначале создавался новый лист, который помещается в начало книги, под именем "Оглавление"? И уже в нем начинает работать макрос, указанный сверху.
Автор - Мурад
Дата добавления - 10.12.2014 в 21:35
JayBhagavan Дата: Четверг, 11.12.2014, 04:15 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 27 ±
Замечаний: 0% ±

Excel 2010
Мурад, перед добавлением листа с требуемым именем проверьте нет ли его уже в книге.[vba]
Код
    Sheets.Add before:=Sheets(1)
     Sheets(1).Name = "Oglavlenie"
[/vba]

Языком ты или построишь жизнь,или разрушишь ее до основания.Думайте что говорите.(с)А.Хакимов
 
Ответить
СообщениеМурад, перед добавлением листа с требуемым именем проверьте нет ли его уже в книге.[vba]
Код
    Sheets.Add before:=Sheets(1)
     Sheets(1).Name = "Oglavlenie"
[/vba]
Автор - JayBhagavan
Дата добавления - 11.12.2014 в 04:15
Wasilich Дата: Суббота, 13.12.2014, 11:24 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата Мурад, 10.12.2014 в 21:35, в сообщении № 4
А как доработать этот макрос, чтоб вначале создавался новый лист, который помещается в начало книги, под именем "Оглавление"? И уже в нем начинает работать макрос, указанный сверху.
Вам Pelena сделала ссылку на похожую тему, Вы ее смотрели? Там Alex_ST выложил код на 100% такой как вам надо. Даже имя листа такое же. :)


Сообщение отредактировал Wasilic - Суббота, 13.12.2014, 11:25
 
Ответить
Сообщение
Цитата Мурад, 10.12.2014 в 21:35, в сообщении № 4
А как доработать этот макрос, чтоб вначале создавался новый лист, который помещается в начало книги, под именем "Оглавление"? И уже в нем начинает работать макрос, указанный сверху.
Вам Pelena сделала ссылку на похожую тему, Вы ее смотрели? Там Alex_ST выложил код на 100% такой как вам надо. Даже имя листа такое же. :)
Автор - Wasilich
Дата добавления - 13.12.2014 в 11:24
Мурад Дата: Понедельник, 15.12.2014, 10:09 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 513
Репутация: 18 ±
Замечаний: 0% ±

Excel 2007
То, что я нашел по той ссылке, я выложил сразу же в этой теме, чтобы новички смогли найти в будущем решение данного вопроса, набрав в Поиске фразу "Оглавление" или "Содержание" :)
 
Ответить
СообщениеТо, что я нашел по той ссылке, я выложил сразу же в этой теме, чтобы новички смогли найти в будущем решение данного вопроса, набрав в Поиске фразу "Оглавление" или "Содержание" :)
Автор - Мурад
Дата добавления - 15.12.2014 в 10:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Оглавление / Содержание книги (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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