Excel+Гиперссылка+ИмяЛиста

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

1. Имя текущего листа можно вычислить так:
=ПСТР(ЯЧЕЙКА("имяфайла";A1);НАЙТИ("]";ЯЧЕЙКА("имяфайла";A1))+1;99999)
Но это не работает если файл еще ниразу не сохранен (создается новый файл)

2. Приведите пример "не работы" функции ГИПЕРССЫЛКА. Имя листа при копировании образуется автоматически, путем добавления (если это необходимо в конце имени числа в круглых скобках. При создании нового листа образуется имя вида "Лист ХХ". Эти 2 правила образования имен новых листов изменить нельзя.
Исключение составляет возможность исполдьзования макроса-обработчика события NewSheet (выполняющегося автоматически при добавлении нового листа), но это касается только создания новых листов, а не создания листов путем копирования.
Так что, увы...
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

2. Если имя листа содержит символы, иные, нежели буквы и цифры, то в "длинных" ссылках имя листа должно браться в одинарные кавычки. Т.е. =ГИПЕРССЫЛКА("[Файл.xls]'(Nлиста)'!Ячейка";ДругаяЯчейка). Чтобы гиперссылка "следовала" за переименованием, имя листа в ссылке надо вычислять по формуле выше. Тогда при переименовании листа гиперссылка окажется вычисляемой и будет автоматически перестраиваться.

Ссылка
=ГИПЕРССЫЛКА("[C:\Мои документы\0.xls]'" & ПСТР(ЯЧЕЙКА("имяфайла";'(1)'!A6);НАЙТИ("]";ЯЧЕЙКА("имяфайла";A1))+1;99999) & "'!B5";123123)
Указывает на А6 на листе который называется '(1)'. Причем лист '(1)' можно как угодно переименовать, гиперссылка будет указывать туда же, куда и указывала.
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

Удачи. Спрашивайте, если что.
esquire
Сообщения: 2
Зарегистрирован: 15 апр 2008, 16:54

Добрый день!
Такой вопрос...В компании создается библиотечный каталог в EXCEL. На сервере лежит куча заархивированных книг. Как перенести все их "по-умному"? т.е. не копируя отдельно названия, не создавая вручную отедльно каждой книге гиперссылке? Спасибо заранее..
Аватара пользователя
DzenDen1
Сообщения: 38
Зарегистрирован: 29 ноя 2007, 12:03

esquire,
Попробуйте ЭТО.

Должно помочь.!!!
Вложения
Files_Folders_1.1.zip
(37.31 КБ) 59 скачиваний
esquire
Сообщения: 2
Зарегистрирован: 15 апр 2008, 16:54

Блин..не могу похвастаться хорошим владением EXCEL. расскажи , плиз, пободробнее что делать..кнопки не работают(если это кнопки). а когда я вставляю другой путь, то файлы из указанной директории не отображаются.спасибо заранее!!!
Аватара пользователя
DzenDen1
Сообщения: 38
Зарегистрирован: 29 ноя 2007, 12:03

esquire,
Нинаю,Все работает как часы, может лажа.
Держи еще раз.
Вложения
Files_Folders_version_1.1.zip
(39.16 КБ) 60 скачиваний
Ответить