ハイパーリンクを設定せずにリンクを開く Excel 2013　マクロ講座

シートにハイパーリンクを設定しないでリンクを開くコードは次のようになります。

Sub リンクをWSHで開く()
    Dim WSH
    Set WSH = CreateObject("Wscript.Shell")
    WSH.Run "http://kokodane.com/mini_macro20.htm", 3
    Set WSH = Nothing
End Sub
    

利用する時は、コードは変更せずに、このままで4行目のURLの部分だけ開きたいURLに変えます。
WSHのRunメソッドに指定するファイル名には空白を含めないというルールにだけ気をつけてください。
アドレスの後ろの3という数値がきになるかもしれませんが、Runメソッドの引数で、プログラムのウィンドウの外観を示す整数値です。

0：ウィンドウを非表示にし、別のウィンドウをアクティブにします。
1：ウィンドウをアクティブにして表示します。
2：ウィンドウをアクティブにし、最小化ウィンドウとして表示します。
3：ウィンドウをアクティブにし、最大化ウィンドウとして表示します。
数値は10までありますが、今回は省略します。
コードを利用してノートパッドを開く場合はこのようになります。

Sub notepad()
    Dim WSH
    Set WSH = CreateObject("WScript.Shell")
    WSH.Run "%windir%\notepad "
    Set WSH = Nothing
End Sub
    

シートにハイパーリンクを設定しないでリンクを開くコードは、シート上にボタンを設置してコードを設定すると使いやすくなります。