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

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

Создание гиперссылки для командной кнопки на URL-адрес с помощью кода VBA

Создание гиперссылки для командной кнопки на URL-адрес с помощью кода VBA

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

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

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

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

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

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

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

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

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

Вы можете применить следующий код VBA для достижения этого:

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

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

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