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

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

No.6 回答者： gyouda1114 回答日時： 2008/12/21 19:10

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

補足日時：2008/12/21 21:31

No.5 回答者： hallo-2007 回答日時： 2008/12/21 14:05

>Ｃ１に入力した時に文字の色だけをＡ１と同じにしたいのです。

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

この回答への補足

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

補足日時：2008/12/21 17:41

No.4 回答者： kmmk16 回答日時： 2008/12/21 13:59

Private Sub Worksheet_Change(ByVal Target As Range)

Range("C1").Font.Color = Range("A1").Font.Color
End Sub

という事でしょうか？

この回答への補足

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

補足日時：2008/12/21 18:06

No.3 回答者： shikisaito 回答日時： 2008/12/21 13:34

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

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

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

この回答への補足

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

補足日時：2008/12/21 13:38

No.2 回答者： will_mania 回答日時： 2008/12/21 13:07

A1に数式は入っていますか？

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

この回答への補足

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

補足日時：2008/12/21 13:22

No.1 回答者： web2525 回答日時： 2008/12/21 12:47

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

この回答への補足

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

補足日時：2008/12/21 13:07