VBAで縦方向のセル3列に、同じ色が重ならない様に表示、かつ、横方向のセル30行にその色を連続させないようにランダムに表示したい。

Question

VBAにて、縦方向のセル3列に、赤、黄、緑の3色を同じ色が重ならない様に表示、かつ、横方向のセル30行にその3色を同じ色を連続させないようにランダムに表示するにはどのようなコードを組めばいいでしょうか？

自分でもこの一連の動作を一つ一つ分解して考えてみたのですが、どうしても複雑な操作になるので、混乱してしまいます。

できれば、サンプルコードを表記して頂きたいです。

ご教授の程よろしくお願い致します。

Comments

[hatena19]

縦方向、横方向の意味が分かりづらいですが、簡潔に言うと、
30行×3列(Range("A1:C30"))のセル範囲で縦も横も同じ色が連続しないようにしたい、
ということですか。

[aki.aki.]

そもそも３色で、質問の内容の表示は可能なのですか？

Answer 1

質問内容の説明が曖昧で分かりにくい。
これを、他人にも誤解なく伝わるような論理的な文章にすることがまず必要。
いいかえると仕様を明確にするということ。
人間より融通の利かないコンピュータに命令するのだから、これができないとコードは書けない。

例
30行×3列(Range("A1:C30"))のセル範囲を対象に、
1行3列は、赤、黄、緑 の3色をランダムな順で背景色に設定
各セルの縦方向（上下）は同じ色が連続しないようにランダムに背景色を設定

つぎに、この仕様を実現するためにロジックを考える。
手作業ですることをフローチャートに起こすなどして整理していく。

Comments

[sanaginagi]

まず、回答ありがとうございます。
おっしゃる様に分かりにくい説明だったかと思います。
こんなにすぐに回答頂けるとは思っていなかったので、後で実際のエクセルの画像と現在出来ているコードを貼ろうと思っていたのですが、現在エクセルが手元に無いため、一旦解決済みとさせて頂きます。
再度質問する時はまたよろしくお願いいたします。

Answer 2

＞混乱してしまいます。

どのように混乱していますか？ここは、わからないところを質問するところで、丸投げやそのままを教えてもらうところではありません。まずは、フローチャートを書いてみたらいかがでしょうか？

Comments

[sanaginagi]

まず、回答ありがとうございます。
おっしゃる様に分かりにくい説明だったかと思います。
こんなにすぐに回答頂けるとは思っていなかったので、後で実際のエクセルの画像と現在出来ているコードを貼ろうと思ったのですが、現在エクセルが手元に無いため、一旦解決済みとさせて頂きます。
再度質問する時はまたよろしくお願いいたします。