Excel2007 セルをダブルクリック

質問

お願います。
顧客管理ファイルの顧客シートの顧客名セルをダブルクリックすると

見積書ファイルが開いてダブルクリックした顧客名セルの内容を提出先顧客名セルへ転記したい。
見積書（テンプレート）の見積書シート

出来れば「○○○株式会社」→「○○○株式会社　御中」で貼り付けしたいです。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Worksheets("顧客シート").Range(ActiveCell).Copy
Workbooks.Open "\C\見積書\2012年度\見積書(テンプレート).xls"
Workbooks("見積書(テンプレート).xls").Worksheets("見積書").Range("a4").PasteSpecial
End Sub

こんなん書いてみましたがどうも上手くいきません・・・
ご指導のほどお願いします。

回答No.1

keithin · ベストアンサー

顧客管理ファイルの顧客シートの「Ｂ列」に顧客名が列記されているとして。

手順：
顧客シートのシート名タブを右クリックしてコードの表示を選ぶ
現れたシートの内容を綺麗に消去して，下記をコピー貼り付ける

private sub Worksheet_BeforeDoubleClick(byval Target as excel.range, cancel as boolean)
if application.intersect(target, range("B:B")) is nothing then exit sub
if target = "" then exit sub
workbooks.open "C:\見積書\2012年度\見積書(テンプレート).xls"　　’誤記訂正済み見落とさないこと
workbooks("見積書(テンプレート).xls").worksheets("見積書").range("A4").value = target.value & " 御中"
cancel = true
end sub

お礼

ありがとうございます！！

keithinさん凄いです！

もっと勉強いたします(^^;;;