エクセル 表から選択→入力する方法

質問

エクセル2003

添付画像の様な表がある場合
表から選択（クリック）するだけで、任意（赤いセル）にその
数値を入力する方法を教えて下さい。

例：表の8月”ｂ”のセルをクリックするだけで
赤いセルにその”ｂ”が入力される。

宜しくお願い致します。

回答No.2

keithin

ご質問に掲示されたその通りにサンプルエクセルを作成する

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

private sub Worksheet_SelectionChange(byval Target as excel.range)
　if application.intersect(activecell, range("D7:F9")) is nothing then exit sub
　range("B3").value = activecell.value
end sub

ファイルメニューから終了してエクセルに戻る
表内のセルをクリックする。

回答No.1

tom04

こんにちは！

＞表から選択（クリック）するだけで・・・

この場合、間違ったセルを選択しても其のセルが表示されてしまいますので、
ダブルクリックとしています。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストして、表内（D7～F9セル）をダブルクリックしてみてください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'この行から
If Application.Intersect(Target, Range("D7:F9")) Is Nothing Then Exit Sub
Cancel = True
Range("B3") = Target
End Sub 'この行まで

※　本来であればB3セルを空白にするコードも必要なのかもしれませんが、
今回はこの程度で・・・m(_ _)m