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

简单举例，假如A1单元格填充黄色 ，获得其值为6，代码如下 sub Codim i as integeri=[a1].interior.colorindexend sub