VBAにて

質問

質問です。
あるセルの色が指定色だった場合、あるセルの値を指定のセルに代入するＶＢＡを
作りたいのですが、わかりません。

ご経験者、知識ある方々のご意見やアドバイスを
お願いします。

回答No.2

chie65536（@chie65535）

やり方は、他の回答にある通り。

でも、問題なのは「いつ、それをするか」です。

質問者さんを悩ませているのは「いつ、どこでやれば良いか、判らない」からだと思います。

質問者さんが「このタイミングでやりたい」と思えば、あとは、回答で得たVBAのコードをそこに書けば良いだけ。

で、質問者さんは「いつ、それをやりたい」のか、自分で判ってますか？

判ってない場合は「いつやればよいか？」を、別途、質問して下さい。

「いつやる？」「今でしょ！」

なお、一番簡単なのは「シート上に配置したボタンを押した時」だと思います。

お礼

遅くなりました。ご回答ありがとうございます。
おっしゃる通りです。

どうにか、皆さんのを参考に関数を作ることが出来ました。
あろがとうございます。

回答No.1

M-SOFT

こんにちは。

A1が黄色の場合に、A2の値をA3に代入する場合。

If Range("A1").Interior.ColorIndex = 6 Then　Range("A2").Value = Range("A3").Value

こんな感じでしょうか

ちなみに、セルの色(塗りつぶしの色かな？)を変えてもイベントは発生しないので、実行タイミングはどうするのでしょうね。

指定色から別の色に変更したときはどうするのか？など、考えるべき事はいろいろありそうです。

お礼

遅くなりました。ご回答ありがとうございます。
おっしゃる通りです。

どうにか、皆さんのを参考に関数を作ることが出来ました。
あろがとうございます。