マルシェル新規登録で5000円分当たる

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

A 回答 (2件)

こんにちは、


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

ご自身で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と順にセルをクリックすると
順不同でも実行されます。
他のセルを選択した場合、記録した値はすべてクリアーされますので
初めからやり直す必要があります。

出来るだけ解り易く書いたつもりですが、どうでしょう。
    • good
    • 1
この回答へのお礼

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

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

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


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

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

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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング