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

Вход

Регистрация

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

 

= Мир MS Excel/Гиперссылка на конкретный лист - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Гиперссылка на конкретный лист
Frost_imp Дата: Понедельник, 01.04.2013, 18:18 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Добрый день!
Подскажите, как создать гиперссылку, чтобы по клике на ней не просто открывался файл, но и конкретный лист в этом файле?
Поиск по гуглу результатов не дал, вопрос, заданный на соседнем форуме тоже остается без ответа.
Файл приложил, но только из-за правил, ибо писать в него особенно нечего.
К сообщению приложен файл: sample.xlsx (7.9 Kb)
 
Ответить
СообщениеДобрый день!
Подскажите, как создать гиперссылку, чтобы по клике на ней не просто открывался файл, но и конкретный лист в этом файле?
Поиск по гуглу результатов не дал, вопрос, заданный на соседнем форуме тоже остается без ответа.
Файл приложил, но только из-за правил, ибо писать в него особенно нечего.

Автор - Frost_imp
Дата добавления - 01.04.2013 в 18:18
Rave Дата: Понедельник, 01.04.2013, 18:49 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 2 ±
Замечаний: 0% ±

Frost_imp, почитайте здесь
http://office.microsoft.com/ru-ru/excel-help/HP010342583.aspx

Переход к конкретной области во внейшней книге
В приведенном ниже примере создается гиперссылка на область Totals в другой (внешней) книге Mybook.xlsx.
=ГИПЕРССЫЛКА("[C:\My Documents\Mybook.xlsx]Totals")
 
Ответить
СообщениеFrost_imp, почитайте здесь
http://office.microsoft.com/ru-ru/excel-help/HP010342583.aspx

Переход к конкретной области во внейшней книге
В приведенном ниже примере создается гиперссылка на область Totals в другой (внешней) книге Mybook.xlsx.
=ГИПЕРССЫЛКА("[C:\My Documents\Mybook.xlsx]Totals")

Автор - Rave
Дата добавления - 01.04.2013 в 18:49
RAN Дата: Понедельник, 01.04.2013, 19:31 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Понравилось на этом соседнем форуме
Цитата
А что на самом деле хотел сказать Frost_Imp никто не знает

Поглядел вопрос там и задумался - а что нать? Макрос или ручками?


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеПонравилось на этом соседнем форуме
Цитата
А что на самом деле хотел сказать Frost_Imp никто не знает

Поглядел вопрос там и задумался - а что нать? Макрос или ручками?

Автор - RAN
Дата добавления - 01.04.2013 в 19:31
Rave Дата: Понедельник, 01.04.2013, 20:17 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 2 ±
Замечаний: 0% ±

RAN, имхо, в этой теме ни слова не было про VBA, а значит надо формулой.
А в том форуме вопрос был только про VBA.
Но я проверил: если включить макрорекордер и вставить формулу, она записывается более-менее адекватно, а значит при желании формулу превратить в макрос можно smile
 
Ответить
СообщениеRAN, имхо, в этой теме ни слова не было про VBA, а значит надо формулой.
А в том форуме вопрос был только про VBA.
Но я проверил: если включить макрорекордер и вставить формулу, она записывается более-менее адекватно, а значит при желании формулу превратить в макрос можно smile

Автор - Rave
Дата добавления - 01.04.2013 в 20:17
RAN Дата: Понедельник, 01.04.2013, 20:24 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата (Rave)
значит при желании формулу превратить в макрос можно

И зачем превращать?
Там и готовый макрос есть.

PS А вот как ручками (без формул и макросов) вставить знаете? smile


Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Понедельник, 01.04.2013, 20:26
 
Ответить
Сообщение
Цитата (Rave)
значит при желании формулу превратить в макрос можно

И зачем превращать?
Там и готовый макрос есть.

PS А вот как ручками (без формул и макросов) вставить знаете? smile

Автор - RAN
Дата добавления - 01.04.2013 в 20:24
Rave Дата: Понедельник, 01.04.2013, 20:33 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 2 ±
Замечаний: 0% ±

Цитата (RAN)
А вот как ручками (без формул и макросов) вставить знаете?


комбинацией клавиш ctrl + К?
у меня не получилось в адресе прописать лист книги и ячейку sad
так только саму книгу получается
 
Ответить
Сообщение
Цитата (RAN)
А вот как ручками (без формул и макросов) вставить знаете?


