Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Оглавление
 
#1
11.01.2010 15:50:34
Помогите, пожалуйста! Взяла на сайте макрос, который создает оглавление книги Excel по листам. Макрос вставляет название первого листа оглавления в ячейку A1. Можно ли сделать так, чтобы ссылка на первый лист оглавления вставлялась в выбранную (активную) в данный момент ячейку?  
 
 
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
 
 
 
#2
11.01.2010 16:11:59
Sub SheetList()  
Dim sheet As Worksheet  
Dim cell As Range, k As Long  
With ActiveWorkbook  
For Each sheet In ActiveWorkbook.Worksheets  
Set cell = ActiveCell.Offset(k)  
.Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", _  
SubAddress:="'" & sheet.Name & "'" & "!A1"  
cell.Formula = sheet.Name  
k = k + 1  
Next  
End With  
End Sub
Bite my shiny metal ass!      
 
 
 
#3
11.01.2010 16:17:56
Лузер, спасибо! Забыла уточнить один момент. Можно сделать так, чтобы оглавление начиналось со второго листа, т.к. на первом и будет размещено собственно оглавление.
 
 
 
#4
11.01.2010 16:25:50
Исключил не первый, но активный лист из создания оглавления.  
Создается оглавление для всех остальных листов.  
Sub SheetList()  
Dim sheet As Worksheet  
Dim cell As Range, k As Long  
With ActiveWorkbook  
For Each sheet In ActiveWorkbook.Worksheets  
If sheet.Name <> ActiveSheet.Name Then  
Set cell = ActiveCell.Offset(k)  
.Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", _  
SubAddress:="'" & sheet.Name & "'" & "!A1"  
cell.Formula = sheet.Name  
k = k + 1  
End If  
Next  
End With  
End Sub
Bite my shiny metal ass!      
 
 
 
#5
11.01.2010 16:27:42
Лузер, спасибо огромное! Работает просто замечательно!!
 
 
 
#6
11.01.2010 16:29:22
The_Prist, спасибо! Тоже работает!
 
 
 
#7
11.01.2010 17:17:42
Скажите, а возможности обновления гиперссылок на названия листов есть? Например, я изменю название листа, а в оглавлении этот лист под старым названием остался...
 
 
 
#8
11.01.2010 17:33:49
Неужели нет возможности, как в Word, обновлять вручную гиперссылочки?
 
 
 
#9
11.01.2010 17:46:29
Наверное, надо использовать функцию гиперссылка() в связке с ячейка().
Bite my shiny metal ass!      
 
 
 
Страницы: 1
Читают тему
Наверх