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

Вход

Регистрация

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

 

= Мир MS Excel/Сделать текст ссылкой - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сделать текст ссылкой (Формулы/Formulas)
Сделать текст ссылкой
inforus Дата: Понедельник, 08.02.2016, 14:18 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Добрый день!

Подскажите пожалуйста, как сделать так, чтобы текст прописанный в одном столбце стал ссылкой (ссылку нужно взять из соседнего столбца).

На скриншоте выделено красным цветом.
К сообщению приложен файл: 4118821.jpg(51Kb)
 
Ответить
СообщениеДобрый день!

Подскажите пожалуйста, как сделать так, чтобы текст прописанный в одном столбце стал ссылкой (ссылку нужно взять из соседнего столбца).

На скриншоте выделено красным цветом.

Автор - inforus
Дата добавления - 08.02.2016 в 14:18
Manyasha Дата: Понедельник, 08.02.2016, 14:21 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1721
Репутация: 722 ±
Замечаний: 0% ±

Excel 2007, 2010
inforus, здравствуйте. Используйте функцию ГИПЕРССЫЛКА()
Подробнее только с файлом.


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеinforus, здравствуйте. Используйте функцию ГИПЕРССЫЛКА()
Подробнее только с файлом.

Автор - Manyasha
Дата добавления - 08.02.2016 в 14:21
VIDEO56 Дата: Понедельник, 08.02.2016, 14:23 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 262
Репутация: 23 ±
Замечаний: 0% ±

Excel 2010
Я не знаю как остальные, но я в скрине вообще ничего не увидел.


Всем удачного дня!
 
Ответить
СообщениеЯ не знаю как остальные, но я в скрине вообще ничего не увидел.

Автор - VIDEO56
Дата добавления - 08.02.2016 в 14:23
inforus Дата: Понедельник, 08.02.2016, 14:48 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
inforus, здравствуйте. Используйте функцию ГИПЕРССЫЛКА()
Подробнее только с файлом.


Хотел автоматизировать процесс проставления гиперссылок. Т.е. вручную такое количество перегнать в ссылки очень продолжительное время займет.

Прикладываю файл.
К сообщению приложен файл: 04.02.2016__.xlsx(71Kb)
 
Ответить
Сообщение
inforus, здравствуйте. Используйте функцию ГИПЕРССЫЛКА()
Подробнее только с файлом.


Хотел автоматизировать процесс проставления гиперссылок. Т.е. вручную такое количество перегнать в ссылки очень продолжительное время займет.

Прикладываю файл.

Автор - inforus
Дата добавления - 08.02.2016 в 14:48
Udik Дата: Понедельник, 08.02.2016, 15:34 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1295
Репутация: 161 ±
Замечаний: 0% ±

Excel 2013
Эксель не хочет принимать URL длиннее 255 знаков. Например для I3 длинна равна 279, и при попытке применить ГИПЕРССЫЛКА рисует ошибку, если урезать до 255 - ошибка исчезает. Как это обойти я не знаю.


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com


Сообщение отредактировал Udik - Понедельник, 08.02.2016, 15:52
 
Ответить
СообщениеЭксель не хочет принимать URL длиннее 255 знаков. Например для I3 длинна равна 279, и при попытке применить ГИПЕРССЫЛКА рисует ошибку, если урезать до 255 - ошибка исчезает. Как это обойти я не знаю.

Автор - Udik
Дата добавления - 08.02.2016 в 15:34
Manyasha Дата: Понедельник, 08.02.2016, 16:44 | Сообщение № 6
Группа: Модераторы
Ранг: Старожил
Сообщений: 1721
Репутация: 722 ±
Замечаний: 0% ±

Excel 2007, 2010
inforus, можно макросом открывать. Повесила на событие 2-го клика
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row = 1 Then Exit Sub
    If Not Intersect(Target, Range("h:h, j:j, l:l, n:n")) Is Nothing Then
        If Target(1).Offset(0, 1).Value <> "" Then
            fPath = "start " & """"" " & """" & Target(1).Offset(0, 1).Value & """"""
            Shell "cmd /c" & fPath, vbHide: Cancel = True
        End If
    End If
End Sub
[/vba]
К сообщению приложен файл: 04.02.2016_1.xlsm(83Kb)


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеinforus, можно макросом открывать. Повесила на событие 2-го клика
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row = 1 Then Exit Sub
    If Not Intersect(Target, Range("h:h, j:j, l:l, n:n")) Is Nothing Then
        If Target(1).Offset(0, 1).Value <> "" Then
            fPath = "start " & """"" " & """" & Target(1).Offset(0, 1).Value & """"""
            Shell "cmd /c" & fPath, vbHide: Cancel = True
        End If
    End If
End Sub
[/vba]

Автор - Manyasha
Дата добавления - 08.02.2016 в 16:44
inforus Дата: Понедельник, 08.02.2016, 17:04 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Большое спасибо!!
 
Ответить
СообщениеБольшое спасибо!!

Автор - inforus
Дата добавления - 08.02.2016 в 17:04
inforus Дата: Понедельник, 08.02.2016, 17:15 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Еще мне помогли таким кодом. Может кому пригодится. Работает!

[vba]
Код
Sub inf()
Dim c As Range, s$, n&
  Application.ScreenUpdating = False
  For Each c In Selection.SpecialCells(xlCellTypeConstants, xlTextValues)
    If c.Column > 1 Then
      s = c.Value
      n = InStr(1, s, "http://", vbTextCompare)
      If n Then
          c.Offset(, -1).Hyperlinks.Add c.Offset(, -1), Mid$(s, n)
          c.MergeArea.ClearContents
      End If
    End If
  Next
  Application.ScreenUpdating = True
End Sub
[/vba]
 
Ответить
СообщениеЕще мне помогли таким кодом. Может кому пригодится. Работает!

[vba]
Код
Sub inf()
Dim c As Range, s$, n&
  Application.ScreenUpdating = False
  For Each c In Selection.SpecialCells(xlCellTypeConstants, xlTextValues)
    If c.Column > 1 Then
      s = c.Value
      n = InStr(1, s, "http://", vbTextCompare)
      If n Then
          c.Offset(, -1).Hyperlinks.Add c.Offset(, -1), Mid$(s, n)
          c.MergeArea.ClearContents
      End If
    End If
  Next
  Application.ScreenUpdating = True
End Sub
[/vba]

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

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