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

質問

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

回答No.3

kuroizell · ベストアンサー

絶対パスを入力してあるのなら簡単ですね。
一括ハイパーリンクを設定したい範囲を選んでから実行して下さい。

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

お礼

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

回答No.4

MackyNo1

＞=HYPERLINK(B1,B1)
としました。ダメでした。循環参照云々のエラーがでました。

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

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

お礼

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

回答No.2

nattocurry

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

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

回答No.1

MackyNo1

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

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

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

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

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

お礼

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