комбинацией клавиш ctrl + К?
у меня не получилось в адресе прописать лист книги и ячейку sad
так только саму книгу получается

Автор - Rave
Дата добавления - 01.04.2013 в 20:33
Frost_imp Дата: Вторник, 02.04.2013, 08:55 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Комрады, извиняюсь за то, что дезинформировал вас. Действительно, я не сказал про VBA (а именно этот метод меня интересовал) ни слова.
Ответ был дан, поможет конструкция SubAddress:="Лист!A1", то есть

[vba]
Код
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"папка\файл.xlsx", SubAddress:="Лист!A1", TextToDisplay:= _
"ссылка"
[/vba]
Еще раз извиняюсь за беспокойство!
 
Ответить
СообщениеКомрады, извиняюсь за то, что дезинформировал вас. Действительно, я не сказал про VBA (а именно этот метод меня интересовал) ни слова.
Ответ был дан, поможет конструкция SubAddress:="Лист!A1", то есть

[vba]
Код
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"папка\файл.xlsx", SubAddress:="Лист!A1", TextToDisplay:= _
"ссылка"
[/vba]
Еще раз извиняюсь за беспокойство!

Автор - Frost_imp
Дата добавления - 02.04.2013 в 08:55
elo4ka07 Дата: Понедельник, 07.09.2015, 08:24 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Помогите кто-нибудь, пожалуйста.... Пытаюсь сделать [u]гиперссылку [/u]по аналогии, но не получается сослаться на нужный лист. Написала программку где добавляется шифр товара и по нему по кнопке создается новый лист с соответствующем именем:

ub Кнопка2_Щелчок()
With Application.Workbooks.Item("Карточка_учета.xlsm")
If (ActiveCell.Column = 2) And (Not IsEmpty(ActiveCell.Value)) Then 'проверяет активную ячейку пустая ли она
a = ActiveCell.Address
x = ActiveCell.Value
Sheets("Шаблон").Copy , After:=Sheets("Общий перечень обозначений")'копирует лист Шаблон и вставляет после Общего перечня обозначений
ActiveSheet.Name = x 'присваивает имя новому листу по выделенной ячейке
Sheets("Общий перечень обозначений").Hyperlinks.Add Anchor:=Sheets("Общий перечень обозначений").Range(a), Address:="Карточка_учета.xlsm", SubAddress:= _
"x!A1"
, TextToDisplay:=x 'присваивает гиперссылку
End If
End With
End Sub

Проблема в том, что я не знаю как правильно сослаться на этот лист, ведь у него каждый раз новое имя.
[moder]Читаем Правила форума, создаём свою тему. Эта тема закрыта[/moder]
К сообщению приложен файл: 5913179.xlsm (79.2 Kb)


Сообщение отредактировал Pelena - Понедельник, 07.09.2015, 08:30
 
Ответить
СообщениеПомогите кто-нибудь, пожалуйста.... Пытаюсь сделать [u]гиперссылку [/u]по аналогии, но не получается сослаться на нужный лист. Написала программку где добавляется шифр товара и по нему по кнопке создается новый лист с соответствующем именем:

ub Кнопка2_Щелчок()
With Application.Workbooks.Item("Карточка_учета.xlsm")
If (ActiveCell.Column = 2) And (Not IsEmpty(ActiveCell.Value)) Then 'проверяет активную ячейку пустая ли она
a = ActiveCell.Address
x = ActiveCell.Value
Sheets("Шаблон").Copy , After:=Sheets("Общий перечень обозначений")'копирует лист Шаблон и вставляет после Общего перечня обозначений
ActiveSheet.Name = x 'присваивает имя новому листу по выделенной ячейке
Sheets("Общий перечень обозначений").Hyperlinks.Add Anchor:=Sheets("Общий перечень обозначений").Range(a), Address:="Карточка_учета.xlsm", SubAddress:= _
"x!A1"
, TextToDisplay:=x 'присваивает гиперссылку
End If
End With
End Sub

Проблема в том, что я не знаю как правильно сослаться на этот лист, ведь у него каждый раз новое имя.
[moder]Читаем Правила форума, создаём свою тему. Эта тема закрыта[/moder]

Автор - elo4ka07
Дата добавления - 07.09.2015 в 08:24
  • Страница 1 из 1
  • 1
Поиск:

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