Иногда требуется заменить на листе все гиперссылки, созданные при помощи функции листа =ГИПЕРССЫЛКА(), на обычные гиперссылки. В этом поможет VBA-функция FormulaHyperlink, и основанный на ней макрос: Function FormulaHyperlink(ByRef cell As Range) As String If cell.HasFormula And (cell.Hyperlinks.Count = 0) Then If cell.Formula Like "=HYPERLINK*" Then FormulaHyperlink = Evaluate(Mid$(Split(cell.Formula, ",")(0), 12)) End If End If End Function Выделите диапазон ячеек, и запустите этот макрос (не забыв добавить ниже его функцию FormulaHyperlink) Sub ЗаменаГиперссылокСформуламиНаОбычныеВВыделенномДиапазоне() Dim cell As Range: Application.ScreenUpdating = False For Each cell In Selection ' перебираем все выделенные ячейки addr$ = FormulaHyperlink(cell) ' берем ссылку из формулы If Len(addr$) Then ' если ссылка есть, то cell.Value = cell.Value ' заменяем формулу значением cell.Hyperlinks.Add cell, addr$ ' заново прописываем гиперссылку End If Next cell End Sub А этот макрос заменит все гиперссылки в 3-м столбце активного листа: Sub ЗаменаГиперссылокСформуламиНаОбычные() Dim cell As Range, ra As Range: Application.ScreenUpdating = False Set ra = Range([c1], Range("c" & Rows.Count).End(xlUp)) For Each cell In ra.Cells addr$ = FormulaHyperlink(cell) If Len(addr$) Then cell.Value = cell.Value cell.Hyperlinks.Add cell, addr$ End If Next cell End Sub
|
|||||||
Комментарии
Отправить комментарий