как-то внезапно, сам не знаю почему захотелось рекордером и формулами воспользоваться [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]
как-то внезапно, сам не знаю почему захотелось рекордером и формулами воспользоваться [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
[moder]Не нужно цитировать весь пост[/moder] Это все работает, когда есть готовые листы и к ним нужны ссылки, а мне нужно создать новый лист и к нему сразу же гиперссылку, потом я опускаюсь на ячейку вниз, жму макрос и должен создаться лист и в этой ячейке появится ссылка на него
[moder]Не нужно цитировать весь пост[/moder] Это все работает, когда есть готовые листы и к ним нужны ссылки, а мне нужно создать новый лист и к нему сразу же гиперссылку, потом я опускаюсь на ячейку вниз, жму макрос и должен создаться лист и в этой ячейке появится ссылка на негоOutCast
Сообщение отредактировал _Boroda_ - Пятница, 21.08.2015, 21:52
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]
Такой вариант: [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