Excelの関数で質問です。

コメント欄がオープンではないのでこちらで失礼します。

関数ではできません。

なぜかと言うと、ワークシート関数ではセルの書式設定は変えられないからです。

これは、ユーザー定義関数でも同じです。

VBAならばこんな感じで可能です。

Sub Macro1()
    Dim r As Range
    For Each r In Worksheets("Sheet1").UsedRange
        If r.Interior.ColorIndex = 5 Then
            '３＝赤
            Worksheets("Sheet2").Range(r.Address).Interior.ColorIndex = 3
        End If
    Next
End Sub

関数だけではできないことは変わりませんが、まったくできないというわけでもありません。

4.0マクロ関数＋条件付書式です。

１　Sheet2のA1セルを選択して、挿入→名前→定義で「名前の定義」ダイアログボックスを開きます。

２　名前を「CELLCOLOR」

３　参照範囲を「=GET.CELL(63,Sheet1!A1)+NOW( )*0」で追加。

４　Sheet2のA1セルの数式を「=CELLCOLOR」

５　Sheet2のA1セルを選択して、書式→条件付書式から

　　「セルの値が」「次の値に等しい」「５」として

　　書式をパターンを赤にしてＯＫ。

６　A1セルに設定された数式と条件付書式を適用する範囲にコピー。

この方法で一応はできることはできるのですが、ざっと考えて以下の問題があります。

• 色は反映されるがSheet2の各セルには関数が設定されるので、値は反映されない
• セルの変化で再計算されない場合、手動で再計算することが必要。
• Excel2007で使えない4.0マクロ関数もあるので、今後使えなくなる。
• 4.0マクロ関数を使うとシートを開くたびにメッセージが出る。