ダブルクリックされたセルの値と同名のブックを開くには?

Question 82.1 Previous Next
ダブルクリックされたセルの文字(数字)と同じファイルを(+".xls")特定のフォルダーから開くには?
Answer   Copyright (C) 2007.6.2 永井善王
ワークシート 右図のようなワークシートで、たとえば、
A1セルがダブルクリックされた場合は Book1.xls が、
A2セルがダブルクリックされた場合は Book2.xls がというように

ダブルクリックされたセルに入っている値に、拡張子 ".xls" を連結したブック名のファイルを開くためのマクロなら、下記のように、Worksheet_BeforeDoubleClickイベントプロシージャとして作成すれば実現できます。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
                                        Cancel As Boolean)
    Cancel = True                           'イベントを無効にする
    ブック名 = Target.Value                 'ダブルクリックされたセルの値を取得する
    フォルダー名 = ActiveWorkbook.Path      '※
    Workbooks.Open Filename:=フォルダー名 & "\" & ブック名 & ".xls" _
                                            '指定されたブックを開く
End Sub
開こうとするファイルが現在フォルダーに入っている場合は、フォルダー名の指定(※など)を省略できます。
Worksheet_BeforeDoubleClickイベントプロシージャは、ダブルクリックするワークシートのコード画面で作成します。標準モジュールではありません。
ご質問文が短いので主旨を取り違えているかもしれません。ご連絡ください。

 

Excel VBA Macro