VPF::Превратить ячейку в гиперссылку

Ivanchenko Anton

Дата 21.10.2005, 10:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 3.4.2005

Репутация: нет
Всего: нет

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

Код



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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 466
Регистрация: 17.5.2005
Где: Москва

Репутация: 1
Всего: 20

Код

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

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

Это сообщение отредактировал(а) likhobory - 21.10.2005, 10:49

--------------------

TSC! Russia

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »