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

Как сделать гиперссылку командной кнопки на URL-адрес в Excel?

В Excel нам может быть легко создать гиперссылку для кнопки формы, но пробовали ли вы когда-нибудь создать гиперссылку на командную кнопку? Когда вы нажмете кнопку команды, она перейдет на указанный URL-адрес веб-сайта по мере необходимости. В этой статье я расскажу о некоторых быстрых и простых приемах для решения этой задачи в Excel.

Гиперссылка командной кнопки на URL-адрес с кодом VBA


стрелка синий правый пузырь Гиперссылка командной кнопки на URL-адрес с кодом VBA

Чтобы создать гиперссылку на командную кнопку, выполните следующие действия:

1. Нажмите разработчик > Вставить > Командная кнопка (элемент управления ActiveX), а затем нарисуйте кнопку, как показано на следующем снимке экрана:

doc гиперссылка командная кнопка 1

2. Вставив командную кнопку, щелкните ее правой кнопкой мыши и выберите Свойства из контекстного меню в Свойства диалоговое окно, нажмите Категории вкладка и введите полный адрес веб-сайта, на который вы хотите создать ссылку, в поле Подпись текстовое поле, см. снимок экрана:

doc гиперссылка командная кнопка 2

3. Затем закройте диалоговое окно, щелкните правой кнопкой мыши вкладку листа, содержащую кнопку команды, и выберите Просмотреть код из контекстного меню, а в открывшемся Microsoft Visual Basic для приложений окна, скопируйте и вставьте следующий код в пустой модуль:

Код VBA: гиперссылка на командную кнопку:

Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink _
Address:=CommandButton1.Caption
End Sub

doc гиперссылка командная кнопка 3

Внимание: В приведенном выше коде CommandButton1 - имя созданной командной кнопки, измените его по своему усмотрению.

4. Затем сохраните код и выйдите из Режим проектирования, теперь, когда вы нажимаете кнопку команды, она переходит на конкретную веб-страницу.

Советы: Если заголовок в командной кнопке не является URL-адресом, это всего лишь текстовая строка, как показано на следующем снимке экрана:

doc гиперссылка командная кнопка 4

Для этого можно применить приведенный ниже код VBA:

Код VBA: гиперссылка на командную кнопку:

Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink _
Address:="https://www.extendoffice.com"
End Sub

doc гиперссылка командная кнопка 5

Внимание: В приведенном выше коде CommandButton1 - это имя созданной командной кнопки, и вам следует заменить адрес веб-сайта https://www.extendoffice.com на ваш собственный URL-адрес.


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (6)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
¿Cómo se podría hacer con un cuadro de texo? Es decir, que cualquier dirección web que se ponga en un cuadro de texto se puede abrir con un boton
спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, можете ли вы показать, как вы можете связать URL-адрес из ячейки на листе?
Этот комментарий был сведен к минимуму модератором на сайте
Gracias me sirvió full.
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Kan je dit ook gebruiken om met een druk van de knop naar bovenaan een sheet te gaan?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Рейвер,
Чтобы нажать кнопку, чтобы перейти в верхнюю часть листа, примените приведенный ниже код:
Private Sub CommandButton1_Click()
ActiveSheet.Range("A1").Select
End Sub

Пожалуйста, попробуйте, надеюсь, это поможет вам!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL