Excel:获取单元格颜色

Question

1) 如何使用 Excel 宏获取单元格的颜色？我无法让这个功能工作:

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

2)在单元格 x,y 中我想要以下公式:

=BGCol(x,4)

那么如何获取当前行索引呢？

Answer 1

Function GetColor(Mycell As Range)

    GetColor = Mycell.Interior.ColorIndex

End Function

:::使用公式::=获取颜色(x4)