Note: The other languages of the website are Google-translated. Back to English

Як перейти за гіперпосиланням на прихований аркуш у Excel?

Наприклад, у мене є книга, яка містить кілька аркушів, перший головний аркуш має гіперпосилання на інші аркуші, і тепер я приховую всі аркуші, крім першого. У цьому випадку гіперпосилання, які посилаються на приховані аркуші, недоступні. Але як можна змусити ці гіперпосилання успішно працювати? Після натискання одного гіперпосилання зв’язаний прихований аркуш буде відкрито відразу, як показано на наступному знімку екрана:

doc гіперпосилання на прихований аркуш 1

За гіперпосиланням відкрийте прихований аркуш із кодом VBA

За гіперпосиланням відкрийте прихований аркуш, а потім знову сховайте його за допомогою коду VBA


За гіперпосиланням відкрийте прихований аркуш із кодом VBA

Наступний код VBA може допомогти вам відкрити прихований аркуш, натиснувши його відносне гіперпосилання, будь-ласка, зробіть так:

1. Клацніть правою кнопкою миші вкладку аркуша, за яким потрібно перейти за гіперпосиланням на прихований аркуш, а потім виберіть Переглянути код з контекстного меню, що з’явиться Microsoft Visual Basic для додатків вікно, скопіюйте та вставте наступний код у порожній модуль:

Код VBA: За гіперпосиланням відкрийте прихований аркуш:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    On Error Resume Next
    If Target.Column = 1 Then
        Sheets(Target.Value).Visible = xlSheetVisible
        Sheets(Target.Value).Select
    End If
    Application.ScreenUpdating = True
End Sub

doc гіперпосилання на прихований аркуш 2

примітки: У наведеному вище коді номер 1 В цьому Якщо Target.Column = 1 Тоді скрипт вказує номер стовпця, який містить гіперпосилання, будь ласка, змініть його за вашими потребами.

2. Потім збережіть і закрийте це вікно коду, тепер, коли ви клацнете гіперпосилання, яке посилається на конкретний прихований аркуш, прихований аркуш буде відразу відкрито.


За гіперпосиланням відкрийте прихований аркуш, а потім знову сховайте його за допомогою коду VBA

Іноді вам потрібно перейти за гіперпосиланням, щоб відкрити прихований аркуш, а коли повернетеся до головного аркуша, ви хочете, щоб відкритий аркуш знову був прихований. Наведений нижче код VBA може зробити вам послугу:

1. Клацніть правою кнопкою миші вкладку аркуша, за яким потрібно перейти за гіперпосиланням на прихований аркуш, а потім виберіть Переглянути код з контекстного меню, що з’явиться Microsoft Visual Basic для додатків вікно, скопіюйте та вставте наступний код у порожній модуль:

Код VBA: Перейдіть за гіперпосиланням, щоб відкрити прихований аркуш, коли повернетесь, щоб приховати його знову:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice
    Application.ScreenUpdating = False
    Dim strLinkSheet As String
    If InStr(Target.Parent, "!") > 0 Then
        strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
    Else
        strLinkSheet = Target.Parent
    End If
    Sheets(strLinkSheet).Visible = True
    Sheets(strLinkSheet).Select
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Activate()
    On Error Resume Next
    Sheets(ActiveCell.Value2).Visible = False
End Sub

doc гіперпосилання на прихований аркуш 3

2. Потім збереження оголошення закриває вікно коду, коли ви натискаєте гіперпосилання, зв’язаний прихований аркуш буде негайно відкритий, але, якщо повернутися до головного аркуша, що містить гіперпосилання, відкритий аркуш знову буде автоматично прихований.

примітки: Коди тез застосовуються лише до назв аркушів, які відповідають тексту вашого гіперпосилання.


Демо: Перейдіть за гіперпосиланням, щоб відкрити прихований аркуш із кодом VBA

Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (9)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Я намагаюся приховати аркуш із гіперпосиланням. Я хотів би мати можливість клацнути на аркуші, перейти до аркуша гіперпосилання, а потім клацнути назад до аркуша та закрити прихований аркуш. Я спробував ваші інструкції, але вони не працюють. Не знаю, що я роблю неправильно.
Цей коментар був мінімізований модератором на сайті
У мене є прихований аркуш, який містить гіперпосилання. Я хотів би мати можливість перейти до прихованого аркуша та закрити його, коли повернусь до вихідного аркуша. Я використовував код, але він не працює.
Цей коментар був мінімізований модератором на сайті
Я використовував цей код на двох різних аркушах своєї робочої книги, і в обох випадках він чудово працює, за винятком першого гіперпосилання на кожній сторінці. Я отримую "Помилка нижнього індексу за межами діапазону", а налагоджувач вказує на "Sheets(strLinkSheet).Visible = True" відразу після "end if". Хтось ще бачить цю помилку? Це лише на першому посиланні на сторінці. (мої гіперпосилання знаходяться в стовпці A і починаються в рядку 2)
Цей коментар був мінімізований модератором на сайті
[quote]Я використовував цей код на двох різних аркушах своєї робочої книги, і в обох випадках він працює чудово, за винятком першого гіперпосилання на кожній сторінці. Я отримую "Помилка нижнього індексу за межами діапазону", а налагоджувач вказує на "Sheets(strLinkSheet).Visible = True" відразу після "end if". Хтось ще бачить цю помилку? Це лише на першому посиланні на сторінці. (мої гіперпосилання знаходяться в стовпці A і починаються в рядку 2)Автор: HelzBelz[/quote] Назви аркушів не можуть містити простір, як-от "Аркуш 1". Я виправив свої назви аркушів на "Sheet1", і помилка припинилася.
Цей коментар був мінімізований модератором на сайті
Я використовую код на двох різних аркушах. Він працює для одного з приблизно 40 гіперпосилань на одному аркуші, і він відкриває два з приблизно 10 гіперпосилань одну секунду, аркуші на другому, які відкриваються, знову приховуються, коли я повертаюся до аркуша. Помилка, яку я отримую, коли він не відкриває аркуш, – це помилка під час виконання "9": сценарій виходить за межі діапазону та код, на який він мене вказує - Sheets(strLinkSheet).Visible = True Будь-які ідеї щодо того, що потрібно змінити, роблять код працює на всіх аркушах? Спасибі заздалегідь.
Цей коментар був мінімізований модератором на сайті
Моє гіперпосилання "текст" є лише числом, і воно не працює...
Цей коментар був мінімізований модератором на сайті
Я хотів би використовувати цей код, але хочу, щоб він застосовувався лише до стовпця A. У мене є інші посилання на веб-адресу в інших клітинках, які викликають проблему під час запуску цього коду.
Цей коментар був мінімізований модератором на сайті
Я створив багато підручників і хочу проіндексувати їх на одній сторінці.

NB: Я хочу приховати всі аркуші, аркуші будуть пов’язані з налаштуванням зображення на головну сторінку. Натиснувши зображення, буде показано пов’язаний аркуш, а коли я повернуся до основного аркуша, аркуш сховати знову буде приховано
Цей коментар був мінімізований модератором на сайті
Не впевнений, чи отримаю відповідь на це, але коли я натискаю будь-яке зі своїх гіперпосилань, я отримую помилку «посилання не дійсне».
Все ще працює, мені просто потрібно натиснути ОК, щоб продовжити.
Хтось має ідею, що викликає цю помилку для цього коду?
Спасибі,
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця