Автоматическое присвоение гиперссылки новому листу

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автоматическое присвоение гиперссылки новому листу (Формулы/Formulas)

OutCast

Дата: Пятница, 21.08.2015, 17:07 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2003

[vba]

Код

Sub Макрос1()
'
' Макрос1 Макрос
'

'
Sheets.Add After:=ActiveSheet
Sheets("Лист1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Лист34!A1", TextToDisplay:="Нажать"
End Sub

[/vba]

Что нужно прописать, чтобы когда создаешь новый лист к нему привязывалась гиперссылка?

К сообщению приложен файл: 6414541.xls (55.0 Kb)

Сообщение отредактировал Pelena - Пятница, 21.08.2015, 18:55

Ответить

Nic70y

Дата: Пятница, 21.08.2015, 17:29 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 8791

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

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

Excel 2010

как-то внезапно, сам не знаю почему захотелось рекордером и формулами воспользоваться
[vba]

Код

Sub List__()
       Columns("A:B").ClearContents
       Cnt = 0
       For Elem = 2 To Sheets.Count
       Sheets(1).Cells(1, 1).Offset(Cnt, 0) = "'" & Sheets(Elem).Name
       Cnt = Cnt + 1
       For Each c In Range("a1:a18000")
       If c <> "" Then
       c.Offset(0, 1).FormulaR1C1 = "=HYPERLINK(""#""&RC[-1]&""!A1"")"
       End If
       Next
Next Elem
End Sub

[/vba]

К сообщению приложен файл: 6972416.xlsm (19.9 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 21.08.2015, 17:30

Ответить

OutCast

Дата: Пятница, 21.08.2015, 17:39 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2003

[moder]Не нужно цитировать весь пост[/moder]
Это все работает, когда есть готовые листы и к ним нужны ссылки, а мне нужно создать новый лист и к нему сразу же гиперссылку, потом я опускаюсь на ячейку вниз, жму макрос и должен создаться лист и в этой ячейке появится ссылка на него

Сообщение отредактировал _Boroda_ - Пятница, 21.08.2015, 21:52

Ответить

Nic70y

Дата: Пятница, 21.08.2015, 17:46 | Сообщение № 4

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

Ранг: Экселист

Сообщений: 8791

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

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

Excel 2010

Цитата OutCast, 21.08.2015 в 17:39, в сообщении № 3

есть готовые листы

так запустите этот макрос после создания нового листа (автоматически) (конечно макрос так себе, мож кто лучше предложит)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 21.08.2015, 17:47

Ответить

OutCast

Дата: Пятница, 21.08.2015, 17:53 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2003

Цитата Nic70y, 21.08.2015 в 17:46, в сообщении № 4

в том то и дело, что нужно именно в такой последовательности, т.к. новыелисты будут добавляться по мере поступления

Ответить

Karataev

Дата: Пятница, 21.08.2015, 18:01 | Сообщение № 6

Группа: Проверенные

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

Сообщений: 1334

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

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

Excel

Такой вариант:
[vba]

Код

Sub Макрос1()
      Dim sh1 As Worksheet, sh2 As Worksheet
      Set sh1 = ActiveSheet
      Set sh2 = Sheets.Add(After:=sh1)
      sh1.Select
      If Selection.Hyperlinks.Count <> 0 Then
          Selection.Hyperlinks(1).Delete
      End If
      sh1.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & sh2.Name & "'!A1", TextToDisplay:="Нажать"
End Sub

[/vba]

Сообщение отредактировал Karataev - Пятница, 21.08.2015, 18:02

Ответить

OutCast

Дата: Пятница, 21.08.2015, 18:06 | Сообщение № 7

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2003

Благодарствую! то что нужно
[moder]Излишнее цитирование - нарушение Правил форума.
Код надо оформлять тегами (кнопка #)[/moder]

Сообщение отредактировал Pelena - Пятница, 21.08.2015, 18:54

Ответить

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