Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
гиперссылки в excel
 
#1
17.11.2009 18:56:03
Помогите пожалуйста.    
 
Есть колонка текста с гиперссылками, необходимо преобразовать ее только в ссылки без текста.
 
 
 
#2
17.11.2009 18:58:04
http://skobki.com/2009/01/17/link/
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
17.11.2009 19:06:39
Извиняюсь, невнимательно читал задание.  
 
Попробуйте такой макрос:  
 
Sub Main()  
   Dim hl As Hyperlink: Application.ScreenUpdating = False  
   For Each hl In ActiveSheet.Hyperlinks  
       hl.Range.Font.Size = 1  
       hl.Range.Value = Space(20)  
   Next hl  
End Sub  
 
PS: В ячейке должно всё-таки что-то оставаться (чтобы было на чём щелкнуть для перехода по гиперссылке
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#4
17.11.2009 19:10:42
Ну или просто покрасить шрифт гиперссылок в белый цвет:  
 
Sub Main()  
   Dim hl As Hyperlink: Application.ScreenUpdating = False  
   For Each hl In ActiveSheet.Hyperlinks  
       hl.Range.Font.ColorIndex = 2  
   Next hl  
End Sub
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#5
17.11.2009 19:55:23
Важное уточнение, ссылки при этом нужно преобразовать в текст, чтобы ими можно было оперировать. В дальнейшем их нужно будет копировать и массово редактировать.
 
 
 
#6
17.11.2009 20:00:38
Непонятно - сначала в гиперссылки, а теперь в текст. На ссылке правый клик - Удалить гиперссылку. Останется только текст.
 
 
 
#7
17.11.2009 20:11:04
{quote}{login=Yuretc}{date=17.11.2009 07:55}{thema=}{post}Важное уточнение, ссылки при этом нужно преобразовать в текст, чтобы ими можно было оперировать. В дальнейшем их нужно будет копировать и массово редактировать.{/post}{/quote}  
Есть бесплатный прибамбас - ASAP  Utulities (ссылка в "Ссылки"), в ней риббон "WEB", по-моему, как раз для выших заморочек...
 
 
 
#8
17.11.2009 20:15:04
{quote}{login=Юрий М}{date=17.11.2009 08:00}{thema=}{post}Непонятно - сначала в гиперссылки, а теперь в текст. На ссылке правый клик - Удалить гиперссылку. Останется только текст.{/post}{/quote}  
 
Уточняю. Есть ячейка с текстом "товарА", гиперссылка ведет на страницу http://site.ru/tovarA. Таких товаров очень много. Необходимо получить в текстовом виде эту ссылкы, т.е. чтоб в ячейке был текст "http://site.ru/tovarA" и т.д. Я могу это сделать для одной ячейки - правой кнопкой "изменить гиперссылку" и скопировать ее, а как это сделать массово для всех товаров?
 
 
 
#9
17.11.2009 20:18:26
Одна строка кода:  
Range("A1:A10").Hyperlinks.Delete
 
 
 
#10
17.11.2009 20:18:31
{quote}{login=Yuretc}{date=17.11.2009 08:15}{thema=Re: }{post}{quote}{login=Юрий М}{date=17.11.2009 08:00}{thema=}{post}Непонятно - сначала в гиперссылки, а теперь в текст. На ссылке правый клик - Удалить гиперссылку. Останется только текст.{/post}{/quote}  
...а как это сделать массово для всех товаров?{/post}{/quote}  
Читать пост выше... ASAP...
 
 
 
#11
17.11.2009 23:19:19
Спасибо большое, там действительно есть эта функция!!!  
А не знаете, нет ли подобных утилит для open office?
 
 
 
#12
31.07.2012 16:43:07
Option Explicit  
   
Function Get_Hyperlink_Address(ByVal Cell As Range) As String  
   If Cell.Hyperlinks.Count = 0 Then  
       If Mid$(Cell.Formula, 2, 9) = "HYPERLINK" Then  
           Get_Hyperlink_Address = Mid$(Cell.Formula, 13, InStr(13, Cell.Formula, Chr(34)) - 13)  
       Else  
           Get_Hyperlink_Address = "В ячейке нет гиперссылки!"  
       End If  
   Else  
       Get_Hyperlink_Address = Cell.Hyperlinks(1).Address  
   End If  
End Function  
 
 
 
 
 
Sub Macro1()  
Dim i  
 
 
For i = 1 To 157  
 
Worksheets(1).Cells(i, 9).Value = Get_Hyperlink_Address(ActiveSheet.Cells(i, 1))  
Next i
 
 
 
Страницы: 1
Читают тему
Наверх