Excel VBA中怎样得到当前使用的填充颜色值

Question

如题所述

Answer 1

简单举例，假如A1单元格填充黄色 ，获得其值为6，代码如下

sub  Co

dim i as integer
i=[a1].interior.colorindex

end sub