Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Создать ссылку с использованием текста из ячейки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир 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
 
Ответить
СообщениеЗдравствуйте, помогите решить следующую задачу. В ячейке находится номер накладной транспортной компании (10, 11 или 14 цифр), нужно сделать так, чтобы этот номер подставлялся в ссылку и отображался в ячейке в виде ссылки.
https://novaposhta.ua/tracking/?cargo_number= 59000201731047&yt0=
Всем заранее спасибо за помощь!

Автор - Maks1390
Дата добавления - 02.09.2016 в 22:30
AlexM Дата: Пятница, 02.09.2016, 23:56 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3446
Репутация: 873 ±
Замечаний: 0% ±

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


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


Сообщение отредактировал AlexM - Пятница, 02.09.2016, 23:58
 
Ответить
Сообщение
Код
=ГИПЕРССЫЛКА("https://novaposhta.ua/tracking/?cargo_number="&A1&"&yt0=")
или
Код
=ГИПЕРССЫЛКА("https://novaposhta.ua/tracking/?cargo_number="&A1&"&yt0=";A1)

Автор - AlexM
Дата добавления - 02.09.2016 в 23:56
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
 
Ответить
СообщениеХм, это я не в тот раздел написал видимо, нужен именно макрос.
Нужно чтобы менеджер вносил номера накладных в ячейки 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 в 12:22
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]
 
Ответить
СообщениеМожет кому пригодится.
[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]

Автор - Maks1390
Дата добавления - 03.09.2016 в 18:24
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создать ссылку с использованием текста из ячейки (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!