|   |   | 
| 
 | Подскажите пожалуйста господа как сделать гиперссылку в Экселе | ☑ | ||
|---|---|---|---|---|
| 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 стоит, Спасибо , а то измучался весь )     | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |