Excel：セルの色を取得

Question

1）Excelマクロを使用してセルの色を取得するにはどうすればよいですか？

=BGCol(x,4)

それでは、どのように私は、現在の行のインデックスを取得します：私は、次の式を持ちたいyは、セルxで

Sub BGCol(MRow As Integer, MCol As Integer) 
bgColor = Cells(MRow, MCol).Interior.ColorIndex 
End Sub 

2）：私は、この機能の仕事を得ることができませんでした？

Answer 1

あなたは関数を使用する必要があります。

Function BGCol(MRow As Integer, MCol As Integer) As Integer 
    BGCol = Cells(MRow, MCol).Interior.ColorIndex 
End Function 

Answer 2

Function GetColor(Mycell As Range) 

    GetColor = Mycell.Interior.ColorIndex 

End Function 

:::使っ式:: = GETCOLOR（X4）