セルに入力されているアドレスでハイパーリンクを開き

質問

http://officetanaka.net/excel/vba/tips/tips42.htm
これを同じようにしてるのですが
Sub test()
Range("a1").Value = "http://www.goo.ne.jp/"
Range("a1").Hyperlinks(1).Follow NewWindow:=True
End Sub
これだとエラーになるのですがどうしてでしょうか？

「インデックスが有効範囲にありません。」
と言われます。

セルに入力されているアドレスでハイパーリンクを開きたいです。

回答No.1

tsubuyuki · ベストアンサー

リンク先（オフィスタナカさま）にも書いてある通り、

　　Range("a1").Hyperlinks(1).Follow NewWindow:=True

は「すでにセルに設定されているハイパーリンク」を開くためのコードです。

　　Range("a1").Value = "http://www.goo.ne.jp/"

だけで指定しても
セルにハイパーリンクを設定できない＝Ａ１セルにはハイパーリンクが設定されていないため、
「インデックスが有効範囲にありません。」と言われてしまいます。

> セルに入力されているアドレスでハイパーリンクを開きたい

必要性もあまりよくわかりませんが、それは価値観の違いとして、
同ページの「IEを指定して開く方法(2)」を参考になさると良いと思いますよ。

お礼

ありがとうございます。

回答No.4

keithin

＞セルに入力されているアドレスでハイパーリンクを開きたい

ふつーに
range("A1") = "http://www.goo.ne.jp"
activeworkbook.followhyperlink address:=range("A1").value
とかで。

お礼

ありがとうございます。

回答No.3

DOUGLAS_

＞セルに入力されているアドレスでハイパーリンクを開きたいです。

Range("a1").Hyperlinks(1).Follow NewWindow:=True

を

ActiveWorkbook.FollowHyperlink Range("a1").Value

にしてみてください。

お礼

ありがとうございます。

回答No.2

okgoripon

Sub test()
Range("a1").Value = "http://www.goo.ne.jp/"
ActiveSheet.Hyperlinks.Add Range("A1"), Range("A1").Value
Range("A1").Hyperlinks(1).Follow NewWindow:=True
End Sub

Valueへの代入だけだとURLとして認識されないようですね。

お礼

ありがとうございます。