Lauraは、ワークシートにハイパーリンクを含めたいと考えています。ただし、彼女は、特定のブラウザに表示されるURLのターゲットを「強制」するハイパーリンクを望んでいます。たとえば、彼女はハイパーリンクで、ターゲットをInternetExplorerで開くように指定したいと考えています。

Excel内でこれを行う方法はありません。ワークシートのハイパーリンクをクリックすると、使用されているシステムのデフォルトのブラウザに依存します。ただし、試すことができる回避策があります。特定のブラウザを使用して、ターゲットアドレスを実際に開くマクロを作成できます。

たとえば、次のマクロについて考えてみます。 Internet Explorerのインスタンスを自動的に開き、そのブラウザーでWebサイトを開きます。

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）は、InternetExplorerまたはFirefoxのいずれかで機能することに注意してください。テストルーチンは、ブラウザを起動する方法を示しています。あなたがする必要があるのはあなたが望むブラウザとあなたがそのブラウザで開きたいURLを指定することです。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（9835）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

linkハイパーリンクでのブラウザの指定。