4年に一度のスポーツの祭典 全競技速報中

よろしくお願いします。

仮にあるセルに別ファイルを開くハイパーリンクがはられているとします。このとき以下のようなことをしたいのですが、どうすればよいのでしょうか。

1.まずどのセルにリンクがはられているかを順に調べていくとして、セルにリンクが設定されているか否かを判定するにはどうすればよいでしょうか。
2.次にリンクが設定されているときはそのリンク先のファイルを開くにはどうすればよいでしょうか。

以上です。よろしくお願いします。

gooドクター

A 回答 (1件)

例えば、A1セルにハイパーリンクがあるかどうかは、


Range("A1").HyperLinks.Countで、調べられると思います。

リンク先のファイルを開くにはFollow メソッドを使えば良いと思います。

ですから、セル範囲A1:C5を調べて、ハイパーリンクが設定してあれば、リンクを開くには、以下のようにすれば良いかと思います。

Sub test()
Dim rng As Range
For Each rng In Range("A1:C5")
If rng.Hyperlinks.Count > 0 Then rng.Hyperlinks.Item(1).Follow
Next
End Sub
    • good
    • 2
この回答へのお礼

やりたかったことがばっちりできました。
ありがとうございました。

お礼日時:2006/04/16 18:05

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング