需要用到宏表函数GET.CELL。例如判断A1单元格颜色:
菜单-插入-名称-定义(2007以上版本是公式管理器),输入任意名称(如:Color),在“ 引用位置”中输入“=GET.CELL(24,A1)”,确定。
然后在B1单元格中输入=color,可得到A1单元格字符颜色色号,B1向下复制公式,得到A2。。。单元格字符颜色色号。
=GET.CELL(63,A1) 可以得到单元格填充颜色色号。
按住alt依次按f11,i,m
粘贴下面代码后按f5 可以弹出对话框告诉你活动单元格的填充色的色号
Sub test()
MsgBox ActiveCell.Interior.ColorIndex
End Sub
另外下面的代码可以在当前工作表的a列a1:a56填充颜色及其色号
Sub cc()
For i = 1 To 56
Cells(i, 1).Value = i
Cells(i, 1).Interior.colorindex = i
Next
End Sub