Гиперссылки в Excel / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Гиперссылки в Excel

4 сообщений из 4, страница 1 из 1

Гиперссылки в Excel

#38674525

emlonlife

Гость

Здравствуйте!
Есть Excel файл (назовем его Файл1 ), в котором следующие столбцы:
Номер|Ссылка|Фрагмент ссылки
В столбце "фрагмент ссылки" имеется следующее: \Google Диск\Работа\........
Т.е. это фрагмент ссылки, по которой будет клеиться весь адрес ссылки.
Следующим кодом я формирую гиперссылку:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
username1 = Environ("USERNAME")
Dim nach As String
Dim kanec As String
Dim oRange As Range
Dim i As Long
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row 'считаем кол-во строк
For i = 2 To lLastRow
nach = "C:\Users\" ' задаем начало ссылки
kanec = nach & username1 & Worksheets(1).Cells(i, 3) ' задаем адрес ссылки
With ThisWorkbook.Worksheets(1).Cells(i, 2)
.Hyperlinks.Add Anchor:=Cells(i, 2), Address:=kanec
.Cells.Value = Worksheets(1).Cells(i, 1)
End With
Next i
End Sub

Т.е. при сохранении файла макрос заново прописывает для всех ячеек в столбце "Ссылка" ссылку.
Понимаю, что код кривой, но, в принципе, работает и хорошо. Вопрос не в этом.

Собственно, вопрос. Есть другой файл (назовем его Файл2 ). В ячейки первого столбца Файла2 нужно копировать адреса гиперссылок из Файла1, если они совпадают. Т.е. Если ячейка A4 Файла2 совпадает с ячейкой A17 Файла1 (или какой бы то ни было ячейки Файла1 в столбце A), то берется гиперссылка из ячейки B17 Файла1 и прописывается в ячейку A4 Файла2.

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

...

Рейтинг:

0 / 0

19.06.2014, 16:19

| Ответить | Цитировать | Написать

Гиперссылки в Excel

#38676550

emlonlife

Гость

Неужели ни кто не знает?

...

Рейтинг:

0 / 0

22.06.2014, 13:46

| Ответить | Цитировать | Написать

Гиперссылки в Excel

#38677215

Eugene_p1

Гость

kanec = этапяяяяять.
кОнец, если чо.

По сути вопроса: зачем такой колхоз?
Присвойте какой-нить ячейке, скажем, А1, имя типа "UserNameTxt" и при открытии втыкайте в неё имя пользователя (причем, возможно, это получится сделать не макросом , а средствами Excel, что гораздо правильнее. Тогда, если у вас больше нет макросов, получившийся файл не будет создавать лишнего гемора с безопасностью).
А далее всё просто:
A B C D E1 www.yandex.ru =ГИПЕРССЫЛКА(" http://" & B1 & C1 & D1 & "/" & UserNameTxt)

Вотъ.

...

Рейтинг:

0 / 0

23.06.2014, 13:56

| Ответить | Цитировать | Написать

Гиперссылки в Excel

#38677231

Eugene_p1

Гость

Eugene_p1,

Что касается поиска гиперссылки.

Тут поможет функция ВПР:

=ВПР(A1;'D:\Folder\[File1.xls]Лист1!A1:A1000';2;ЛОЖЬ)

Но учтите-ВПР подойдёт только если нужное значение располагается справа от искомого.
Т.е., то, что вы хотите получить, должно быть в столбце B или правее.

...

Рейтинг:

0 / 0

23.06.2014, 14:02

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Гиперссылки в Excel

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&gotonew=1&tid=2173977]:	0ms
get settings:	10ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	26ms
get topic data:	11ms
get first new msg:	7ms
get forum data:	2ms
get page messages:	34ms
get tp. blocked users:	1ms
others:	283ms

total:	396ms