| Вопрос: получить адрес из ссылки | Добавлено: 23.12.07 12:09 |
Автор вопроса:  formentor
|
|
есть документ со ссылками (Hyperlink) в одном столбце
нужно: чтобы во втором были адреса (Address) этих ссылок, а в третьем - всплывающие подсказки (ScreenTip) и что-то я никак не могу вытащить адреса( |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:    Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 23.12.07 12:55 |
|
Private Sub Worksheet_Activate()
Dim Hs As Hyperlinks Set Hs = Лист1.Hyperlinks For i = 1 To Hs.Count Лист1.Cells(i, 2) = Hs.Item(i).Address Лист1.Cells(i, 3) = Hs.Item(i).ScreenTip Next End Sub |
||
|
Номер ответа: 2 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 23.12.07 13:07 |
|
либо так
Private Sub Worksheet_Activate()
Dim rr As Hyperlink maxr = 3 For i = 1 To maxr For Each rr In Range(Cells(i, 1), Cells(i, 1)).Hyperlinks Cells(i, 2) = rr.Address Cells(i, 3) = rr.ScreenTip Next Next End Sub |
||
Страница: 1 |