Нужен макрос, преобразующий выделенные ячейки в гиперссылки вида: tel:номер телефона.
Пустые ячейки макрос должен пропускать.
Для одной ячейки (D3) макрос выглядит так:
Макрос
Sub ГиперТел()
Range("D3").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"tel:%208%20(111)%20111%201111", TextToDisplay:="8 (111) 111 1111"
End Sub
Как это сделать для выделенного диапазона ячеек? Чтобы брался текст из ячейки, впереди прибавлялся "tel:" (без кавычек) и текст в ячейке становился гиперссылкой на этот адрес.
Макрос
Sub ГиперТел()
Dim яч As Range
' Отключение монитора, чтобы ускорить макрос.
' Если много формул, можно ещё отключить формулы.
Application.ScreenUpdating = False
' Создание гиперссылок.
For Each яч In Selection.Cells
If яч.Value <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=яч, Address:="tel:" & яч.Value
End If
Next яч
' Сообщение.
Application.ScreenUpdating = True
MsgBox "Готово.", vbInformation
End Sub