Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Ссылка в ячейки, Как достать из ссылки ID
 
#1
02.11.2024 11:43:15
Добрый день.
Уважаемые, подскажите плз, в ячейки лежит тест с линком куда-то
В этой ссылке есть ID элемента, например (https://www.planetaexcel.ru/forum/ID=1) как из этой ссылки из примера достать "1" в другой столбец рядом



Вот так выглядит ссылка скриншот 1.jpg



Нужно чтобы получались вот так скриншот 2.jpg
Изменено: Petya.Vasilev - 02.11.2024 11:47:06
 
 
 
#2
02.11.2024 12:17:59
Код
Sub GetIDFromHyperlinks()
    Dim sh As Worksheet
    Set sh = ActiveSheet
    
    Dim hl As Hyperlink
    For Each hl In sh.Hyperlinks
        hl.Range.Cells(1, 2).Value = Split(hl.Address, "=")(1)
    Next
End Sub
 
 
 
#3
02.11.2024 12:52:15
Если Гиперссылка в ячейке E1 образована формулой типа:
Код
=ГИПЕРССЫЛКА("https://www.planetaexcel.ru/forum/ID=1";"Организовать")

то

Код
=ПСТР(Ф.ТЕКСТ(E1);ПОИСК("/ID=";Ф.ТЕКСТ(E1))+4;ПОИСК("""";Ф.ТЕКСТ(E1);ПОИСК("/ID=";Ф.ТЕКСТ(E1)))-ПОИСК("/ID=";Ф.ТЕКСТ(E1))-4)
 
 
 
#4
02.11.2024 12:59:06
Цитата
написал:
Если Гиперссылка в ячейке E1 образована формулой типа:
Спасибо. Но ссылка сформирована не формулой, а просто копировать - вставить  
 
 
 
#5
02.11.2024 13:00:47
Тогда только 1 вариант и Вам его дали во 2-м ответе
 
 
 
#6
02.11.2024 13:08:04
Цитата
написал:
Sub GetIDFromHyperlinks()
   Dim sh As Worksheet
   Set sh = ActiveSheet
   
   Dim hl As Hyperlink
   For Each hl In sh.Hyperlinks
       hl.Range.Cells(1, 2).Value = Split(hl.Address, "=")(1)
   Next
End Sub
Спасибо!
 
 
 
Страницы: 1
Наверх