Имя: Пароль:
1C
 
Подскажите пожалуйста господа как сделать гиперссылку в Экселе
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 стоит, Спасибо , а то измучался весь )