セルをダブルクリックしてリンク元のファイルを開く方法を教えて下さい

質問

OSはWINDOW98です。エクセルを使っていて、あるセルにそのセルのあるファイルとは別のファイルにリンクしている計算式を入れている時に、普通は、そのセルをクリックすと計算式を表示するのですが、ダブルクリックするとその(リンク元の)別ファイルが開くような設定の仕方があると思いますが、その設定の仕方を教えて下さい。

回答No.1

Hageoyadi · ベストアンサー

肝心のExcelのバージョンが・・・
A 2000か2002でしたら、ダブルクリックではなくクリックになりますが、
1.セルを右クリック
2.垂れふんどしの一番下の「ハイパーリンク」を選択。
3.リンク先に開きたいファイルのアドレス（フルパス）を入力（か、ウインドウ内をエクスプローラのようにたどって指定することも出来ます）。

B そういう意味じゃなくて、VLOOKUP関数のリンク元をたどりたいのでしたら「編集」→「リンクの設定」→「リンク元を開く」で・・・あ、違いますね。

C まんま、ダブルクリックでそのセルに記入されたファイルを開く
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)

'セルに入力されているファイルが存在するフォルダ
Const myDir As String = "C:\"

ChDrive myDir
ChDir myDir

On Error Resume Next
Workbooks.Open Target.Value
Cancel = True

End Sub

多分C案ですね。

補足

早々とご回答有り難う御座います。
VERSIONは98です。
C案(ダブルクリックでそのセルに記入されたファイルを開く）の設定の仕方が良く判らないのですが・・・。
確か、「ツール」か何かから設定したような気がするのですが、違っていたらすみません。

回答No.3

misatoanna

ＶＢは得意ではありませんが、ご質問の内容にちょっと興味を持ちましので、色々
考えてみました。
で――ルールにのっとらないバタバタした記述ですが、動いちゃいました。

シートモジュールで
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Select
ZZZ = ActiveCell.Formula
ST1 = Application.WorksheetFunction.Find("C:", ZZZ)
ST2 = Application.WorksheetFunction.Find("[", ZZZ)
ED = Application.WorksheetFunction.Find("]", ZZZ)
BK = Mid(ZZZ, ST1, ST2 - ST1) & Mid(ZZZ, ST2 + 1, ED - ST2 - 1)
Workbooks.Open Filename:=BK
End Sub

でも、含まれるブック名は１種類のみでフルパス表記の場合です。

回答No.2

Hageoyadi

ツール→マクロ→マクロ→お好きな名前を入力→作成→先ほどの記述をコピペ・・・なんですが、
げ、動かない！？

ちょっと勉強しなおします。

じゃ、
http://www.okweb.ne.jp/kotaeru.php3?q=402826
は参考になります？

個人的に・・・imogasiさんに助けてほしい。