Программно создать гиперссылку- Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
// 1
With ThisWorkbook.Worksheets(1)
     .Hyperlinks.Add Anchor:=.Range("A1"), Address:="http://ode.ru"
End With
  
//2
With ThisWorkbook.Worksheets(1).Range("A3")
     .Hyperlinks.Add Anchor:=.Item(1), Address:="ode.ru"
End With
  
//3
With ThisWorkbook.Worksheets(1).Range("A5")
     .Hyperlinks.Add Anchor:=.Cells(1), _
     Address:=Application.DefaultFilePath
End With
  
ThisWorkbook.Worksheets(1).Range("A7").Formula = "=HYPERLINK(""mailto:sampl@ode.ru"")"
Если необходимо, чтобы в ячейке отображался не текст гиперссылки, а нужный текст, то:
 
code: #vba
//1
With ThisWorkbook.Worksheets(1)
     .Hyperlinks.Add Anchor:=.Range("A1"), Address:="http://ode.ru"
     .Range("A1").Value = "Проект Новая почта"
End With
  
//2
With ThisWorkbook.Worksheets(1).Range("A3")
     .Hyperlinks.Add Anchor:=.Item(1), Address:="http://ode.ru"
     .Value = "Проект Новая почта"
End With
  
//3
With ThisWorkbook.Worksheets(1).Range("A5")
     .Hyperlinks.Add Anchor:=.Cells(1), _
      Address:=Application.DefaultFilePath
     .Formula = "Просмотр содержимого папки"
End With
  
With ThisWorkbook.Worksheets(1).Range("A7").Formula = "=HYPERLINK(""http://ode.ru"",""Может посетим ..."")"
1
2
3
4
В этих версиях, создать нужный текст, можно используя необязательный аргумент TextToDisplay:
 
Worksheets(1).Hyperlinks.Add Anchor:=Range("C3"), _
Address:="http://ode.ru/", TextToDisplay:="ode.ру"

Похожие записи/страницы:

Leave a Comment