Excel 別シートのセル参照

質問

Excel で、二つのシート間でセル参照したいのですが、シートに書き込んでおくコマンドの書き方を教えてください。

(操作)
Sheet2 でＡ列のどこかのセルをダブルクリックしたとき、Ｂ列およびＣ列の該当行の値を、Sheet1 の二つの固定セルにそれぞれ表示させる。

よろしくお願いします。

回答No.1

keithin · ベストアンサー

＞Sheet2 でＡ列のどこかのセルをダブルクリックしたとき、
＞Ｂ列およびＣ列の該当行の値を、Sheet1 の二つの固定セルにそれぞれ表示させる。

ご質問の説明とサンプルの絵が違ってますが，ご自分のヤリタイ事に合わせて適宜応用してください。

シート２のシート名タブを右クリック，コードの表示を選ぶ
現れたシートに下記をコピー貼り付ける（類似のマクロ複数を試すときは，必ず全て消して１つずつ行う）

private sub worksheet_beforedoubleclick(byval Target as excel.range, Cancel as boolean)
　if application.intersect(target, range("A:A")) is nothing then exit sub
　if target = "" then exit sub
　cancel = true
　worksheets("Sheet1").range("B2").value = cells(target.row, "B").value
　worksheets("Sheet1").range("C4").value = cells(target.row, "C").value
end sub

ファイルメニューから終了してエクセルに戻り，シート２のＢ列のセルをＷクリックする

お礼

keithinさん　粗雑な質問でご迷惑をおかけしました。
ありがとうございました。

補足

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

＞シートに書き込んでおくコマンドの書き方を教えてください。
これは言葉の使い方が違っていたと思います。
「シートモジュールの記述を教えてください。」
とお願いしなければならなかったと思います。

やりたいことは、
Ｓｈｅｅｔ２で、たとえばＢ２をダブルクリックすれば、
＿＿＿＿Ｓｈｅｅｔ１ Ｂ２の値がＳｈｅｅｔ２のＣ２と同じに、そして
＿＿＿＿Ｓｈｅｅｔ１ Ｃ４の値がＳｈｅｅｔ２のＤ２と同じに
なるようにしたいのです。

参照という図中の言葉も間違いでした。

よろしくお願いします。

回答No.3

keithin

えーーっと？

＞シートモジュールの記述を教えてください。」とお願いしなければならなかったと思います。

後から寄せられた回答No2の方への同じ返答をコピー貼り付けされてますが，そちらの的外れな指摘と同じ内容と思われたのですね？
ちょっと大変不愉快です。

それにしても
＞やりたいことは

回答した内容でナンの間違いもなくアナタのヤリタイ事は実現されているのですが，いったいどうして補足が出たのですか？
もしや実際に試してもいないで，返事を書いたのですか？
それとも，実際に試したら「ココが動作が違った」のでしたら，その点を具体的に補足してみたらどうでしょうか？

そもそも。

１．アナタの補足：
＞Ｓｈｅｅｔ２で、たとえばＢ２をダブルクリックすれば、
＿＿＿＿Ｓｈｅｅｔ１ Ｂ２の値がＳｈｅｅｔ２のＣ２と同じに、そして
＿＿＿＿Ｓｈｅｅｔ１ Ｃ４の値がＳｈｅｅｔ２のＤ２と同じに

２．アナタのご質問：
＞Sheet2 でＡ列のどこかのセルをダブルクリックしたとき、
＞Ｂ列およびＣ列の該当行の値を、Sheet1 の二つの固定セルにそれぞれ表示させる。

３．アナタの図の説明：
　Sheet2でＢ列のセルをダブルクリックしたときに，Ｃ列とＤ列のセルがシート１の所定のセルに表示される

どれ一つとして同じのがありません。「たとえば」で説明なんかどうでもイイと思っているので，こういう整合のない説明になります。
なので回答もあくまでこの１つに合わせた「たとえば」です。ちなみに回答は２番のアナタのご質問に合わせてあります。
参考にして，実際のエクセルに合わせてご自分でキチンと自作してやってください。

お礼

keithinさん
図を描いたときに列記号を間違えました。
A列ダブルクリックでうまく動作しました。
ありがとうございました。

回答No.2

imogasi

質問文は
Ｓｈｅｅｔ１のB2とＣ４に適宜値を入れて、Ｓｈｅｅｔ２のＣ列の行をクリックすれば、Ｓｈｅｅｔ１のＢ２の値とＣ４の値を、クリックした行のＢ，Ｃ列にセットしたい、と表現すること。
ーー
ＶＢＡでイベントというものを使うことになる。ＶＢＡを勉強したことはあるのか。
＞シートに書き込んでおくコマンドの書き方を教えてください。
を見ると経験無いのでは。
ーー
Ｓｈｅｅｔ２の下記イベントに（シートモジュール）
参考　http://excel-macro.16office.com/kanri/hyouji.html
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then 'A列の場合
Target.Offset(0, 1) = Sheets("Sheet1").Range("B2")
Target.Offset(0, 2) = Sheets("Sheet1").Range("C4")
End If
End Sub
値をセット後はSheets("Sheet1").Range("B2")などはクリアしたほうが良いのかな。

お礼

imogasiさん　補足でお名前を間違え大変失礼しました。お詫びします。

（結果）
Sheets2 の A列 をクリックすると、Sheets2 に書き込んであったその行の B列 と C列 の値が消えてしまいます。
Sheet1 には何も現れません。

補足

mogasiさん　ありがとうございます。

＞シートに書き込んでおくコマンドの書き方を教えてください。
これは言葉の使い方が違っていたと思います。
「シートモジュールの記述を教えてください。」
とお願いしなければならなかったと思います。

やりたいことは、
Ｓｈｅｅｔ２で、たとえばＢ２をダブルクリックすれば、
＿＿＿＿Ｓｈｅｅｔ１ Ｂ２の値がＳｈｅｅｔ２のＣ２と同じに、そして
＿＿＿＿Ｓｈｅｅｔ１ Ｃ４の値がＳｈｅｅｔ２のＤ２と同じに
なるようにしたいのです。

参照という図中の言葉も間違いでした。

よろしくお願いします。