Сделать текст ссылкой

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сделать текст ссылкой (Формулы/Formulas)

inforus

Дата: Понедельник, 08.02.2016, 14:18 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Добрый день!

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

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

К сообщению приложен файл: 4118821.jpg (51.0 Kb)

Ответить

Manyasha

Дата: Понедельник, 08.02.2016, 14:21 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

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

ЯД: 410013299366744 WM: R193491431804

Ответить

VIDEO56

Дата: Понедельник, 08.02.2016, 14:23 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 262

Репутация: 23 ±

Замечаний: 0% ±

Excel 2010

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

Всем удачного дня!

Ответить

inforus

Дата: Понедельник, 08.02.2016, 14:48 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Цитата Manyasha, 08.02.2016 в 14:21, в сообщении № 2

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

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

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

К сообщению приложен файл: 04.02.2016__.xlsx (71.3 Kb)

Ответить

Udik

Дата: Понедельник, 08.02.2016, 15:34 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

Репутация: 192 ±

Замечаний: 0% ±

Excel 2016 х 64

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

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

Сообщение отредактировал Udik - Понедельник, 08.02.2016, 15:52

Ответить

Manyasha

Дата: Понедельник, 08.02.2016, 16:44 | Сообщение № 6

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

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 (83.3 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

inforus

Дата: Понедельник, 08.02.2016, 17:04 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Большое спасибо!!

Ответить

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]

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сделать текст ссылкой (Формулы/Formulas)

Страница 1 из 1
1