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

Вход

Регистрация

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

 

= Мир MS Excel/несколько ссылок на файлы в одной ячейке - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
несколько ссылок на файлы в одной ячейке
lebensvoll Дата: Среда, 02.10.2019, 13:09 | Сообщение № 1
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
:( Добрый день!!!
Давно я не был у ВАС... Всем огромнейший привет.
У меня вопрос вот какого характера.
Ведут таблицу с нумерацией актов отборов; протоколов испытаний в одной ячейке могут быть несколько актов отборов.
Возможно ли создать ссылку на открывание файла нескольких актов отборов!?
Чет лазил в инете не нашел ((( (может плохо искал) но встречал лишь информацию что невозможно!!!
Нужно ваше экспертное заключение по сему вопросу
Заранее спасибо!!!!
К сообщению приложен файл: 7823117.xlsx (61.5 Kb)


Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Среда, 02.10.2019, 13:13
 
Ответить
Сообщение:( Добрый день!!!
Давно я не был у ВАС... Всем огромнейший привет.
У меня вопрос вот какого характера.
Ведут таблицу с нумерацией актов отборов; протоколов испытаний в одной ячейке могут быть несколько актов отборов.
Возможно ли создать ссылку на открывание файла нескольких актов отборов!?
Чет лазил в инете не нашел ((( (может плохо искал) но встречал лишь информацию что невозможно!!!
Нужно ваше экспертное заключение по сему вопросу
Заранее спасибо!!!!

Автор - lebensvoll
Дата добавления - 02.10.2019 в 13:09
Nic70y Дата: Среда, 02.10.2019, 13:30 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8984
Репутация: 2359 ±
Замечаний: 0% ±

Excel 2010
на открывание файла нескольких актов отборов!?
или открытия нескольких файлов?
да вообще не понятно, это имена файлов или еще как?


ЮMoney 41001841029809
 
Ответить
Сообщение
на открывание файла нескольких актов отборов!?
или открытия нескольких файлов?
да вообще не понятно, это имена файлов или еще как?

Автор - Nic70y
Дата добавления - 02.10.2019 в 13:30
bmv98rus Дата: Среда, 02.10.2019, 13:36 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4112
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
Если про гиперсыылку говорить - то нет. а вот например по двойному клику макросом разобрать что в ячейке и открыть то или другое или все вместе -можно.


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеЕсли про гиперсыылку говорить - то нет. а вот например по двойному клику макросом разобрать что в ячейке и открыть то или другое или все вместе -можно.

Автор - bmv98rus
Дата добавления - 02.10.2019 в 13:36
lebensvoll Дата: Среда, 02.10.2019, 13:45 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
Nic70y, в столбцах D; E; F; G указываются № протоколов (файлов)
Их может быть несколько в одной ячейке как видите
Как создать гиперсылку я знаю (чтоб открывался файл).
А вот как создать несколько ссылок (((( не знаю
Но мне кажется это не осуществимо или же только через выпадающий список.
Но нумерацию оператор вбивает от руки (((( в столбцы D; E; F; G


Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеNic70y, в столбцах D; E; F; G указываются № протоколов (файлов)
Их может быть несколько в одной ячейке как видите
Как создать гиперсылку я знаю (чтоб открывался файл).
А вот как создать несколько ссылок (((( не знаю
Но мне кажется это не осуществимо или же только через выпадающий список.
Но нумерацию оператор вбивает от руки (((( в столбцы D; E; F; G

Автор - lebensvoll
Дата добавления - 02.10.2019 в 13:45
Nic70y Дата: Среда, 02.10.2019, 15:00 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 8984
Репутация: 2359 ±
Замечаний: 0% ±

Excel 2010
Если про гиперсыылку говорить - то нет. а вот например по двойному клику

как-то так примерно:
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    u_01 = Target.Value
    u_02 = Application.Substitute(u_01, " ", "")
    u_03 = Application.Substitute(u_02, ";", "")
    u_04 = 0
    If u_01 <> "" Then u_04 = 1
    u_06 = Len(u_02) - Len(u_03) + u_04
    If u_04 = 1 Then
        For u_07 = 1 To u_06
        u_08 = Application.Substitute(";" & u_02, ";", "\", u_07)
        u_09 = Application.Substitute(";" & u_02 & ";", ";", "\", u_07 + 1)
        u_10 = Application.Search("\", u_08)
        u_11 = Application.Search("\", u_09) - 1
        u_12 = Mid(u_02, u_10, u_11 - u_10)
        Workbooks.Open Filename:="D:\" & u_12 & ".xlsx"
        Next u_07
    End If
    Cancel = True
End Sub
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщение
Если про гиперсыылку говорить - то нет. а вот например по двойному клику

как-то так примерно:
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    u_01 = Target.Value
    u_02 = Application.Substitute(u_01, " ", "")
    u_03 = Application.Substitute(u_02, ";", "")
    u_04 = 0
    If u_01 <> "" Then u_04 = 1
    u_06 = Len(u_02) - Len(u_03) + u_04
    If u_04 = 1 Then
        For u_07 = 1 To u_06
        u_08 = Application.Substitute(";" & u_02, ";", "\", u_07)
        u_09 = Application.Substitute(";" & u_02 & ";", ";", "\", u_07 + 1)
        u_10 = Application.Search("\", u_08)
        u_11 = Application.Search("\", u_09) - 1
        u_12 = Mid(u_02, u_10, u_11 - u_10)
        Workbooks.Open Filename:="D:\" & u_12 & ".xlsx"
        Next u_07
    End If
    Cancel = True
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 02.10.2019 в 15:00
  • Страница 1 из 1
  • 1
Поиск:

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