Здравствуйте, данный код проверяет число в ячейке и если есть соответствия подставляет к нему части ссылки. Он отлично работает если в ячейку ввести одно значение, например номер 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