VPF::excel - Форум программистов

qwertyru

Дата 31.12.2004, 12:33 (ссылка)

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

Загрузка ...

Новичок

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

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

кто нибудь знает какие параметры у
Hyperlinks.Add
проще как ей пользоваться
заранее благодорен

Akella

Дата 4.1.2005, 10:25 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

With Worksheets(1)
.Hyperlinks.Add .Range("E5"), "http://www.gohere.com"
End With

http://msdn.microsoft.com/library/default....1/d3/s5a592.asp

Код


MsgBox Evaluate(Replace(ActiveSheet.Cells(r, c).Formula, "HYPERLINK(", "CHOOSE(1,"))
 

но похоже, что Evaluate не берет формулы определенной сложности — если я убираю один IF, то работает, а со всеми IF, нет, может быть это и баг такой

То есть все равно нужна вспомогательная ячейка
ActiveSheet.Cells(r1, c1).Formula = Replace(ActiveSheet.Cells(3, 3).Formula, "HYPERLINK(", "CHOOSE(1,")
 

или если не установлена защита, то можно прямо в самой ячейке
ActiveSheet.Cells(r, c).Formula = Replace(ActiveSheet.Cells(3, 3).Formula, "HYPERLINK(", "CHOOSE(1,")
MsgBox ActiveSheet.Cells(r, c)
ActiveSheet.Cells(r, c).Formula = Replace(ActiveSheet.Cells(3, 3).Formula, "CHOOSE(1,", "HYPERLINK(")
 
http://rsdn.ru/Forum/?mid=760679

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