EXELでセルの色を投影するには？

質問

初歩の質問で申し訳ありません。
EXEL上で例えばA1のセルの色が赤であった場合
任意のセルを（例えばC10）関数かマクロでA1のように赤にする方法は無いでしょうか？
多数のセルの色をA1を変えることで変えたいのです
よろしくお願いいたします

回答No.1

shironekoxxx · ベストアンサー

関数やマクロを使わなくても、セルの条件付書式で指定できますよ。

「数式が」「=$A$1=1」で、その下の書式ボタンで希望の色に塗ればできるはずです。

お礼

ありがとうございます。
A1のセルの色を変えてその他の任意のセルの色を同じ色にしたかったんですがよくわかりません

関数ではセルの色は同期して変わらないんですね

回答No.6

imogasi

＞関数ではセルの色は同期して変わらないんですね
関数は（他の）セルの「値！」を問題にして計算し、値をセットしか出来ないものです。
セルや文字の色は書式に属し、その種類を取得したり、色を設定したり出来ません。
（将来は別として）今のところ、色と値は、エクセルでは、別世界に蓄えられた情報なんです。
このことを知っておくと役立ちます。

お礼

ありがとうございます
そういうことなんですね。
すごく勉強になりました。

回答No.5

shironekoxxx

＃１です。

どのような操作でセルＡ１の色を変えるのか、が指定できればですが、、、

セルＡ１も同じような条件付書式を与えてやって、「赤を塗りたいときはセルに１を入力して下さい」という風に指示して色塗りをするというのではダメですか？

セルの色を抜き出す関数は無いはずですので、どうしてもセルの色情報を拾うためにはＶＢＡでの記述が必要になります。

お礼

ありがとうございます。
思ったことが簡単に出来ると思ってたのですが簡単にはいかないみたいですねえ。
いろいろとありがとうございました

回答No.4

chie65536

ＶＢエディタを開いて、シートの各イベントのハンドラに以下のように書きます。

Private Sub Worksheet_Activate()
Range("C3").Interior.ColorIndex = Range("A1").Interior.ColorIndex
Range("D2:E4").Interior.ColorIndex = Range("A1").Interior.ColorIndex
End Sub

Private Sub Worksheet_Calculate()
Range("C3").Interior.ColorIndex = Range("A1").Interior.ColorIndex
Range("D2:E4").Interior.ColorIndex = Range("A1").Interior.ColorIndex
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Range("C3").Interior.ColorIndex = Range("A1").Interior.ColorIndex
Range("D2:E4").Interior.ColorIndex = Range("A1").Interior.ColorIndex
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("C3").Interior.ColorIndex = Range("A1").Interior.ColorIndex
Range("D2:E4").Interior.ColorIndex = Range("A1").Interior.ColorIndex
End Sub

シートがアクティブになった、再計算された、どこかのセルの内容が変わった、選択範囲が変った時に、Ａ１セルの背景色がコピーされます。

残念ながら「背景色が変った時」にはイベントをトラップ出来ないので、背景色を変えただけではコピーされません。

お礼

ありがとうございます
下でも書きましたがマクロとかVBAはまったく解りません
これをどこにコピーすればいいかも解らないへなちょこなんです・・・
すいません

回答No.3

ao777

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Interior.ColorIndex = 3 Then
Range("B1:F5").Interior.ColorIndex = 3
End If
End Sub

今回はセレクションチェンジイベント使用していますが、お好きなイベントに変えて下さい。

お礼

ありがとうございます。
マクロですよねこれって・・・
まったく解りません。
マクロにしろVBAにしろまったくの素人なんです
すいませんでした

回答No.2

hana-hana3

関数ではセル色の設定は出来ません。
ＶＢＡなら可能です。

特定の条件があるなら、条件付き書式で変更する方が実用的だと思います。

お礼

ありがとうございます
なかなか思うようにはいかないですねえ
私がへなちょこなだけなんですが・・・