エクセルであるセルを選ぶと違うセルに自動で数字を入力させる

エクセルで、あるセル(セルA)を選ぶ(クリックorタッチする)と、違うセルにセルAに書かれてある数字が自動で入力される。
しかもセルA、セルK、セルDと選ぶと、それぞれのセルに書かれた数字が順番に並ぶように出来ないでしょうか？
(例:セルA5に280、セルK2に100、セルD3に150と数字があって、A5、K2、D3と順にセルをクリックすると、セルA10、A11、A12に自動的に280、100、150と入力されるように)

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2020/07/30 16:47

こんにちは、

私も＃１さんのアドバイスに同意ではありますが、

ご自身でVBAを組んだりデバッグできますか？
もし出来ないのなら、本来望むプロセスを完成させるのは難しいかも知れません。
なぜなら、ご質問は、例であり条件などが他にもあると思いますので
手直し、改修が必須になる事が想像できるからです。

とは言え、ご質問に何だかの回答をしたいので、
ご質問の　例が実行できるコードを書きます　が、～にするには、とか　～の場合と言う
追加質問は、このスレッドでは辞退いたします。
（明確なご質問を他に立てられれば、回答は得られると思いますので）

対象のシートモジュールに
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　Static Av As String
　　Static Kv As String
　　Static Dv As String
　　If Not Intersect(Target, Range("A5, K2, D3")) Is Nothing Then
　　　　If Target = Range("A5") Then Av = Range("A5").Value
　　　　If Target = Range("K2") Then Kv = Range("K2").Value
　　　　If Target = Range("D3") Then Dv = Range("D3").Value
　　Else
　　　　Av = ""
　　　　Kv = ""
　　　　Dv = ""
　　End If
　　If Av <> "" And Kv <> "" And Dv <> "" Then
　　　　Range("A10") = Av: Av = ""
　　　　Range("A11") = Kv: Kv = ""
　　　　Range("A12") = Dv: Dv = ""
　　End If
End Sub

＞A5、K2、D3と順にセルをクリックすると
順不同でも実行されます。
他のセルを選択した場合、記録した値はすべてクリアーされますので
初めからやり直す必要があります。

出来るだけ解り易く書いたつもりですが、どうでしょう。

この回答へのお礼

Qchan1962　さん
ありがとうございます。
誠に丁寧なご返答ありがとうございます。
全くの初心者に優しく質問の内容をお答え頂き感謝します。
お返事頂いた詳細を勉強させて頂きます。

お礼日時：2020/07/31 00:09

No.1 回答者： d-q-t-p 回答日時： 2020/07/30 15:46

どうも PCに不慣れな人は「クリック」を何かの動作のキーにしたがる癖が

あるようですけど それをすると今後どのセルも「選択」できなくなります。
動作キーは「ダブルクリック」にした方がいいのでは？

あともうひとつ。間違った時はどうやって訂正するつもりでしょうか。

マクロで処理した場合 どこかに履歴を残さない限り間違ったものを元に戻
すことができなくなります。こういう仕様を入れると「ダブリ入力」や
「間違って違うセルを選択した」などの失敗が多発すると思います。

この回答へのお礼

d-q-t-pさん
お返事ありがとうございます。
問題点もご指摘頂き感謝します。

お礼日時：2020/07/31 00:16