質問: エクセルであるセルを選ぶと違うセルに自動で数字を入力させる エクセルで、あるセル(セルa)を選ぶ(クリックorタッチする)と、違うセルにセルaに書かれてある数字が自動で入力される。 しかもセルa、セルk、セルdと選ぶと、それぞれのセルに書かれた数字が順番に並ぶように出来ないでしょうか? (例:セルa5に280、セルk2に100、セルd3に150と数字があって、a5、k2、d3と順にセルをクリックすると、セルa10、a11、a12に自動的に280、100、150と入力されるように)
回答: こんにちは、 私も#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と順にセルをクリックすると 順不同でも実行されます。 他のセルを選択した場合、記録した値はすべてクリアーされますので 初めからやり直す必要があります。 出来るだけ解り易く書いたつもりですが、どうでしょう。