![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjcbYeo4Utxg7-TEt1CNG9JBhphPOgiCjSuzbMZa-bugs8qFyXWwAhnmyr4bSSDZoYJ5FwXbvaYGfmmzc-hRwtAZTgYh9A6pgHItIC10mc4bc8Pv-wCBHUBK9CN7D3SKic0qg09Qm8sFhFr/s1600/xls-icon-3385-2.png)
セルにハイパーリンクを設定するには、Hyperlinks.Addメソッドを使います。
例
たとえば、セルB3にハイパーリンクを設定するには次のように記述します。
Sub SetHyperLink() Hyperlinks.Add Range("B3"), "http://hosopro.blogspot.jp/" End Sub
実行結果
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjTU4h7RdBuaBX4xrO0YxCKnl8jc40GwMgD_YUDhvFXvD7lJAP8DNdK6O7Mhpvz-qBNFa0lf51eyh4jw8ywz98dt-RTbZRaaT9Zzf0PUQnPJaFSh3dtzRiMWvcF5HZo7eui_F7a5erpjroU/s1600/excel_vba_hyperlinks_add.png)
comments powered by Disqus
スポンサーリンク
2017年6月30日 (金) 23:26 in Excel , VBA
Sub SetHyperLink() Hyperlinks.Add Range("B3"), "http://hosopro.blogspot.jp/" End Sub
スポンサーリンク