Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > excel

Автор: qwertyru 31.12.2004, 12:33

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

Автор: Akella 4.1.2005, 10:25

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

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html/output/f1/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