Excel 参照セルをクリック操作で入れ替え

質問

Excelで、
A列に　１～ｎ
B列に文字列　　B1・・・PQR　　B2・・・UVW
と書き入れた表１があります。

ブック内の別の1個の固定セルに、
表１のA1をクリックしたとき　　　PQRと表示・・・式　(=B1)
表１のA2をクリックしたとき　　　UVWと表示・・・式　(=B2)
となるなるようにしたいのですが、どうしたらよいでしょうか。
教えてください、よろしくお願いします。

回答No.2

mu2011

関数ではできないのでＶＢＡのイベントプロシージャになります。
その他キーとからまない様にダブルクリックで選択する事としています。
同一シート内の固定セル（サンプルではE1）に数式を設定します。

一例です。
（１）表のシートタブ上で右クリック→コードの表示→サンプルコードの貼り付けて
　　　操作してみて下さい
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("a:a")) Is Nothing Then Exit Sub
Range("E1").Formula = "=B" & Target.Row
End Sub

お礼

mu2011さん　ありがとうございました。

補足

mu2011さん　早速ありがとうございます。
シートにコードを設定することがわかりました。
追加でご教示くださいますでしょうか。

記入対象のシートと表のシートが別になっていて、表のシートから操作する場合の記述を教えてください、よろしくお願いします。

回答No.1

keithin

シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub worksheet_selectionchange(byval Target as excel.range)
on error resume next
range("D1") = application.intersect(activecell, range("A:A")).offset(0, 1).value
end sub

ファイルメニューからエクセルに戻り，A列のセルをクリックする。

お礼

keithinさん　ありがとうございました。