![]() |
![]() |
![]() |
|
Подскажите пожалуйста господа как сделать гиперссылку в Экселе | ☑ | ||
---|---|---|---|---|
0
NcSteel
06.10.09
✎
11:58
|
Как из v8 сделать гиперссылку в определенной ячейке. гиперссылка должна содержать переход на лист 2.
Что то не могу вкурить. |
|||
1
mikecool
06.10.09
✎
11:59
|
(0) в самом екселе можешь такое сделать?
|
|||
2
NcSteel
06.10.09
✎
11:59
|
(1) да
|
|||
3
NcSteel
06.10.09
✎
12:00
|
там пару нажатий.
|
|||
4
GedKo
06.10.09
✎
12:01
|
=Лист1!R[-1]C[-1]
|
|||
5
NcSteel
06.10.09
✎
12:03
|
Книга.WorkSheets("Оглавление").Hyperlinks.Add("=Лист1!R[-1]C[-1]")
Выпадает исключение |
|||
6
GedKo
06.10.09
✎
12:07
|
(5) попробуй просто значение в ячейку закинуть
=ГИПЕРССЫЛКА(Лист1!R[-1]C[-1]) ну и проверь, чтобы был лист1 и учти, что я координаты от позиции формулы написал. в A1 их нельзя =) |
|||
7
interlamersha
06.10.09
✎
12:17
|
(0) Попробуй разбить то что я тебе дала на отдельные строки. вот справка из примера, переработай под своё.
Worksheets(1).Shapes(1).Hyperlink.SubAddress = "A1:B10" |
|||
8
interlamersha
06.10.09
✎
12:27
|
(5)
Книга.WorkSheets("Оглавление").Cells(1,1).Hyperlink.SubAdress="Лист1!R1C1"; |
|||
9
NcSteel
06.10.09
✎
12:32
|
(8) Книга.WorkSheets("Заказ").Cells(30,5).Hyperlink.SubAdress="'Прайс общий'!R1C1";
Вызывает Исключение |
|||
10
NcSteel
06.10.09
✎
12:32
|
(6) Не сработало.
Если передать просто ГИПЕРССЫЛКА(Лист1!R[-1]C[-1]) то работает если же =ГИПЕРССЫЛКА(Лист1!R[-1]C[-1]) то ошибка |
|||
11
NcSteel
06.10.09
✎
12:49
|
ап
(8) Книга.WorkSheets("Оглавление").Cells(1,1).Hyperlink - нет такого свойства "Hyperlink" |
|||
12
interlamersha
06.10.09
✎
12:55
|
(11) а если Range("a1") вместо Cells(1,1) &
|
|||
13
sttt
06.10.09
✎
12:55
|
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Лист2!A1", TextToDisplay:="Лист2!A1" |
|||
14
skunk
06.10.09
✎
12:55
|
олеЕксель = новый COMОбъект("Excel.Application");
олеКнига = олеЕксель.Workbooks.Open("c:\Новый.xls"); олеЛист = олеКнига.Worksheets.Item(1); олеЯчейка = олеЛист.Cells(6, 6); олеВыделеный = олеЯчейка.Select(); олеЯчейка.Hyperlinks.Add(олеЕксель.Selection, "", "Лист2!R4C4", "Описание ссылки", "Ссылка"); |
|||
15
NcSteel
06.10.09
✎
13:03
|
(14) олеЯчейка.Select() - Выдает исключение, но такой код идеально подошел:
олеЕксель = новый COMОбъект("Excel.Application"); олеКнига = олеЕксель.Workbooks.Open(ФайлИмпорта); олеЛист = олеКнига.Worksheets("Заказ"); олеЯчейка = олеЛист.Cells(30, 3); олеЯчейка.Hyperlinks.Add(олеЯчейка, "", "'Прайс общий'!R1C1", "Описание ссылки", "Ссылка"); олеЕксель.Application.Visible = true; Спасибо. |
|||
16
skunk
06.10.09
✎
13:20
|
вообще-то странно ... ну ладно... я на 2007 проверял ... не забывать про "Описание ссылки" и "Ссылка"
|
|||
17
skunk
06.10.09
✎
13:21
|
впринципе их можно вообще опускать ... но кошернее проставить нужные значения
|
|||
18
NcSteel
06.10.09
✎
13:22
|
(17) тоже 2007 стоит, Спасибо , а то измучался весь )
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |