Витяг URL-адреси з прив’язаного тексту в Excel

Я переглянув цю тему, щоб відповідати моєму запиту, але більшість тем наблизилися, але не були специфічними для моєї.

Я намагаюся витягнути URL з тексту прив’язки в Excel.

Чи є для цього формула? Коли я намагаюся =GETURLабо =HYPERLINKвін все-таки поміщає текст прив’язки з прив’язаною до нього URL-адресою.

Якісь ідеї? Рішення макросу досить марні, тому формула була б милою. Інакше покладіть на мене макроси.

Якщо у вас є клітина, що містить гіперпосилання, і ви хочете бачити URL, а не "дружнє ім'я", то врахуйте наступну функцію, визначену користувачем (UDF):

Public Function hyp(r As Range) As String
    hyp = ""
    If r.Hyperlinks.Count > 0 Then
        hyp = r.Hyperlinks(1).Address
        Exit Function
    End If
    If r.HasFormula Then
        rf = r.Formula
        dq = Chr(34)
        If InStr(rf, dq) = 0 Then
        Else
            hyp = Split(r.Formula, dq)(1)
        End If
    End If
End Function

Цей UDF працює як із вкладеними гіперпосиланнями, так і з функціями = HYPERLINK ().

Функції, визначені користувачем (UDF), дуже прості в установці та використанні:

1. ALT-F11 відкриває вікно VBE
2. ALT-I ALT-M відкриває новий модуль
3. вставити матеріал і закрити вікно VBE

Якщо ви збережете робочу книжку, UDF буде збережено разом з нею. Якщо ви використовуєте версію Excel пізніше 2003 року, ви повинні зберегти файл як .xlsm, а не .xlsx

Щоб видалити UDF:

1. піднести вікно VBE, як вище
2. очистити код
3. закрити вікно VBE

Щоб використовувати UDF від Excel:

= hyp (A1)

Щоб дізнатися більше про макроси загалом, див.

http://www.mvps.org/dmcritchie/excel/getstarted.htm

і

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

і

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

для специфіки щодо АДС

Макроси повинні бути включені, щоб це працювало!