Как сделать гиперссылку командной кнопки на URL-адрес в Excel?
В Excel нам может быть легко создать гиперссылку для кнопки формы, но пробовали ли вы когда-нибудь создать гиперссылку на командную кнопку? Когда вы нажмете кнопку команды, она перейдет на указанный URL-адрес веб-сайта по мере необходимости. В этой статье я расскажу о некоторых быстрых и простых приемах для решения этой задачи в Excel.
Гиперссылка командной кнопки на URL-адрес с кодом VBA
Гиперссылка командной кнопки на URL-адрес с кодом VBA
Чтобы создать гиперссылку на командную кнопку, выполните следующие действия:
1. Нажмите Застройщик > Вставить > Командная кнопка (элемент управления ActiveX), а затем нарисуйте кнопку, как показано на следующем снимке экрана:
2. Вставив командную кнопку, щелкните ее правой кнопкой мыши и выберите Объекты из контекстного меню в Объекты диалоговое окно, нажмите Категории вкладка и введите полный адрес веб-сайта, на который вы хотите создать ссылку, в поле Подпись текстовое поле, см. снимок экрана:
3. Затем закройте диалоговое окно, щелкните правой кнопкой мыши вкладку листа, содержащую кнопку команды, и выберите Просмотреть код из контекстного меню, а в открывшемся Microsoft Visual Basic для приложений окна, скопируйте и вставьте следующий код в пустой модуль:
Код VBA: гиперссылка на командную кнопку:
Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink _
Address:=CommandButton1.Caption
End Sub
Внимание: В приведенном выше коде КомандаКнопка1 - имя созданной командной кнопки, измените его по своему усмотрению.
4. Затем сохраните код и выйдите из Режим проектирования, теперь, когда вы нажимаете кнопку команды, она переходит на конкретную веб-страницу.
Tips: Если заголовок в командной кнопке не является URL-адресом, это всего лишь текстовая строка, как показано на следующем снимке экрана:
Для этого можно применить приведенный ниже код VBA:
Код VBA: гиперссылка на командную кнопку:
Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink _
Address:="https://www.extendoffice.com"
End Sub
Внимание: В приведенном выше коде КомандаКнопка1 - это имя созданной командной кнопки, и вам следует заменить адрес веб-сайта https://www.extendoffice.com на ваш собственный URL-адрес.
Лучшие инструменты для офисной работы
Усовершенствуйте свои навыки работы с Excel с помощью Kutools for Excelи испытайте эффективность, как никогда раньше. Kutools for Excel Предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Office Tab Добавляет в Office интерфейс с вкладками и значительно упрощает вашу работу
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
