Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Превратить ячейку в гиперссылку

Автор: Ivanchenko Anton 21.10.2005, 10:15

Дело обстоит следующим образом:
Есть главная страница со списком слов (в "столбик"). При запуске макроса на каждое слово из этого столбика должна создаваться новая страница и обзываться именем, равным содержанию активной ячейки. Это я все сделал. Но помимо этого, активная ячейка должна становиться гиперссылкой на созданную страницу. Вот этого сделать не могу. Может кто-нибудь подскажет, как ячейку сделать гиперссылкой?... %-(
Код сделанного:

Код



Sub pages()

Sheets("Content").Select
Cells(2, 1).Select
a = 2
Do While Selection.Value <> ""
 nam = Selection.Value
 Sheets.Add Type:= _
  "C:\Documents and Settings\Пользователь\Application Data\Microsoft\Шаблоны\New_opt_page.XLT"
 ActiveSheet.Name = nam
 ActiveSheet.Move After:=Sheets(Sheets.Count)
 a = a + 1
 Sheets("Content").Select
 Cells(a, 1).Select
Loop

End Sub

Автор: likhobory 21.10.2005, 10:43

Код

'''''''''''''''''''''''''''''
ActiveSheet.Name = nam
Sheets("Content").Hyperlinks.Add Anchor:=Cells(a, 1), Address:="", SubAddress:=Cells(a, 1).Value & "!A1", TextToDisplay:=Cells(a, 1).Value

кстати, для работы с листом и ячейками совсем не обязательно делать их активными smile