Лаура хочет добавить гиперссылку в рабочий лист. Однако она хотела бы, чтобы гиперссылка «принудительно» отображала целевой URL-адрес в конкретном браузере. Например, она хотела бы, чтобы гиперссылка каким-либо образом указывала, что цель открыта в Internet Explorer.

В Excel нет возможности сделать это; гиперссылка на листе при нажатии зависит от того, какой браузер по умолчанию установлен в используемой системе. Однако есть обходной путь, который вы можете попробовать: вы можете создать макрос, который фактически открывает целевой адрес с помощью определенного браузера.

Например, рассмотрим следующий макрос. Он автоматически открывает экземпляр Internet Explorer и открывает веб-сайт в этом браузере:

Sub LaunchIE()

Dim IE As Object     Set IE = CreateObject("InternetExplorer.Application")

IE.navigate "http://excel.tips.net/"

IE.Visible = True     Set IE = Nothing End Sub

Макрос легко можно назначить сочетанию клавиш. Однако это не очень гибко, когда дело доходит до того, какой браузер используется (это всегда Internet Explorer) и какой сайт отображается (это всегда сайт ExcelTips). Вы можете сделать его немного более гибким:

Sub showURL(browser As String, URL As String)

Dim pPath As String     Dim bPath As String

'Use this to resolve the correct program file path     'it is different on 32-bit and 64-bit systems     pPath = Environ("ProgramFiles")



If browser = "Firefox" Then         bPath = pPath & "\Mozilla Firefox\Firefox.exe"

ElseIf browser = "IE" Then         bPath = pPath & "\Internet Explorer\iexplore.exe"

Else         Exit Sub     End If

Call Shell(bPath & " " & URL, vbNormalFocus)

End Sub
Sub Testing()

Call showURL("Firefox", "/")

Call showURL("IE", "http://excel.tips.net")

End Sub

Обратите внимание, что основная процедура — showURL, выполняющая всю работу — может работать как с Internet Explorer, так и с Firefox. Процедура тестирования показывает, как запускать браузеры; все, что вам нужно сделать, это указать, какой браузер вы хотите и какой URL-адрес вы хотите открыть в этом браузере.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (9836) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Specifying_a_Browser_in_a_Hyperlink [Указание браузера в гиперссылке].