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

Вход

Регистрация

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

 

= Мир MS Excel/Преобразование текста в ссылки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Преобразование текста в ссылки (Макросы/Sub)
Преобразование текста в ссылки
Maks1390 Дата: Понедельник, 05.09.2016, 11:03 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте, данный код проверяет число в ячейке и если есть соответствия подставляет к нему части ссылки.
Он отлично работает если в ячейку ввести одно значение, например номер 59000000000000, но как сделать, чтобы была возможность ввести в ячейку несколько номеров, через запятую или другой разделитель и получить корректные ссылки?
Всем большое спасибо за помощь, недавно с этим кодом мучился, тоже помогли на форуме. Сегодня менеджер начал работать, вылезла новая проблема которую я сразу не учел.

[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://link0=" & s & "&yt0="
                    Case "011", "180"
                        sHyp = "http://link1/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]
 
Ответить
СообщениеЗдравствуйте, данный код проверяет число в ячейке и если есть соответствия подставляет к нему части ссылки.
Он отлично работает если в ячейку ввести одно значение, например номер 59000000000000, но как сделать, чтобы была возможность ввести в ячейку несколько номеров, через запятую или другой разделитель и получить корректные ссылки?
Всем большое спасибо за помощь, недавно с этим кодом мучился, тоже помогли на форуме. Сегодня менеджер начал работать, вылезла новая проблема которую я сразу не учел.

[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://link0=" & s & "&yt0="
                    Case "011", "180"
                        sHyp = "http://link1/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
Дата добавления - 05.09.2016 в 11:03
Manyasha Дата: Понедельник, 05.09.2016, 11:56 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1582
Репутация: 659 ±
Замечаний: 0% ±

Excel 2007, 2010
Maks1390, здравствуйте. В одной ячейке не может быть больше одной ссылки.


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеMaks1390, здравствуйте. В одной ячейке не может быть больше одной ссылки.

Автор - Manyasha
Дата добавления - 05.09.2016 в 11:56
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Преобразование текста в ссылки (Макросы/Sub)
Страница 1 из 11
Поиск:

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