Страницы: 1
RSS
Гиперссылка из ячейки
 
Добрый день, подскажите есть ячейки с гиперссылками как перенести эти ссылки в поле для ссылок (когда правой на ячейке нажмешь там внизу ссылка, и открывает вставка гиперссылки)
 
Думаю, что
Application.Dialogs(xlDialogInsertHyperlink)
не имеет настраиваемых параметров.
Я не нашел
Согласие есть продукт при полном непротивлении сторон
 
спс
нашел

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

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
 
Цитата
fedsum написал:
нашел
То что Вы нашли вообще никак не соответствует заданному вопросу. Вам что надо-то было? Причем тут
Цитата
fedsum написал:
когда правой на ячейке нажмешь там внизу ссылка, и открывает вставка гиперссылки
Согласие есть продукт при полном непротивлении сторон
 
сорян
 
Если правильно понял и помню - то в надстройках типа Ёxcel или XLTOOLS была такая возможность
Изменено: Sanim - 12.07.2024 18:23:02
Страницы: 1
Читают тему
Наверх