指定したセルと同じ文字色にしたい

質問

エクセルでＡ１（文字）の文字色が赤色の場合、Ｃ１（数値）の文字色もＡ１と同色になるように設定したいのです。
条件付書式の数式を教えてください。

回答No.6

gyouda1114

C1セルに設定する具体的条件を知りたいなら
A1セルに設定してある条件を示してください。

補足

回答ありがとうございます。
自己解決しました。
ＶＢＡで以下の様にしました。
これで文字色をコピーして、セルの背景の着色を消せました。
例ではＡ１＝Ｃ１だけですが多数のセルで同じ様にしたかったので、
ショートカットで実行出来るようにしました。
Sub test()
　　Range("A1").Select
Selection.Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.FormatConditions.Delete
End Sub

回答No.5

hallo-2007

>Ｃ１に入力した時に文字の色だけをＡ１と同じにしたいのです。
C1が空白のときは、文字の色が何と設定されていても空白は空白です。
A1セルに設定された条件付書式の条件で、C1セルに設定すれば大丈夫の様な気がします。
>Ａ１の条件付書式はある条件の時にセルに色を付けるものなので、
A1セルはある条件で　セルに色をつける（パターンで塗りつぶしの色）
C1セルはある条件で　フォントの文字色を変える
の違いで設定しては如何でしょうか。

補足

回答ありがとうございます。
Ａ１セルの条件はセルに色を付けるための条件なので、
Ａ１セルの文字色とは何の関係も無いのです。
Ｃ１セルの文字に色を付けるのはＡ１セルの条件とは関係ありません。
Ａ１セルと同じ文字色にしたいだけの条件です。
ですからＣ１セルに設定する条件の式が分からないので困っているわけです。

回答No.4

kmmk16

Private Sub Worksheet_Change(ByVal Target As Range)
Range("C1").Font.Color = Range("A1").Font.Color
End Sub

という事でしょうか？

補足

回答ありがとうございます。
よく分からないのですが、ＶＢＥを開いて式を入力して実行したらエラーになりました。
そのまんま貼り付けたら出来る式を教えて頂けませんか？

回答No.3

shikisaito

> Ａ１に数式は入っていません、セルに色を付ける条件付書式は入っています。

であれば、A1と同じ条件付き書式を、C1で設定すればいいでしょう。

A1の条件付き書式が[セルの値が][次の値に等しい][=B1]などであれば、
C1の条件付き書式で[数式が][=A1=B1]と設定すればいいでしょう。

補足

回答ありがとうございます。
Ａ１の条件付書式はある条件の時にセルに色を付けるものなので、
Ｃ１のセルがＡ１と同じセル色になってしまいます。
Ｃ１に入力した時に文字の色だけをＡ１と同じにしたいのです。
出来ますでしょか？

回答No.2

will_mania

A1に数式は入っていますか？
『A1の条件が○○ならばC1の文字は赤』とC1に条件付書式を設定されては？

補足

回答ありがとうございます。
Ａ１に数式は入っていません、セルに色を付ける条件付書式は入っています。
具体的にどうしたらよいのでしょうか？

回答No.1

web2525

文字色を指定したり、文字色の取出しが出来ませんので、関数式で対応する事はできません。

補足

回答ありがとうございます。
マクロでも無理でしょうか？