A1クリック時にB1値をC1に表示させるExcel

質問

イメージとしては
下記のような簡単なテストみたいな事が出来るシートを
エクセルで作りたいだけなのですが
答えを探して既に数時間...
私の頭では、たどり着けそうにありません...(@_@)

1　マウスのあるセルの行番号を関数にて取得
2　B列かつ、1の行番号のセルの値を取得
3　答え表示用であるC1セルに2の値を表示

A1の問題の答えを知る為に
行番号1のどこかのセルをクリックしたら
C1に答えが表示された！

A2の問題の答えを知る為に
行番号2のどこかのセルをクリックしたら
C1に、また答えが表示された！

みたいな感じにしたいのです。

どうか、優しい方
助けて下さいませ。

ひとつ、よろしくお願い致します<(_ _)>

参考になる頁や
別のやり方でも構いません
どうか、お願い致します！

回答No.2

ExcelDevTool

対象シートのマクロに下記のコードを入れたら解決でしょうか。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Cells(Target.Row, 2).Value = ActiveSheet.Cells(Target.Row, Target.Column).Value

ActiveSheet.Cells(1, 3).Value = ActiveSheet.Cells(Target.Row, Target.Column).Value

End Sub

補足

ご回答頂き、ありがとうございます！

さっそく試させていただきました

が、未熟ゆえ、ほとんどわかりません。

まず
A列に問題
B列に答え
を入れてみました

A1にオンマウスでC1にA1の値が表示されるのは、凄いと思いました！
(これはこれで、いろいろ便利そうです　マクロが全然わからないので、応用できませんが...)

ただし、この際に
B列に入れた答えが、ことごとくA1の問題に書き換わってしまいます...

下記のようにしたいだけなのですが、何が間違っているのでしょうか？
あと、少しだけお願い致します。
ヒントだけでも！

A1オンマウスでB1値をC1に表示
A2オンマウスでB2値をC1に表示
‥

回答No.1

keithin

ご利用のエクセルのバージョンが不明のご相談なので、少し限定的な方法です。

手順：
Ａ列に問題文を記入する
Ｂ列に何にどう使うのかご相談に書かれてない何かを記入する
Ｃ列に回答を用意しておく

Ｃ列の回答のセル範囲を選び、フォントの色を白（セルの塗色と同じ）にしておく
（Ｃ列の回答が見えなくなったことを確認する）

Ｃ列を選択、条件付き書式で数式を使い
=CELL("ROW")=ROW()
と記入、書式ボタンでフォントの色を黒にする
（ここもご利用のエクセルのバージョンが不明のため、どこを選んで何をクリックと手順の説明を割愛）

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

private sub Worksheet_SelectionChange(byval Target as excel.range)
application.screenupdating = true
end sub

ファイルメニューから終了してエクセルに戻る
１，２，３行目などのどこかのセルを選択してみる。

＃参考
ご利用のエクセルのバージョンによっては、たとえばＣ列をまとめて選択すると答えが見えてしまうといった事がないよう仕込む事もできました。
ご相談投稿では、普段あなたがご利用のソフトのバージョンまで、キチンと明記する事を憶えて下さい。次回以降のご参考まで。

補足

お忙しい中
大変貴重なご回答頂き、誠にありがとうございます。

さっそくですが、バージョンは
Office2010 14.0.7128.5000 32bit　です。
これからは、忘れずに明記するよう心がけます！

まず、フォントを白にすると言う発想だけでも
目から鱗でございました。

最悪、これだけでも
なんとか当初の目的を達成できそうな勢いです。

更に条件付き書式＆コード表示の件では
凄過ぎて、プチ達成感に浸ってしまいました。

本当にありがとうございます！

また、参考にて
細やかな心使いまで頂き恐縮です。

これはこれで、答えを一覧的に見る場合には
逆によさげな気もしています。

なお、現状では本当に参考程度にしかさせて頂けませんが
奥の深さを感じずにはいられません。

尚、この状況にも関わらず
ずうずうしいお願いだと恐縮しきりなのですが...

VBAのような、すごわざまではいかずに
関数だけでも同様の事が出来る方法を
keithin様ほどの方であれば
ご存じなのではないかと、気になってしかたありません！

今回のこのシートでのVBAに関しては
今後、私の中でも何度も流用させて頂こうと
永久保存版的な存在ですが

やはり、関数技も知っておけたら
私のような素人でも自己流に改造しながら
更に意義ある事に出来そうな気がしてなりません。

なんとなくの、イメージとしては
フォーカスのあるセルの位置情報を取得し
その行の回答を一定の任意セルに表示させてみたいです。

もし、ご存じでしたら
お時間がある時に、簡単にでも結構ですので
なにとぞ、よろしくお願い致します。

<(_ _)>