|
|
| Excel VBA Macro ・ ブックシート ・ FAQ |
|
ダブルクリックされたセルの値と同名のブックを開くには？
|
|
|
|
Question 82.1 |
|
 |
 |
|
|
|
ダブルクリックされたセルの文字(数字)と同じファイルを（+".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イベントプロシージャは、ダブルクリックするワークシートのコード画面で作成します。標準モジュールではありません。
ご質問文が短いので主旨を取り違えているかもしれません。ご連絡ください。
|
|
|
|
| |
|
|
