- 464 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 20:36:00 ]
- >>454
セル参照があるかないかだけですが
一つの案として下記なんかはどうでしょうか？
一部の関数を使用していると判定ミスしちゃいますが(DAYS360 とか)
With ActiveSheet.Cells(i, j)
If (.Formula Like "=*[A-Z][1-9]*") Or (.Formula Like "=*[A-Z]$[1-9]*") Then
'セル参照を含む数式
.Interior.ColorIndex = 34
Else
'セル参照を含まない数式 又は 定数
.Interior.ColorIndex = 40
End If
End With
