Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Создание гиперссылки из части текста из ячейки
 
#1
15.07.2026 13:54:12
Доброго дня всем!
Как макросом из части текста, находящегося в ячейке в формате Х-ХХ-ХХ (пятизначный номер телефона) создать гиперссылку на эту ячейку в формате tel:7-75-57
Изменено: evg_glaz - 15.07.2026 15:36:13
 
 
 
#2
15.07.2026 15:42:39
Можно попробовать такой формулой
Код
=ГИПЕРССЫЛКА(адрес; "tel: " & ПСТР(A1;ПОИСК("?-??-??";A1);7)

Но лучше Вам приложить файл с примером, где будет указано откуда брать текст с номером, как он выглядит, на что нужно создавать гиперссылку
Изменено: Msi2102 - 15.07.2026 15:55:37
 
 
 
#3
15.07.2026 17:11:24
Msi2102, спасибо! Хотелось помудрее, пошел другим путем, номера телефонов будут отдельно в добавленном столбце, туда и ссылку добавлять
 
 
 
#4
16.07.2026 08:22:48
Цитата
evg_glaz написал:
Хотелось помудрее
согласен с Вами, заморачиваться, так по полной. Но всё-таки, чтобы заморочки не прошли даром, и заморочили не только помогающих, а и всех остальных, приложите файл с примером, как его создать великолепно описано в правилах форума
Изменено: Msi2102 - 16.07.2026 08:24:31
 
 
 
#5
16.07.2026 08:58:33
Msi2102, Добрый день!
Гиперссылка по изменению ячейки
 
 
 
#6
16.07.2026 09:23:22
?
Скрытый текст
Согласие есть продукт при полном непротивлении сторон
 
 
 
#7
16.07.2026 09:29:32
Sanja, добрый день! То, что доктор прописал)))
Спасибо в очередной раз!
 
 
 
#8
16.07.2026 09:31:50
Цитата
evg_glaz написал:
Создание гиперссылки
Для создания гиперссылки куча инфы в интернете, собственно ТУТ была тема по созданию гиперссылок. Вот макрос оттуда, добавил только редактирование формата, можете доработать под себя, в зависимости от Ваших потребностей.
Код
Sub Макрос1()
Dim lRow As Long, lCol As Long
Dim iSht As Worksheet
    Set iSht = Sheets("Лист2")
    lCol = 2
    With ActiveSheet
        For lRow = 1 To 10
            .Cells(lRow, 1).Hyperlinks.Delete
            .Hyperlinks.Add Anchor:=.Cells(lRow, 1), Address:="", _
                SubAddress:="'" & iSht.Name & "'!" & Cells(2, lCol).Address(0, 0), _
                ScreenTip:="Перейти на: " & iSht.Name & "!" & Cells(2, lCol).Address(0, 0)
            lCol = lCol + 2
            With .Cells(lRow, 1).Font
                .Underline = xlUnderlineStyleNone
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
            End With
        Next lRow
    End With
    MsgBox "Гиперссылки добавлены!", 64, "Гиперссылки"
End Sub

Цитата
evg_glaz написал:
пошел другим путем, номера телефонов будут отдельно в добавленном столбце, туда и ссылку добавлять
Где в примере этот столбец?
Цитата
evg_glaz написал:
Гиперссылка по изменению ячейки
по изменению какой ячейки и на что должна быть гиперссылка?
 
 
 
#9
16.07.2026 10:16:53
Msi2102, гиперссылка нужна на номер телефона, находящийся в тексте ячейки, т.е. по клику на ячейку срабатывает звонилка и происходит звонок не зависимо от остального текста (в примере "как надо" - текст и номер, но ссылка на номер, а не текст).
Цитата
собственно ТУТ
тему видел - не подошло решение
В любом случае спасибо за помощь и потраченное время!
 
 
 
Страницы: 1
Читают тему
Наверх