Создать ссылку с использованием текста из ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создать ссылку с использованием текста из ячейки (Формулы/Formulas)

Maks1390

Дата: Пятница, 02.09.2016, 22:30 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте, помогите решить следующую задачу. В ячейке находится номер накладной транспортной компании (10, 11 или 14 цифр), нужно сделать так, чтобы этот номер подставлялся в ссылку и отображался в ячейке в виде ссылки.
https://novaposhta.ua/tracking/?cargo_number= 59000201731047&yt0=
Всем заранее спасибо за помощь!

Сообщение отредактировал Maks1390 - Пятница, 02.09.2016, 22:31

Ответить

AlexM

Дата: Пятница, 02.09.2016, 23:56 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4490

Репутация: 1115 ±

Замечаний: 0% ±

Excel 2003

Код

=ГИПЕРССЫЛКА("https://novaposhta.ua/tracking/?cargo_number="&A1&"&yt0=")

или

Код

=ГИПЕРССЫЛКА("https://novaposhta.ua/tracking/?cargo_number="&A1&"&yt0=";A1)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Пятница, 02.09.2016, 23:58

Ответить

Maks1390

Дата: Суббота, 03.09.2016, 12:22 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Хм, это я не в тот раздел написал видимо, нужен именно макрос.
Нужно чтобы менеджер вносил номера накладных в ячейки B:B, а из них формировались ссылки, в зависимости от количества цифр в номере или по соответствию первых трех цифр номера. Имена ссылок должны быть сами номера накладных.

Пример:
59000065678922 - 14 цифр (начало 590) - сформировать: https://novaposhta.ua/tracking/?cargo_number=59000065678922&yt0=
10012525572 - 11 цифр (начало 100) - сформировать: https://novaposhta.ua/tracking/?cargo_number=10012525572&yt0=
0114008824 - 10 цифр (начало 011) - сформировать: http://www.intime.ua/ttn/?ttn=0114008824

Ответить

Maks1390

Дата: Суббота, 03.09.2016, 18:24 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Может кому пригодится.
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
        For Each cell In Target
         If Not Intersect(cell, Range("C2:C500")) Is Nothing Then
            Dim s As String, sHyp As String
            s = cell.Value
                 If Len(s) Then
                    Select Case Left(s, 3)
                    Case "590", "100", "204"
                        sHyp = "https://novaposhta.ua/tracking/?cargo_number=" & s & "&yt0="
                    Case "011", "180", "190"
                        sHyp = "http://www.intime.ua/ttn/?ttn=" & s
                    End Select

                      cell.Parent.Hyperlinks.Add Anchor:=cell, Address:=sHyp, TextToDisplay:=sHyp
                    Else
                      cell.Hyperlinks.Delete
                 End If
          End If
    Next cell
End Sub

[/vba]

Ответить

Страница 1 из 1
1