エクセルの文字の色について

質問

エクセルで質問があります。

・Ａ１のセルに(1)と打って文字の色を赤にします。
・Ｂ１のセルに(2)と打ちます。

（質問）
・Ａ１の文字が赤色の場合、Ｂ１のセルに文字を打った時、自動でＡ１のセルと同じ色になるようにしたいのですが、
やり方ありますか？教えて頂けませんか。

回答No.2

某HN クロメート(Chromate)（@CoalTar）

＞Ｂ１のセルに打てばいいのかな～？
該当のシート見出しを右クリックして「コードの表示」
そこに貼り付けます。

通常はA1セルとB1セルを範囲指定してフォントの色を設定すればよいのでは？
書式ごとでいいなら書式のコピー/貼り付けボタンと言うのもあるし・・・。
当方XL2002

回答No.1

某HN クロメート(Chromate)（@CoalTar）

こんな感じかなあ
Private Sub Worksheet_Change(ByVal Target As Range)
　　If Intersect(Target, Cells(1, 2)) Is Nothing Then
　　　　Exit Sub
　　Else
　　　　Cells(1, 2).Font.ColorIndex = Range("A1").Font.ColorIndex
　　End If
End Sub

お礼

回答有難うございます。
でも私には、内容が難しすぎてよくわかりません。
教えていただいた内容は、Ｂ１のセルに打てばいいのかな～？
一度やってみます。