Определение адреса ячейки гиперссылки

@Kirill R · Регистрация: 08.04.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте.
Столкнулся со следующей проблемой.
Есть книга Excell, в которой есть лист с гиперссылками. Необходимо программно определить адрес каждой ячейки, в которой находится гиперссылка. Каким образом это можно сделать?

Visual Basic

Dim hp As Hyperlink
Set hps = Worksheets.Item(7).Hyperlinks   
For i = 1 To hps.Count
        Worksheets.Item(12).Cells(i, 3) = '? адрес ячейки
        Worksheets.Item(12).Cells(i, 4) = hps.Item(i).Address
Next i

@ArtemoBis · 10.07.2013, 11:19

Visual Basic

Dim hp As Hyperlink
Set hps = Worksheets.Item(7).Hyperlinks   
For i = 1 To hps.Count
        Worksheets.Item(12).Cells(i, 3) = hps.Item(i).range.Address
        Worksheets.Item(12).Cells(i, 4) = hps.Item(i).Address
Next i

так как-то?

@Kirill R · 10.07.2013, 12:01 **[ТС]**

спасибо. что-то немного стормозил.

@Kirill R 22 / 22 / 4 Регистрация: 08.04.2013 Сообщений: 150
	10.07.2013, 12:01 [ТС]	3
	спасибо. что-то немного стормозил. 0