Гиперссылка, отображение имени файла.

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

Гиперссылка, отображение имени файла. (Формулы/Formulas)

evgeni1990

Дата: Среда, 25.04.2018, 16:49 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 45

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

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

Excel 2010

Добрый день Уважаемые участники форума.
Прошу помочь с задачей.
Есть лист (Ввод данных) в котором выбираем файл с компьютера, в ячейке "с26" указывается ссылка местонахождения файла в формате гиперссылки, после нажатия кнопки "внести данные в реестр" она копируется в новую строку в таблице на соседний лист (Реестр), но уже не активная.
Вопрос №1 и самый важный: Как сделать, что бы при копировании в лист "реестр" гиперссылка сохранялась?
Вопрос №2 при добавлении файла, вместо адреса файла указывалось имя файла.

Макросы использованные в документе сам не писал, помогал гугл.
Благодарю всех за участие!

К сообщению приложен файл: __-ver_1.1-.xls (77.0 Kb)

Сообщение отредактировал evgeni1990 - Среда, 25.04.2018, 16:56

Ответить

StoTisteg

Дата: Среда, 25.04.2018, 16:54 | Сообщение № 2

Группа: Авторы

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

Сообщений: 1161

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

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

Excel 2010

Файлик бы... Понятно, что ссылки работать не будут, но оно и не надо.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

_Boroda_

Дата: Среда, 25.04.2018, 17:05 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16886

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Примерно как-то так
[vba]

Код

Sub tt()
    gs1_ = Range("C26")
    With Sheets("Реестр")
        .Range("C29") = gs1_ 'C29 - это просто для примера
        .Hyperlinks.Add Anchor:=.Range("C29"), Address:=gs1_, TextToDisplay:=Mid(gs1_, InStrRev(gs1_, "\") + 1)
    End With
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

evgeni1990

Дата: Среда, 25.04.2018, 17:38 | Сообщение № 4

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

Ранг: Новичок

Сообщений: 45

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

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

Excel 2010

Излишнее цитирование удалено администрацией

Все работает, огромное спасибо за помощь! hands

Ответить

evgeni1990

Дата: Среда, 25.04.2018, 17:51 | Сообщение № 5

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

Ранг: Новичок

Сообщений: 45

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

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

Excel 2010

Цитата _Boroda_, 25.04.2018 в 17:05, в сообщении № 3 ()

_Boroda_

Подскажите пожалуйста, возможно ли защитить от изменения лист "Реестр" (куда копируется информация), у меня при установке зашиты на лист, не работает макрос?

Ответить

_Boroda_

Дата: Среда, 25.04.2018, 17:54 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16886

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

- Прочитайте Правила форума
- п.4 Правил форума: один вопрос - одна тема

Ответить

Гиперссылка, отображение имени файла. (Формулы/Formulas)

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