Excelの一括ハイパーリンクの設定を教えてください

ExcelのB列のセルには、絶対パスで指定されたエクセルのファイル名が入っています。たとえばC:\DATA\見積もり\鈴木様.xlsのようにはいっています。このB列の値にハイパーリンクさせて鈴木様.xlsのデータをExcelで開きたいのです。ただ、B列のデータ数が1000件ほどあるので一括でハイパーリンクを設定したいのです。宜しく、お願いします。
ためしに、ハイパーリンクの関数を使ってB1にそのままハイパーリンクを設定したら循環参照エラーとかになってしまいました。
Excel2003を使用しています。2007もあり。

No.3 ベストアンサー 回答者： kuroizell 回答日時： 2010/01/27 09:34

絶対パスを入力してあるのなら簡単ですね。

一括ハイパーリンクを設定したい範囲を選んでから実行して下さい。

Dim Pass As String
Dim Rng As Range
Dim Cell As Range

Set Rng = Selection

For Each Cell In Rng
　　Pass = Cell.Value
　　ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Pass
Next Cell

End Sub

この回答へのお礼

ありがとうございました。希望どうりのことができました。
感謝いたします。

お礼日時：2010/01/27 14:45

No.4 回答者： MackyNo1 回答日時： 2010/01/27 13:31

＞=HYPERLINK(B1,B1)

としました。ダメでした。循環参照云々のエラーがでました。

もしかしてB1セルに上記の数式を入力したのですか？

たとえばB1セルにフルパスのファイル名が記載されているなら、C1セルに上記の数式を入力してみてください。

この回答へのお礼

C1セルにいれたらできました。ありがとうございました。

お礼日時：2010/01/27 14:47

No.2 回答者： nattocurry 回答日時： 2010/01/27 09:30

> ためしに、ハイパーリンクの関数を使ってB1にそのままハイパーリンクを設定したら循環参照エラーとかになってしまいました。

その入力式を提示しましょう。

No.1 回答者： MackyNo1 回答日時： 2010/01/27 09:30

＞ためしに、ハイパーリンクの関数を使ってB1にそのままハイパーリンクを設定したら循環参照エラーとかになってしまいました。

以下のHYPERLINK関数で問題なく対象ファイルが開けるはずです。

=HYPERLINK(セル番地,表示名)

循環参照が出るということは、その数式自体が間違えていると思われます。

どの数式のどのセルが循環参照しているか調べてみてください。

この回答へのお礼

回答ありがとうございます。
=HYPERLINK(B1,B1)
としました。ダメでした。循環参照云々のエラーがでました。

お礼日時：2010/01/27 09:55